Программка про записи на Паскале....

[Solny6ko YasnoE]

Дорогие мои!!!!! Помогите мне пожалуйста с решением задачки на ПАСКАЛЕ про записи....

Тут вот такая задачка:

Написать программу, которая формирует массив записей данной структуры:
Type Passenger = Record
Name : String[15];
Trip : integer;
Weight : integer;
End;
и определяет:
- номер рейса с максимальным суммарным весом багажа;
- список пассажиров, улетающих данным рейсом;
- список пассажиров, вес багажа которых не превышает заданного числа;

Пожалуйста, помогите, очень прошу!!!!

[chingiz]

Писать данную программу некогда, но покажу типо подобную, думаю разобраться в ней и сделать свою будет не очень сложно.
***************
program zad_8;
uses
crt;
type
{тип даты рождения}
Dates = record
Day: 1..31;{число рождения}
Month: 1..12;{месяц рождения}
YEAR: integer;{год рождения}
end;
{тип фамилия, имя}
Persons = record
Famili:string;{фамилия}
Name: string;{имя}
end;
{тип записи о студенте}
students = record
Person: Persons;{фамилия,имя}
Date: Dates;{дата рождения}
Kurs: byte;{номер курса}
end;
var
student: array [1..4] of students;{массив записей о студенте}
I: byte;{счетчик цикла}
begin
{заполняем массив данными о студентах}
student[1].date.day:=18;
student[1].date.Month:=9;
student[1].date.Year:=1981;
student[1].person.famili:='Иванов';
student[1].person.Name:='Александр';
student[1].Kurs:=1;
student[2].date.day:=25;
student[2].date.Month:=3;
student[2].date.Year:=1981;
student[2].person.famili:='Петров';
student[2].person.Name:='Виктор';
student[2].Kurs:=1;
student[3].date.day:=3;
student[3].date.Month:=10;
student[3].date.Year:=1982;
student[3].person.famili:='Сидоров';
student[3].person.Name:='Алексей';
student[3].Kurs:=2;
student[4].date.day:=7;
student[4].date.Month:=9;
student[4].date.Year:=1982;
student[4].person.famili:='Максимов';
student[4].person.Name:='Александр';
student[4].Kurs:=1;
clrscr; {очищаем экран}
{выводим на экран данные о всех студентах}
for i:=1 to 4 do {используя цикл}
begin
write('Студент:',' ',student[i].person.Name);
writeln(' ',student[i].person.famili);
write('Родился: '); writeln(student[i].date.day,'.',student[i].date.Month,'.',student[i].date.Year); writeln('Учится на ',student[i].Kurs,' курсе');
writeln;
end;
{выводим на экран студентов, удовлетворяющих критериям поиска}
writeln('Кто из студентов первого курса родился в сентябре ?');
for i:=1 to 4 do
begin
if student[i].Kurs = 1 then {если студент учится на первом курсе то}
if student[i].date.Month = 9 then {если студент родился в сентябре}
{выводим на экран результаты поиска в массиве}
writeln(student[i].person.Name,' ',student[i].person.Famili);
end;
readln;
end.

[CMP]

2Александр Чиндяев Пример неподходит твой.это же программист забивает имена ,а не юзер!К тому же с массивом прогу с записями, это надо с файлом делать.
Вот мой старый пример про аптеку ,смысл тот же.Кстати на 2-м курсе писал тоже про аэрофлот
http://programmersforum.ru/attachmen...1&d=1180011050
Надеюсь ты сама сможешь изменить данные аптеки под аэрофлот?

[chingiz]

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

2Александр Чиндяев Пример неподходит твой.это же программист забивает имена

Что было то дал, Насчет заполнения массива согласен, когда писалась эта прога задачей была выборка из массива записей по заданным критериям - хоть в этой части проги можно какуюто информацию слямзить? А готовые решения конечно хорошо, но гораздо полезнее когда сам додумываеш.