Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 29.05.2016, 10:45   #1 (permalink)
Олес
Member
 
Регистрация: 07.01.2016
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Pascal

Реализовать на языке Turbo Pascal следующую задачу: выяснить, есть ли в слове X буква "k", и, если есть, то замените все буквы "а" в этом слове на "с".Напишите в Turbo Pascal код программы. помогите, пожалуйста)
Олес вне форума   Ответить с цитированием

Старый 29.05.2016, 10:45
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Прочтение подобных тем может сразу же решить проблему

PASCAL ABC
Pascal

Старый 29.05.2016, 12:27   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,304
Сказал(а) спасибо: 287
Поблагодарили 506 раз(а) в 164 сообщениях
Репутация: 91675
По умолчанию

Цитата:
Сообщение от Олес Посмотреть сообщение
Реализовать на языке Turbo Pascal следующую задачу: выяснить, есть ли в слове X буква "k", и, если есть, то замените все буквы "а" в этом слове на "с".Напишите в Turbo Pascal код программы. помогите, пожалуйста)
Легко. Правда, предупреждаю: работает ТОЛЬКО с латиницей, никакой кириллицы.
Код:
Var
 X,X1:String;
 b:boolean;
 i:byte;

Begin
 Writeln('Enter the word:');
 Readln(X);
 b:=false;
 i:=0;
 Repeat
  Inc(i);
  if X[i]='k' then b:=true;
 Until b or (i=Length(X));
 if b then
  begin
   X1:='';
   for i:=1 to Length(X) do
    if X[i]='a' then X1:=X1+'c' else X1:=X1+X[i];
   X:=X1;
  end;
 Writeln(X);
 Readln
End.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 29.05.2016, 13:18   #3 (permalink)
Олес
Member
 
Регистрация: 07.01.2016
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

спасибо большое)
Олес вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 00:21.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.