Тип "Запись" в Паскале. 6.(интересно)!!!

[d00ker]

Известна информация о багаже(количество вещей и общий вес багнажа) 24 пассажиров. Найти номерпассажира, в багаже которого средний вес дной вещи отличается от общего среднего веса одной вещи не более чем на 0,5 кг.

ЗЫ: нужен весь код программы!!!

[Sazary]

Похожая задача:
http://programmersforum.ru/showthread.php?t=46545

И вопрос: если такая "интересная", то что сами не решаете?

[Juffin]

type pass:record
              n:integer;//номер пассажира
              k:integer;//кол-во вещей
              m:integer;//масса вещей
var a:array[1..24] of pass;
     i,ob,kol:integer;
     srob,sr:real;
begin
ob:=0;
kol:=0;
for i:=1 to 24
do begin
    ob:=ob+a[i].m;
    kol:=kol+k;
sr:=ob/kol;
for i:=1 to 24
do begin
    if (pass[i].m/pass[i].k<=sr+0,5) and (pass[i].m/pass[i].k>=sr-0,5)
    then writeln('Passager №',pass[i].n);
    end;
end.

так работает?

[d00ker]

Похожая задача:
http://programmersforum.ru/showthread.php?t=46545

И вопрос: если такая "интересная", то что сами не решаете?

Решил поделиться со всеми

[Juffin]

какая цель темы? мы должны помочь тебе или просто сами подумать?

[d00ker]

Код:


type pass:record
n:integer;//номер пассажира
k:integer;//кол-во вещей
m:integer;//масса вещей
var a:array[1..24] of pass;
i,ob,kol:integer;
srob,sr:real;
begin
ob:=0;
kol:=0;
for i:=1 to 24
do begin
ob:=ob+a[i].m;
kol:=kol+k;
sr:=ob/kol;
for i:=1 to 24
do begin
if (pass[i].m/pass[i].k<=sr+0,5) and (pass[i].m/pass[i].k>=sr-0,5)
then writeln('Passager №',pass[i].n);
end;
end.

так работает?

Ошибка! Ругается на

type pass:record

"ожидалось равенство"=" ", это я исправил! еще ругаеться на то, что перед

var

не стоит

end;

, после редактирования, мне еще ругается на то, что дентификатор К неизвестен я не знаю что и поделать даже

[d00ker]

какая цель темы? мы должны помочь тебе или просто сами подумать?

цель такова, что мне нужна помощь! задача интересная ИМХО, но сам решить не могу! поэтому и написал тут!

[Juffin]

ок, понял, тогда версия 1.1

type pass=record
n:integer;//номер пассажира
k:integer;//кол-во вещей
m:integer;//масса вещей
end;
var a:array[1..24] of pass;
i,ob,kol:integer;
srob,sr:real;
begin
ob:=0;
kol:=0;
for i:=1 to 24
do begin
ob:=ob+a[i].m;
kol:=kol+a[i].k;
sr:=ob/kol;
for i:=1 to 24
do begin
if (pass[i].m/pass[i].k<=sr+0,5) and (pass[i].m/pass[i].k>=sr-0,5)
then writeln('Passager №',pass[i].n);
end;
end.

[d00ker]

ок, понял, тогда версия 1.1

Код:

type pass=record
n:integer;//номер пассажира
k:integer;//кол-во вещей
m:integer;//масса вещей
end;
var a:array[1..24] of pass;
i,ob,kol:integer;
srob,sr:real;
begin
ob:=0;
kol:=0;
for i:=1 to 24
do begin
ob:=ob+a[i].m;
kol:=kol+a[i].k;
sr:=ob/kol;
for i:=1 to 24
do begin
if (pass[i].m/pass[i].k<=sr+0,5) and (pass[i].m/pass[i].k>=sr-0,5)
then writeln('Passager №',pass[i].n);
end;
end.

Не поверишь, но ошибки теже ты скопировал вроде как один и тот же код

[Juffin]

извини, чето я тупил ( ), теперь написал все в Дельфи, должно работать

program Project2;

{$APPTYPE CONSOLE}

uses SysUtils;

type pass=record
          n:integer;
          k:integer;
          m:integer;
          end;

var a:array[1..5] of pass;
    i,ob,kol,n:integer;
    sr:real;

begin
ob:=0;
kol:=0;
for i:=1 to 5
do begin
   writeln('element N',i);
   a[i].n:=1;
   writeln('vvedite kol-vo veschei');
   readln(n);
   a[i].k:=n;
   writeln('vvedite massu veschei');
   readln(n);
   a[i].m:=n;
   writeln;
   end;

for i:=1 to 5
do begin
   ob:=ob+a[i].m;
   kol:=kol+a[i].k;
   end;

sr:=ob/kol;
for i:=1 to 5
do begin
   if (a[i].m/a[i].k<=sr+0.5) and (a[i].m/a[i].k>=sr-0.5)
   then writeln('Passager N',a[i].n);
   end;

readln;
end.