Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:066536 / 482
.txt 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.
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