Type tBook = record author: string[20]; title: string[30]; year: integer end;
var f1: file of tBook;
function k2000(): integer; { файл должен быт открыт на чтение } var k: integer; book: tBook; begin while not Eof(f1) do begin Read(f1, book); if book.year < 2000 then k := k + 1 end; k2000 := k end;
var B: tbook;
begin Assign(f1, 'books.000'); Rewrite(f1); Writeln('Для книги вводите в трех строках: автор, название, год издания'); Writeln('Введите * для завершения ввода'); repeat Readln(B.author); if B.author[1] <> '*' then begin Readln(B.title); Readln(B.year); Write(f1, B) end until B.author[1] = '*'; Close(f1); Write('Количество книг, изданных до 2000г равно '); Reset(f1); Writeln(k2000); Close(f1) end.
Пример диалога с программой: Для книги вводите в трех строках: автор, название, год издания Введите * для завершения ввода Александр Грин Бегущая по волнам 1984 Эдгар Аллан По Золотой жук 2002 Луи Буссенар Капитан Сорви-голова 1997 Гарри Гаррисон Крыса из нержавеющей стали 2007 А. и Б. Стругацкие Сказка о Тройке 1974 * Количество книг, изданных до 2000г равно 3
Я на винде несижу уже давно, поэтому могу ответить не правильно. 1 чтобы создать 7zip: - скачать 7zip - выделить необходимый файл(ы) - правая кнопка по ним - в панеле щелк на 7-zip - создать архив... 2 отличие в том, что SFX - самораспаковывающийся архив. 3 чтобы создать зашифрованый архив, необходимо в процессе создания архива щелкнуть по ZIP => Дополнительно => Установить пароль 4 в процессе создания архива: - УСтановить разделение тома с размером (выбрать какой) - Галка на "Добавить информацию для восстановления" - Галка на "Протестить"
На фото всё написано