Составление программ для задач: Записи [Паскаль]

[KatrinKe]

1.Составить программу обслуживания соревнований по прыжкам в высоту.Для каждого выступающего спортсмена в компьютер вводится фамилия и результат.На экране должны появляться фамилия и результат лучшего на данном этапе.
2.Пассажирский самолёт может поднять груз общим весом 30 тонн.Составить программу для определения веса почтового груза,который можно поместить в самолёт после посадки пассажиров и загрузки их богажа.Во время регистрации пассажиров компьютер должен подсчитать количество пассажиров(условный вес одного пассажира 100 кг) и суммировать вес богажа...

[Stilet]

Так а чем помочь то? Примеры то есть в интернете по работе с записями.
У тебя есть какие-нибудь наброски?

[KatrinKe]

Конешно)))
я начала решать задачу 1. я сделала вот(хрень какаето) :

program qq;
uses crt;
var с: char;
max,k,a,i: integer;
luch, fam: string;
begin
writeln ('Vvedite kol-vo sportsmenov');
readln (a);
max:=-1;
for i=1 to a do begin
repeat writeln ('vvedite familiu i rezultat');
fam:=' ';
repeat 
read (c);
end;
fam:=fam+c;
until c= ' ';
readln (k);
if k> max then begin
luch:=fam; max:=k;
end;
writeln ('Luchshiy: 'luch, max);
end.

Я даже не проверяла...(((наврятли правильно...
А вот вторую задачу как сделать незнаю(((

[alex_fcsm]

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

1. я сделала вот(хрень какаето) :

Не я это сказал,но согласен

В упор не вижу записей

[rubius2008]

1. понадобится следующий тип-запись и массив

type res=record;
      f:string;
      r:real;
     end;

var r:array [1..100] of res;

2. тут следующий

type pas=record;
      f:string;
      v:real;
     end;
var p:array [1..100] of pas;

почти тоже)
2 задачу решить не сложно перемножешь количество пассажиров на 100 + сумма значений веса багажа (поле v), результат вычтишь из 30000

[Prime123]

А как обращаться к полям записи вы знаете?

[andrewpalkin]

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

Я даже не проверяла...(((наврятли правильно...

А зачем просить помощи , если ты не проверяла даже то , что ты сама написала .

[KatrinKe]

alex_fcsm
я в Паскеле плохо разбираюсь...если честнее сказать, вообще 0...

[alex_fcsm]

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

alex_fcsm
я в Паскеле плохо разбираюсь...если честнее сказать, вообще 0...

Тогда вам либо во фриланс либо искать альтруистов

[KatrinKe]

rubius2008, т.е. остальных переменных уже не надо?? Допустим кол-во спорстменов?