Описать процедуру, заменяющую в тексте все малые буквы на большие

@Enterpris · Регистрация: 30.11.2013

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

Помогите пожалуйста с задачей. Заранее спасибо.
Описать процедуру, заменяющую в тексте все малые буквы на большие . В главной программе Дано 2 строки символов S1 и S2. Применить процедуру для строк S1 и S2.

Турбо паскаль

@Mishania · 15.04.2014, 13:27

Enterpris,

Pascal

var
   S1,S2: string;
   i: byte;
Procedure Change;
          begin
               for i:=1 to Length(S1) do
                   S1[i]:=UpCase(S1[i]);
               for i:=1 to Length(S2) do
                   S2[i]:=UpCase(S2[i]);
          Writeln(S1);
          Writeln(S2);
          end;
begin
      Writeln('Vvedite stroku S1:'); Readln(S1);
      Writeln('Vvedite stroku S2:'); Readln(S2);
      Change;
Readln;
end.

@Puporev · 15.04.2014, 13:34

А если буквы русские?

Добавлено через 1 минуту
Конвертация строк

@Enterpris 0 / 0 / 0 Регистрация: 30.11.2013 Сообщений: 56
		1
	Описать процедуру, заменяющую в тексте все малые буквы на большие 13.04.2014, 18:47. Показов 1525. Ответов 2 Метки нет (Все метки) Помогите пожалуйста с задачей. Заранее спасибо. Описать процедуру, заменяющую в тексте все малые буквы на большие . В главной программе Дано 2 строки символов S1 и S2. Применить процедуру для строк S1 и S2. Турбо паскаль 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	15.04.2014, 13:34	3
	А если буквы русские? Добавлено через 1 минуту Конвертация строк 1

Описать процедуру, заменяющую в тексте все малые буквы на большие

Решение