Скачиваний:
288
Добавлен:
04.03.2014
Размер:
3.41 Кб
Скачать
program lab1;
uses crt;
var fold,fnewb,fnewc:text;
f1,f2,f3:string;
nob,noc:integer;
c:char;
b:boolean;

procedure up;
begin
case c of
'©': c:='‰';
'ж': c:='–';
'г': c:='“';
'Є': c:='Љ';
'Ґ': c:='…';
'­': c:='Ќ';
'Ј': c:='ѓ';
'и': c:='';
'й': c:='™';
'§': c:='‡';
'е': c:='•';
'к': c:='љ';
'д': c:='”';
'л': c:='›';
'ў': c:='‚';
' ': c:='Ђ';
'Ї': c:='Џ';
'а': c:='ђ';
'®': c:='Ћ';
'«': c:='‹';
'¤': c:='„';
'¦': c:='†';
'н': c:='ќ';
'п': c:='џ';
'з': c:='—';
'б': c:='‘';
'¬': c:='Њ';
'Ё': c:='€';
'в': c:='’';
'м': c:='њ';
'Ў': c:='Ѓ';
'о': c:='ћ';
end;
c:=upcase(c);
write (fnewb,c);
b:=false;
end;

procedure down;
begin
case c of
'‰': c:='©';
'–': c:='ж';
'“': c:='г';
'Љ': c:='Є';
'…': c:='Ґ';
'Ќ': c:='­';
'ѓ': c:='Ј';
'': c:='и';
'™': c:='й';
'‡': c:='§';
'•': c:='е';
'љ': c:='к';
'”': c:='д';
'›': c:='л';
'‚': c:='ў';
'Ђ': c:=' ';
'Џ': c:='Ї';
'ђ': c:='а';
'Ћ': c:='®';
'‹': c:='«';
'„': c:='¤';
'†': c:='¦';
'ќ': c:='н';
'џ': c:='п';
'—': c:='з';
'‘': c:='б';
'Њ': c:='¬';
'€': c:='Ё';
'’': c:='в';
'њ': c:='м';
'Ѓ': c:='Ў';
'ћ': c:='о';

'Q': c:='q';
'W': c:='w';
'E': c:='e';
'R': c:='r';
'T': c:='t';
'Y': c:='y';
'U': c:='u';
'I': c:='i';
'O': c:='o';
'P': c:='p';
'A': c:='a';
'S': c:='s';
'D': c:='d';
'F': c:='f';
'G': c:='g';
'H': c:='h';
'J': c:='j';
'K': c:='k';
'L': c:='l';
'Z': c:='z';
'X': c:='x';
'C': c:='c';
'V': c:='v';
'B': c:='b';
'N': c:='n';
'M': c:='m';
end;
write (fnewb,c);
end;
begin
b:=true;
noc:=0;
nob:=0;
clrscr;
write ('‚ўҐ¤ЁвҐ Ё¬п д ©«  ¤«п Є®а४樨 агббЄ®Ј® п§лЄ : ');
readln (f1);
assign (fold,f1);
write ('‚ўҐ¤ЁвҐ Ё¬п ўл室­®Ј® д ©«  ЎгЄў: ');
readln (f2);
assign (fnewb,f2);
write (' д ©« жЁда: ');
readln (f3);
assign (fnewc,f3);
reset (fold);
rewrite (fnewb);
rewrite (fnewc);
repeat
read (fold,c);
case c of
' ' : write (fnewb,c);
'.' : begin
b:=true;
write (fnewb,c);
end;
'1','2','3','4','5','6','7','8','9','0' : begin
write (fnewc,c);
noc:=noc+1;
end;
else begin
if not (ord(c)=13) then begin
if b=true then up else down;
nob:=nob+1;
end;
end;
end;
until eof (fold);
writeln;
writeln ('Љ®«ЁзҐбвў® ЎгЄў = ',nob);
writeln ('Љ®«ЁзҐбвў® жЁда = ',noc);
textcolor(blue);
textbackground(white);
window (1,10,80,15);
clrscr;
reset (fnewb);
repeat
read (fnewb,c);
write (c);
until c='.';
readln;
close (fnewc);
close (fnewb);
end.
Соседние файлы в папке Alex