Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.82/11: Рейтинг темы: голосов - 11, средняя оценка - 4.82
0 / 0 / 0
Регистрация: 11.05.2009
Сообщений: 22
1

Нужно создать программу,которая запрашивает текстовую строку и заменяет все буквы М на Р

12.05.2009, 13:23. Просмотров 2292. Ответов 11
Метки нет (Все метки)

Нужно создать программу,которая запрашивает текстовую строку и заменяет все буквы М на Р,а буквы А на И.
Протокол: Быть умным-это не значит знать всё,знать всё-это не значит быть умным.
Получилось: Быть урныр - это не зничит знить всё,знить всё-это не зничит быть урныр.

Помогите,пожалуйста,написать программный код на языке Pascal....
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.05.2009, 13:23
Ответы с готовыми решениями:

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

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

Создайте программу, которая запрашивает тестовую строку и заменяет все слоги "ра" на "пар".
Создайте программу, которая запрашивает тестовую строку и заменяет все слоги "ра" на "пар"....

Напишите программу, которая заменяет в символьной строке все буквы a на буквы b , a буквы A на буквы B
Помогите решить эту задачу на питоне, пожалуйста- Замена a-b и наоборот Напишите...

11
701 / 572 / 59
Регистрация: 18.11.2008
Сообщений: 2,147
12.05.2009, 13:36 2
Pascal
1
2
3
4
5
6
s := 'Быть умным-это не значит знать всё,знать всё-это не значит быть умным.';
len := length(s);
for i:=1 to len do
  if s[i]='м' then s[i] := 'р'
  else if s[i]='а' then s[i] := 'и';
writeln(s);
1
4115 / 990 / 191
Регистрация: 09.04.2009
Сообщений: 4,226
12.05.2009, 13:47 3
Можно так
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program zam;
uses crt;
var
   i:integer;
   s:string;
   begin
      writeln('vvedite tekst');
      readln(s);
      for i:=1 to length(s) do
         if s[i]= 'М' then
            s[i]:= 'Р'
         else if s[i]= 'А' then
            s[i]:= 'И'
         else if s[i]= 'м' then
            s[i]:= 'р'
         else if s[i]= 'а' then
            s[i]:= 'и';
writeln(s);
end.
1
0 / 0 / 0
Регистрация: 11.05.2009
Сообщений: 22
13.05.2009, 14:49  [ТС] 4
Не запускается(((
Ошибку выдает(
0
2920 / 841 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
13.05.2009, 14:52 5
AngleIrik, ЭТО НЕ в коде программы дело , это что то твой pascal над тобой зло шутит
1
0 / 0 / 0
Регистрация: 11.05.2009
Сообщений: 22
13.05.2009, 14:55  [ТС] 6
Может потому,что у меня не Turbo,а Free Pascal?....
0
4115 / 990 / 191
Регистрация: 09.04.2009
Сообщений: 4,226
13.05.2009, 16:26 7
я делал на Free Pascal-е... может быть при переносе кода в Free Pascal вместо Р,А,И,М - записались какието иероглифы?)
1
12 / 12 / 3
Регистрация: 01.04.2009
Сообщений: 27
13.05.2009, 17:31 8
Цитата Сообщение от Jazon_deenAlt Посмотреть сообщение
может быть при переносе кода в Free Pascal вместо Р,А,И,М - записались какието иероглифы?)
Таблица ASCII одинакова для всех программ ))
1
0 / 0 / 0
Регистрация: 11.05.2009
Сообщений: 22
14.05.2009, 03:18  [ТС] 9
Я его не переносила,а сама печатала.....
Сверила-всё точно также)
0
4115 / 990 / 191
Регистрация: 09.04.2009
Сообщений: 4,226
14.05.2009, 10:25 10
ну тогда уважаемая не могу ничем помочь... Кроме как скриншотом и екзехой)
З.Ы. советую проверить архив на наличие вирусов)
1
Миниатюры
Нужно создать программу,которая запрашивает текстовую строку и заменяет все буквы М на Р  
Вложения
Тип файла: zip p.zip (23.6 Кб, 10 просмотров)
0 / 0 / 0
Регистрация: 11.05.2009
Сообщений: 22
14.05.2009, 14:19  [ТС] 11
Всем огромное СПАСИБО!!!!!)))
Всё запустилось)Сдала зачёт на отлично
0
4115 / 990 / 191
Регистрация: 09.04.2009
Сообщений: 4,226
14.05.2009, 16:04 12
Всегда пожалуйсто)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.05.2009, 16:04

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Напишите программу, которая заменяет в символьной строке все буквы a на буквы b , a буквы A на буквы B
Здравствуйте,помогите пожалуйста написать программу .Напишите программу, которая заменяет в...

Напишите программу, которая заменяет в символьной строке все буквы a на буквы b
Как ужать этот код? Не проходит по скорости на последнем тесте var s:string; i,k,:integer; ...

Создать программу на ассемблере, которая заменяет строчные буквы в прописные
Создать программу на ассемблере,которая заменяет строчные буквы в прописные. Строку,символы...

Составить программу, которая в заданном тексте заменяет все буквы
Составить программу, которая в заданном тексте заменяет все буквы «а» на «о», а буквы «о» на «а».


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
12
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.