2 июня, 21:13

8. Моделирование текстового редактора.

Паскаль АВС

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

0
Ответы (1)
  1. 2 июня, 21:20
    0
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «8. Моделирование текстового редактора. Паскаль АВС Напишите процедуру Save с параметрами: сохраняемый массив, количество строк в массиве, ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы