Если файла с фамилиями ещё нет, то создать его и добавить фамилии трех и потом двух студентов - Turbo Pascal
Формулировка задачи:
Есть программа, которая создает файл с фамилиями 3-х студентов и после добавляет фамилии ещё 2-х.
Нужно изменить программу следующим образом: если файла с фамилиями ещё нет,то создать его и добавить фамилии трех и потом двух студентов, а если файл уже создан,то просто добавить в нему фамилии 2х студентов
Решение задачи: «Если файла с фамилиями ещё нет, то создать его и добавить фамилии трех и потом двух студентов»
textual
Листинг программы
uses crt; const nmax=20; var f:text; s,st:string; i,n,k:integer; c:char; begin clrscr; repeat write('Колс-вто фамилий для записи в файл n='); readln(n); until n in [1..nmax]; write('Введите имя файла для записи :'); readln(st); st:=st+'.txt'; assign(f,st); {$I-}reset(f);{$I+} if IOresult<>0 then begin writeln('Файл ',st,' не найден !'); write('Создать файл с имменем ',st,' ? Y/N = '); readln(c); if (c='Y') or (c='y') then begin rewrite(f); for i:=1 to n do begin write('Введите фамилию студента - '); readln(s); writeln(f,s); end; writeln('Запись завершенна !'); end else begin writeln('Программа завершена ! Нажмите любою клавишу..'); readkey; exit; end; end; write('Добавить студентов в файла ? Y/N = '); readln(c); if (c='Y') or (c='y') then begin repeat write('Сколько добавит студентов n='); readln(k); until k in [1..nmax]; end else begin writeln('Содержание в файле ',st,' . Нажмите любую клавишу .'); readkey; exit; end; close(f); append(f); for i:=1 to k do begin write('Введите фамилию студента - '); readln(s); writeln(f,s); end; writeln('Запись завершенна !'); writeln('Содержание в файле ',st,' . Нажмите любую клавишу .'); close(f); readkey; end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д