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

[марфаз]

так Вы напишите программу?

Serge_Bliznykov помогите пожалуйста

ZX Spectrum-128 напишите программу пожалуйста хотя бы с ошибкой я найду ошибку и вам скажу

[Аватар]

OFFTOP

так Вы напишите программу?

Подайте на пропитание

[ZX Spectrum-128]

Сообщение от марфаз

так Вы напишите программу?

Да. Напишу. Я не посмотрел, что только год рождения.

[марфаз]

ZX Spectrum-128 СПАСИБО ВАМ ОГРОМНОЕ ПРИ ОГРОМНОЕ ЧЕЛОВЕЧЕСКОЕ СПАСИБО ))))))))))))))))))))))))))))))))))) )))))))))))))))))))))))))

ZX Spectrum-128 мне сегодня вечером уже нужна задача

Аватар не смешно , вас девушка попросила о помощи

ZX Spectrum-128 вы пошутили да???на счет того что напишите

[ZX Spectrum-128]

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

ЗАДАНИЕ: 1) имя объекта : служащий ; 2) поля записи :
а) ФИО б) название отдела в) год рождения г) стаж работы д) должность
е) пол ;
3) задачи обработки : распечатать список сотрудников пенсионного
возраста на сегодняшний день с указанием стажа работы.}
uses
  dos,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;
  GetDate(Year,Month,Day,WDay);
  (* Чтение из файла и вывод по условию *)
  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 ошибку выдает
Program1.pas(2) : Модуль 'dos' не найден

как убрать эту ошибку

[ZX Spectrum-128]

Вы в каком паскале работаете? Моя программа в fpc в режиме
Совместимости с турбо паскалем

[марфаз]

я в Pascal ABC.NET

ZX Spectrum-128 одну ошибку нашла, это со скобками фигурными а вот этот вторая строка Модуль 'dos' не найден что за ошибка

[Poma][a]

Удалите Dos.. и посмотрите в справке, где находится GetDate

[марфаз]

GetDate такого вообще нет

ничего не работает

ZX Spectrum-128 не знаешь как убрать эту ошибку