Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 29.12.2013, 14:26   #1
покемон21
Пользователь
 
Регистрация: 24.12.2013
Сообщений: 11
По умолчанию напишите пожалуйста программу...

напишите программу обработки строки в соответствии с вариантом задания.ввод строк организуйте в программе.строка должна состоять из нескольких слов и символов,разделителем служит пробел.выведите на экран обратную строку.

задание:подсчитайте в строке количество иностранных слов
покемон21 вне форума
Старый 29.12.2013, 14:58   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Пример строки в студию.
I'm learning to live...
Stilet вне форума
Старый 29.12.2013, 15:21   #3
покемон21
Пользователь
 
Регистрация: 24.12.2013
Сообщений: 11
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Пример строки в студию.
program stroka;
var st,subst :string;
begin
writeln ('введите строку');
readln(st)
ддальше не знаю...
покемон21 вне форума
Старый 29.12.2013, 15:28   #4
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,602
По умолчанию

Если я правильно понял, имелась ввиду строка с примером. В прошлый раз иностранными словами у вас были copy, concat и т.д.
А сейчас какие слова иностранные?
Кстати, чем вам не подошло мое решение?
ZX Spectrum-128 вне форума
Старый 29.12.2013, 16:16   #5
Endok70
 
Регистрация: 27.10.2013
Сообщений: 5
По умолчанию

Код:
program perevertishi;
uses CRT;
var st,subst,b:string;
i,g:integer;
begin
Writeln('Введите слово');
Readln(st);
i:=Length(st);
For i:=i downto 1 do
begin
b:=st[i];
subst:=subst+b;
end;
Writeln(subst);
end.
я ее чуть изменил, но кажется это тоже подходит
Thank you
С вами был Endok70

Последний раз редактировалось Stilet; 29.12.2013 в 17:35.
Endok70 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Напишите пожалуйста программу Secret1ve Общие вопросы C/C++ 1 16.12.2013 18:38
Напишите пожалуйста программу Secret1ve Общие вопросы C/C++ 0 16.12.2013 17:00
Пожалуйста напишите программу Vasilisk Помощь студентам 13 04.08.2009 15:54
Напишите пожалуйста паскаль-программу Fylhtq Паскаль, Turbo Pascal, PascalABC.NET 3 23.04.2009 20:35