Смена регистра введенного текста

@Mirazhana · Регистрация: 04.09.2012

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

Помогите пожалуйста, учусь лишь на первом курсе. Задали написать программку на паскале которая: меняет регистр у введенного русского текста через кодировку. Дали пример, но я не все смогла разобрать и правильно записать. Помогите хотя бы понять что написал преподаватель.

Кликните здесь для просмотра всего текста

Pascal

var i,b1:byte;
    s1:string;
    c1:char;
    c:byte;
begin
writeln('Введите текст');
readln(s1);
i:=ord(s1[0,]);
for i:=1 to i;
  do begin
  b1:=ord(<[i]);
  b1:=b1-32
  c1:=c1R(b1);
  s[i]=c1;
  writeln('Результат',s1);
  readln;
  end.

@Puporev · 04.09.2012, 19:02

Mirazhana, Паскаль какой?

@Mirazhana · 04.09.2012, 19:08 **[ТС]**

Turbo Pascal

@Puporev · 04.09.2012, 19:11

Pascal

uses crt;
var s:string;
    n,i:byte;
begin
clrscr;
writeln('Введите текст на русском языке:');
readln(s);
n:=ord(s[0]);
for i:=1 to n do
if s[i] in ['а'..'п'] then s[i]:=chr(ord(s[i])-32)
else if s[i] in ['р'..'я'] then s[i]:=chr(ord(s[i])-80)
else if s[i]='ё' then s[i]:='Ё'
else if s[i] in ['А'..'П'] then s[i]:=chr(ord(s[i])+32)
else if s[i] in ['Р'..'Я'] then s[i]:=chr(ord(s[i])+80)
else if s[i]='Ё'then s[i]:='ё';
write(s);
readln
end.

@Mirazhana · 04.09.2012, 19:15 **[ТС]**

Спасибо большое ^_^

@Puporev Почетный модератор 64303 / 47600 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	04.09.2012, 19:02	2
	Mirazhana, Паскаль какой? 0

@Mirazhana 1 / 1 / 0 Регистрация: 04.09.2012 Сообщений: 94
	04.09.2012, 19:08 [ТС]	3
	Turbo Pascal 0

@Mirazhana 1 / 1 / 0 Регистрация: 04.09.2012 Сообщений: 94
	04.09.2012, 19:15 [ТС]	5
	Спасибо большое ^_^ 0

Смена регистра введенного текста

Решение