Помогите, пожалуйста, решить задачу с обработкой массивов типа "запись"..., 3 Опции

[Snake]

Помогите написать программу!

3. Подготовить файл с анкетными данными своих ближайших pодственников. Анкетные данные должны содеpжать:
- фамилию, имя, отчество
- степень pодства (мать, отец, брат, сестpа и т.д.)
- гоpод пpоживания
- год pождения
- социальное положение
Сфоpмиpовать новый файл, содеpжащий сведения о родственниках-пенсионеpах. Входные данные после записи их в файл при дальнейшем решении задачи считывать из файла. Решить с использованием процедур и функций и типом "запись". С записями использовать оператор with

Заранее огромное Вам спасибо!!!

Сообщение отредактировано: Snake - 8.06.2007 17:48

[Andrewshkovskii]

Ну тут ,как по заданию видно,надо использовать неоднородные структуры данных,типа запись (record).
У тебя будет 1 тип записей,и 1 массив :

 
const
 n=10;
 nowyear=2007;  
BlijRods= record
              FIO:string;
              rods:string;
              Hometown:string;
              yofb:integer;
              SocP:string;
              Age:byte;
              Flg:byte; {флаг,если 1 то пенсионер,если 0 то нет}
             end;
    Arr = array [1..n] of BlijRods;

После ввода делаешь цикл отбора пенсионеров(для начала,вычисли возрасткаждого из родственников),что-то типа

 for i:=1 to n do
  begin
    arr[i].Age:=nowyear-yofb;
  end;

После отбирай пенсионеров, что-то вроде этого :

for i:=1 to n do
 begin
  if arr[i].Age>60 then
   arr[i].Flg:=1
   else
    arr[i].Flg:=0;
  end;

ну и вот ты теперь знаешь,кто пенсионер ,а кто нет.записывай в файл по условию

 for i:=1 to n do
  begin
   if arr[i].Flg=1 then {Тут !!процедура!!(напиши сам) записи в файл}

Я бы так сделал..может это и не очень оптимальный вариант..

Сообщение отредактировано: Andrewshkovskii - 8.06.2007 16:10

[Snake]

Код

if arr[i].Flg=1 then {Тут !!процедура!!(напиши сам) записи в файл}

Еще бы знать что-то о Паскале )) Я не "сам", я - "сама"
Неужели нет каких-нибудь уже готовых похожих программ где-нибудь?!