Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

066536 / 482

.txt
Скачиваний:
29
Добавлен:
09.06.2015
Размер:
1.2 Кб
Скачать
program task482;
uses
Crt;
var
inF:text;
outF:text;
inFName,outFName:string;
ch:char;
begin
ClrScr; {®зЁбвЄ  нЄа ­ }
write('‚ўҐ¤ЁвҐ Ё¬п ўе®¤­®Ј® д ©« : ');
readln(inFName);
assign(inF,inFName);
{$I-}
reset(inF); {®вЄалвм д ©« ­  з⥭ЁҐ}
{$I+}
if IOResult<>0 then begin
writeln('ЋиЁЎЄ  ®вЄалвЁп д ©«  ­  з⥭ЁҐ!!!');
end
else begin
write('‚ўҐ¤ЁвҐ Ё¬п ўл室­®Ј® д ©« : ');
readln(outFName);
assign(outF,outFName);
{$I-}
rewrite(outF); {®вЄалвм д ©« ­  § ЇЁбм}
{$I+}
if IOResult<>0 then begin
writeln('ЋиЁЎЄ  ®вЄалвЁп д ©«  ­  § ЇЁбм!!!');
close(inF);
end
else begin
while not EOF(inF) do begin
read(inF,ch);
if (ch in ['A'..'Z']) or (ch in ['Ђ'..'Џ']) then {ЇаҐ®Ўа §®ў ­Ёп}
ch:=chr(ord(ch)+32) {Їа®ЇЁб­®© ЎгЄўл}
else if ch in ['ђ'..'џ'] then {ў бва®з­го ¤«п « вЁ­бЄЁ©е}
ch:=chr(ord(ch)+80); {Ё агббЄЁе ЎгЄў}
write(outF,ch);
end;
close(inF);
close(outF);
end;
end;
write('„«п ўл室  ­ ¦¬ЁвҐ «оЎго Є« ўЁиг ...');
readkey;
end.
Соседние файлы в папке 066536