Developing.ru

Задача в паскале
Привет всем! Вот у меня большая проблема с паскалем, ничего не понимаю, совсем!!!! Помогите решить задачку, а до зачёта осталось очень мало времени, а без вас ничего сделать не смогу!!!
Вот условие:
Сохранить в типизированный файл информацию о нескольких сотрудниках (ФИО, год рождения, пол) и по запросу выдать список людей не моложе 20 лет

Сдается мне, что где-то я уже это видел...
Подобных задач на форуме решено уже куча.
Что именно вам непонятно?

да я немогу найти подобной...я одну нашёл, но я даже там немог разобраться

Задача на самом деле одна из простейших, действительно не понимаю, что тут сложного. Всю необходимую информацию можно найти в любом самоучителе, если нет такого - яндекс поможет.
[syntax='Delphi']
Type
TPerson=record
FIO:string[30];
Age:integer;
Pol:char;
end;

var
F:File of TPerson;
I:integer;
N:integer;
P:TPerson;

begin
Writeln('Введите число записей');
ReadLn(N);
Assign(F,'File.dat');
Rewrite(F);

for I:=1 to N do
begin
WriteLn('Ввод записи № ',I);
WriteLn('-----------------');
WriteLn('Фамилия, имя и отчество:');
ReadLn(P.FIO);
WriteLn('Пол (М/Ж):');
ReadLn(P.Pol);
WriteLn('Возраст:');
ReadLn(P.Age);
WriteLn;
Write(F,P);
end;
Close(F);

WriteLn('Удовлетворяют запросу:');
WriteLn;
Assign(F,'File.dat');
Reset(F);
while Not EOF(F) do
begin
Read(F,P);
if P.Age >= 20 then
begin
WriteLn;
WriteLn('ФИО: ',P.FIO);
WriteLn('Пол: ',P.Pol);
WriteLn('Возраст:',P.Age);
end;
end;
Close(F);
ReadLn;
end.


[/syntax]

большое тебе спасибо...ну для тебя может и простая, а я совсем 0... насчёт справочника, у меня книженция есть, я её читал, немного пробывал, но даже начать немогу

Normal писал(а):Задача в паскале
Вот у меня большая проблема с паскалем, ничего не понимаю, совсем!!!! Помогите решить задачку, а до зачёта осталось очень мало времени, а без вас ничего сделать не смогу!!!

«Сэр! Учился бы ты лучше плавать, а не английскому языку» ((c) З.Высоковский)

PS. А вот русскому не помешало бы.