Составить программу создания файла на языке pascal , содержащего сведения для объектов. программа должна обеспечить ввод исходных

[марфаз]

а если в писке вообще нет пенсионеров . то тогда что , надо как -то это обозначить

[марфаз]

все равно в результате ничего не выводит , ввожу и года как сказали потом ENTER и все пишут программа завершена

[ZX Spectrum-128]

Введите
Иванов иван иванович ...
Год рождения - 1923
Пол мужской - наберите маленькую русскую букву м

[ZX Spectrum-128]

Вот код

{Составить программу создания файла на языке pascal , содержащего сведения
для объектов. программа должна обеспечить ввод исходных данных с клавиатуры ,
запись исходной информации в файл , чтение и печ
ать созданного файла. Выполнить программу обработки файла.

ЗАДАНИЕ: 1) имя объекта : служащий ; 2) поля записи :
а) ФИО б) название отдела в) год рождения г) стаж работы д) должность
е) пол ;
3) задачи обработки : распечатать список сотрудников пенсионного
возраста на сегодняшний день с указанием стажа работы.}
uses
  crt;
const
  n=2;
type
  sluzh=record
    fam,im,ot:string[64];
    nazv_otd:string[128];
    gd:integer;
    stazh:integer;
    dolzh:string[128];
    pol:string[1];
  end;
var
  spisok:array[1..n] of sluzh;
  chel:sluzh;
  f:file of sluzh;
  i:integer;
  razn:integer;
  Year,Month,Day,WDay : word;
begin
  (* Ввод данных с клавиатуры и запись в файл *)
  assign(f,'spisok.dat');
  rewrite(f);
  for i:=1 to n do
    begin
      clrscr;
      writeln('Введите данные по ',i,'-му работнику.');
      write('Введите фамилию: '); readln(chel.fam);
      write('Введите имя: '); readln(chel.im);
      write('Введите отчество: '); readln(chel.ot);
      write('Введите название отдела: '); readln(chel.nazv_otd);
      write('Введите год рождения: '); readln(chel.gd);
      write('Введите стаж: '); readln(chel.stazh);
      write('Введите должность: '); readln(chel.dolzh);
      write('Введите пол (м - мужской, ж - женский): '); readln(chel.pol);
      write(f,chel); { записали данные в файл}
    end;
  close(f);

  clrscr;
  year:=2013;
  (* Чтение из файла и вывод по условию *)
  reset(f);
  while not eof(f) do
    begin
      read(f,chel);
      razn:=year-chel.gd;
      if ((razn>55) and (chel.pol='ж')) or ((razn>60) and (chel.pol='м')) then
          writeln(chel.fam,' ',chel.im,' ',chel.ot,', стаж работы: ',chel.stazh);
    end;
  close(f);
end.

[ZX Spectrum-128]

Результат работы

[марфаз]

спасибки , больше вопросов нет)

[марфаз]

ZX Spectrum-128 привет, есть вопрос по программе которую вы написали, как в программе сделать так что бы в ней создать файл, к которому в последствии можно будет обращаться а не вводить каждый раз данные , т.е чтобы данные которые я ввожу не удалялись , и убрать константу чтобы ввод данных был для любого количества

[марфаз]

и еще все данные которые ввожу их можно было бы посмотреть

[ZX Spectrum-128]

Скопировать первую половину программы в другую. Один раз запустить ее. Файл будет создан.
А в этой программе заменить rewrite на reset. И тогда можно будет добавлять.
Константу n во второй программе Заменить на нужное число.

Счас хоккей смотрю, после 21.00 мск покажу как сделать

[Poma][a]

За такие вопросы нужно уже платить.. не потому что, они слишком сложные, а потому что Вы сами можете это сделать.. но ввиду определенных факторов (не желание открыть учебник) не можете..