Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Все лабораторные работы по паскалю / 5 лаб. Файлы текстовые / Program5
.pas uses crt;
Var t1,t2: Text;
s: Char;
begin
begin
Assign(t1,'51.txt');
Reset(t1);
Assign(t2,'52.txt');
Rewrite(t2);
While not Eof(t1) do
begin
Read(t1,s);
s:=UpCase(s);
Write(t2,s);
end;
Close(t1);
Close(t2);
end;
Readln;
end.
Var t1,t2: Text;
s: Char;
begin
begin
Assign(t1,'51.txt');
Reset(t1);
Assign(t2,'52.txt');
Rewrite(t2);
While not Eof(t1) do
begin
Read(t1,s);
s:=UpCase(s);
Write(t2,s);
end;
Close(t1);
Close(t2);
end;
Readln;
end.
Соседние файлы в папке 5 лаб. Файлы текстовые