8. Моделирование текстового редактора.
Паскаль АВС
Напишите процедуру Save с параметрами: сохраняемый массив, количество строк в массиве, имя файла для сохранения. Перед вызовом процедуры обеспечьте диалог с пользователем для выбора имени файла.
Паскаль АВС
Напишите процедуру Save с параметрами: сохраняемый массив, количество строк в массиве, имя файла для сохранения. Перед вызовом процедуры обеспечьте диалог с пользователем для выбора имени файла.
More Questions From This User See All
Answers & Comments
n=5;
type
ta=array[1..n] of string;
var ar:ta;i:integer;
path:string;
procedure Save(ar:ta;n:integer;path:string);
var i:integer;
f:text;
begin;
assign(f,path);
rewrite(f);
for i:=1 to n do
writeln(f,ar[i]);
close(f);
end;
begin;
writeln('Введите массив:');
for i:=1 to n do
readln(ar[i]);
writeln('Введите путь к файлу:');
readln(path);
Save(ar,n,path);
end.