Описать структуру с именем ZNAK. Паскаль

[Nyash]

Описать структуру с именем ZNAK, содержащую следующие поля:
- фамилия, имя;
- знак Зодиака;
- дата рождения (массив из трех чисел).
Написать программу, выполняющую следующие действия с помощью
процедур или функций:
- ввод с клавиатуры данных в файл, состоящий из элементов типа ZNAK;
записи должны быть упорядочены по датам рождения;
- чтение данных из этого файла;
- вывод на экран информации о человеке, чья фамилия введена с клавиа-
туры;
- если такого нет, выдать на дисплей соответствующее сообщение. :conf used:

[Вадим Мошев]

Я могу решить вам эту задачу небольшое денежное вознаграждение.
Пишите на vadimFreelance {(coбака)} yandex ({тчk) ru

Подробнее по ссылке у меня в подписи.

[Nyash]

Это форум бесплатной помощи или я ошиблась?

[Вадим Мошев]

Ситуация следующая.
Сложность и/или объём задачи обратно пропорциональны вероятности того, что вам напишут готовую программу просто так. Сложность у вашей программы - крайне невысокая, но объём у неё я бы сказал те такой, чтобы писать готовые решения просто так.

Помощь, конечно, бесплатна, но под помощью подразумевается, что вы публикуете свои наработки и/или задаёте конкретные вопросы что не работает, с чем не можете разобраться, вам помогают и консультируют, дают советы. Это бесплатно.

Просто у всех очень велик соблазн отождествлять помощь с решением задач другому человеку.

[Stilet]

Это форум бесплатной помощи или я ошиблась?

Я помогу тебе, но хотелось бы увидеть твои попытки.

[Nyash]

Сообщение от Stilet

Я помогу тебе, но хотелось бы увидеть твои попытки.

program zznak;
uses crt;
const zodiak:array[0..11] of string = ('Vodoley (21.01-19.02)','Ribi (20.02-20.03)','Oven (21.03-20.04)','Telec (21.04-21.05)',
'Blizneci (22.05-21.06)','Rak (22.06-22.07)','Lev (23.07-23.08)','Deva (24.08-23.09)',
'Vesi (24.09-23.10)','Skorpion (24.10-22.11)','Strelec (23.11-21.12)','Kozerog (22.12-20.01)');
n=2;
type znak=record
     zodiak:string[30];{data:array[1..3] of integer;}
     First_name:string[15];
     Last_name:string[15];
     birthday: record
               day:1..31;
               month:1..12;
               year:integer;
     Znak:char;
     end;
end;
var
    F:file of znak;   {File dlia xraneniia bazi Znak}
    a:array[1..n]of znak;
    elem1,elem2:znak;
Procedure create_file;
begin
seek(f,filezise(f));
writeln('введите сведения о человеке');
If Elem1.FIO='*' Then Break;
while true do
begin
writeln ('введите фамилию и имя');
readln(elem1.first_name);
readln(elem1.last_name);
writeln('введите дату рождения');
readln(elem1.birthday.day);
readln(elem1.birthday.month);
readln(elem1.birthday.year);
writeln('введите знак');
readln(elem1.znak);
end;
end;
end.

Далее я затрудняюсь

[Stilet]

Угу. Не особо проверяя твой вариант предлагаю следующее:

program Project1;

const zodiak:array[0..11] of string = ('Vodoley (21.01-19.02)','Ribi (20.02-20.03)','Oven (21.03-20.04)','Telec (21.04-21.05)',
'Blizneci (22.05-21.06)','Rak (22.06-22.07)','Lev (23.07-23.08)','Deva (24.08-23.09)',
'Vesi (24.09-23.10)','Skorpion (24.10-22.11)','Strelec (23.11-21.12)','Kozerog (22.12-20.01)');
n=2;
type znak=record
     zodiak:string[30];{data:array[1..3] of integer;}
     FIO:string[45];
     birthday: record
               day:1..31;
               month:1..12;
               year:integer;
     end;
end;
var
    F:file of znak;   {File dlia xraneniia bazi Znak}
    a:array[1..n]of znak;
    elem1,elem2:znak;
Procedure create_file;
begin
  assign(f,'f'); rewrite(f);
  writeln('введите сведения о человеке');
  while true do  begin
    If Elem1.FIO='*' Then Break;
    writeln ('введите фамилию и имя');
    readln(elem1.FIO);
    writeln('введите дату рождения');
    readln(elem1.birthday.day);
    readln(elem1.birthday.month);
    readln(elem1.birthday.year);
    writeln('введите знак');
    readln(elem1.zodiak);
    write(f,elem1);
  end;
  close(f);
end;

Procedure read_file;  {чтение данных из этого файла}
begin
  assign(f,'f'); reset(f);
  while not eof(f) do  begin
    read(f,elem1);
    with elem1 do
     writeln (FIO,birthday.day:10,'.',birthday.month,'.',birthday.year,zodiak:20);
  end;
  close(f);
end;

Procedure read_man;  {вывод на экран информации о человеке, чья фамилия введена с клавиа-
туры}
var s:string; b:boolean;
begin
  assign(f,'f'); reset(f);
  write('фио: ');readln(s); b:=false;
  while not eof(f) do  begin
    read(f,elem1);
    with elem1 do
     if FIO=s then begin
      writeln (FIO,birthday.day:10,'.',birthday.month,'.',birthday.year,zodiak:20);
      b:=true;
     end;
  end;
  close(f);
  if not b then writeln('Такого нет');
end;
begin
  create_file;  read_file;    read_man; readln;
end.

Вопрос остается в сортировке. Пока не очень понятно как твой преподаватель хочет ее получить.

[Nyash]

Сообщение от Stilet

Вопрос остается в сортировке. Пока не очень понятно как твой преподаватель хочет ее получить.

сортировку прямого выбора можно, либо вставки

благодарю вас

[Stilet]

сортировку прямого выбора можно, либо вставки

Не. Ты не поняла. Ладно, стелепатирую:

Procedure create_file;
var z:array of znak;   i,j:integer;
begin

  writeln('введите сведения о человеке');
  while true do  begin    SetLength(z,Length(z)+1);
    If Elem1.FIO='*' Then Break;
    writeln ('введите фамилию и имя');
    readln(z[High(z)].FIO);
    writeln('введите дату рождения');
    readln(z[High(z)].birthday.day);
    readln(z[High(z)].birthday.month);
    readln(z[High(z)].birthday.year);
    writeln('введите знак');
    readln(z[High(z)].zodiak);
  end;
  for i:=Low(z) to High(z) do begin
    for j:=Low(z) to High(z) do begin
     if (z[i].birthday.day<z[j].birthday.day) or
        (z[i].birthday.month<z[j].birthday.day) or
        (z[i].birthday.year<z[j].birthday.year) then
       elem1:=z[i]; z[i]:=z[j];z[j]:=elem1;
    end;
  end;

  assign(f,'f'); rewrite(f);
  for i:=Low(z) to High(z) do write(f,z[i]);
  close(f);
end;

[Nyash]

Сообщение от Stilet

Не. Ты не поняла. Ладно, стелепатирую:

а, все, дошло, благодарю вас