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

@AngleIrik · Регистрация: 11.05.2009

Студворк — интернет-сервис помощи студентам

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

Помогите,пожалуйста,написать программный код на языке Pascal....

@GalaX · 12.05.2009, 13:36

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);

@Jazon_deenAlt · 12.05.2009, 13:47

Можно так

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.

@AngleIrik · 13.05.2009, 14:49 **[ТС]**

Не запускается(((
Ошибку выдает(

@mamedovvms · 13.05.2009, 14:52

AngleIrik, ЭТО НЕ в коде программы дело , это что то твой pascal над тобой зло шутит

@AngleIrik · 13.05.2009, 14:55 **[ТС]**

Может потому,что у меня не Turbo,а Free Pascal?....

@Jazon_deenAlt · 13.05.2009, 16:26

я делал на Free Pascal-е... может быть при переносе кода в Free Pascal вместо Р,А,И,М - записались какието иероглифы?)

@Mat_All · 13.05.2009, 17:31

Сообщение от Jazon_deenAlt

может быть при переносе кода в Free Pascal вместо Р,А,И,М - записались какието иероглифы?)

Таблица ASCII одинакова для всех программ ))

@AngleIrik · 14.05.2009, 03:18 **[ТС]**

Я его не переносила,а сама печатала.....
Сверила-всё точно также)

@Jazon_deenAlt · 14.05.2009, 10:25

ну тогда уважаемая не могу ничем помочь... Кроме как скриншотом и екзехой)
З.Ы. советую проверить архив на наличие вирусов)

@AngleIrik · 14.05.2009, 14:19 **[ТС]**

Всем огромное СПАСИБО!!!!!)))
Всё запустилось)Сдала зачёт на отлично

@Jazon_deenAlt · 14.05.2009, 16:04

Всегда пожалуйсто)

Новые блоги и статьи Все статьи Все блоги /
WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .

@AngleIrik 0 / 0 / 0 Регистрация: 11.05.2009 Сообщений: 22

	Нужно создать программу,которая запрашивает текстовую строку и заменяет все буквы М на Р 12.05.2009, 13:23. Показов 3626. Ответов 11 Метки нет (Все метки) Нужно создать программу,которая запрашивает текстовую строку и заменяет все буквы М на Р,а буквы А на И. Протокол: Быть умным-это не значит знать всё,знать всё-это не значит быть умным. Получилось: Быть урныр - это не зничит знить всё,знить всё-это не зничит быть урныр. Помогите,пожалуйста,написать программный код на языке Pascal.... 0

@AngleIrik 0 / 0 / 0 Регистрация: 11.05.2009 Сообщений: 22
	13.05.2009, 14:49 [ТС]
	Не запускается((( Ошибку выдает( 0

@mamedovvms 2923 / 844 / 324 Регистрация: 30.04.2009 Сообщений: 2,633
	13.05.2009, 14:52
	AngleIrik, ЭТО НЕ в коде программы дело , это что то твой pascal над тобой зло шутит 1

@AngleIrik 0 / 0 / 0 Регистрация: 11.05.2009 Сообщений: 22
	13.05.2009, 14:55 [ТС]
	Может потому,что у меня не Turbo,а Free Pascal?.... 0

@Jazon_deenAlt 4117 / 999 / 191 Регистрация: 09.04.2009 Сообщений: 4,223
	13.05.2009, 16:26
	я делал на Free Pascal-е... может быть при переносе кода в Free Pascal вместо Р,А,И,М - записались какието иероглифы?) 1

@AngleIrik 0 / 0 / 0 Регистрация: 11.05.2009 Сообщений: 22
	14.05.2009, 03:18 [ТС]
	Я его не переносила,а сама печатала..... Сверила-всё точно также) 0

@AngleIrik 0 / 0 / 0 Регистрация: 11.05.2009 Сообщений: 22
	14.05.2009, 14:19 [ТС]
	Всем огромное СПАСИБО!!!!!))) Всё запустилось)Сдала зачёт на отлично 0

@Jazon_deenAlt 4117 / 999 / 191 Регистрация: 09.04.2009 Сообщений: 4,223
	14.05.2009, 16:04
	Всегда пожалуйсто) 0