Описать процедуру prisv (t1,t2)переписывающую содержимое текстового файла t2 в текстовый файл t1 (с сохранением деления на строки)
10-11 класс
|
procedure prisv(t1,t2:string);
var
f1,f2:text;
s:string;
begin
assign(f2,t2);
reset(f2);
assign(f1,t1);
rewrite(f1);
while not eof(f2) do
begin
readln(f2,s);
writeln(f1,s);
end;
close(f1);
close(f2);
end;
procedure Prisv(t1, t2: Text);
var
s: string;
begin
Reset(t2);
Rewrite(t1);
while not eof(t2) do
begin
readln(t2, s);
writeln(t1, s)
end;
Close(t1);
Close(t2)
end;
Пример вызова процедуры для перезаписи файла:
var
f1, f2: Text;
begin
Assign(f1, 'input.txt');
Assign(f2, 'output.txt');
Prisv(f2, f1);
end.
Другие вопросы из категории
единиц. Если таких чисел несколько, укажите наибольшее из них.
1) 3110 * 810 + 110 2) F016 + 110 3) 3518 4) 111000112
Решение напишите здесь а сам график скиньте пожалуйста документом на мыло:
[email protected]
Умоляю...вопрос жизни и смерти
Читайте также
B, C), меняющую содержимое переменных A, B, C таким
образом, чтобы их значения оказались упорядоченными по возрастанию (A, B,
C — вещественные параметры, являющиеся одновременно входными и
выходными). С помощью этой процедуры упорядочить по возрастанию два данных
набора из трех чисел: (A1, B1, C1) и (A2, B2, C2).
цифр S целого числа N (N — входной, S — выходной
параметр). Используя эту процедуру, найти суммы цифр пяти данных чисел.
А) открытие нового текстового окна;
Б) выбор соответствующего пункта меню;
В) выделение копируемого фрагмента;
Г) запись исходного текста на диск.
соответственно t1, t2 и t3 ч. Написать программу определяющую, какой путь прошел пешеход? 2. Написать программу, вычисляющую путь, пройденный лодкой, если ее скорость в стоячей воде v км/ч, скорость течения реки v1 км/ч, время движения по озеру t1 ч, а против течения реки – t2 ч.
мин. соответственно. Какую сумму насчитает компьютер к оплате за каждый разговор в отдельности и за все вместе?