8. Моделирование текстового редактора. Паскаль АВС Напишите процедуру Save с параметрами:...

Question

8. Моделирование текстового редактора.
Паскаль АВС
Напишите процедуру Save с параметрами: сохраняемый массив, количество строк в массиве, имя файла для сохранения. Перед вызовом процедуры обеспечьте диалог с пользователем для выбора имени файла.

Answer 1

Const
 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.