Обработка массива записей. TurboPascal

[Nosferatu]

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

Что значит не можете точно ответить? Это вы писали? Или нет?

Запись будет выглядеть как-нибудь так:

type
gos=record
name : string;
film : string;
ocenki : array[1..10] of word; { всего 10 оценок }
end;

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

[Sazary]

А еще что-то нужно подправить в коде, который выше выкладывала?

Подправить нужно все, в соответствии с изменениями, которые я указал.
А лучше написать по новой.

По оценкам проходите в цикле.

[Nosferatu]

program SNG;
uses crt;
const m=3;
type
gos=record
name : string;
film : string;
ocenki : array[1..10] of word; { всего 10 оценок }
end;

var G:array[1..m] of gos;
i,j:integer;
x:gos;s:real;
begin
clrscr;
G[1].name:='ђ®ббЁп'; G[2].name:='Њ®«¤®ў*'; G[3].name:='Ђа¬Ґ*Ёп';
G[1].peop:=140;G[2].peop:=20;G[3].peop:=40;
G[1].S:=500;G[2].S:=20;G[3].S:=60;
G[1].sch:=5000;G[2].sch:=200;G[3].sch:=100;
G[1].hosp:=3000;G[2].hosp:=100;G[3].hosp:=60;
G[1].inst:=2000;G[2].inst:=20;G[3].inst:=20;

for i:=1 to 2 do begin
for j:=1 to 2 do
if G[j].Peop/G[j].S<G[j+1].Peop/G[j+1].S
then begin
x:=G[j]; G[j]:=G[j+1];G[j+1]:=x;
end;end;
for i:=1 to 3 do
Writeln(G[i].name);
readln;end.

состряпала программу, как вы и посоветовали! Спасибо!
а что значит по оценкам проходить в цикле?

[Sazary]

состряпала программу, как вы и посоветовали!

А вы ее хоть скомпилировать пробовали?
Фактически вы ничего не изменили.

а что значит по оценкам проходить в цикле?

Ну вам же там надо средний балл считать. Вот я и говорю. У вас-то в первоначальном варианте каждая оценка задавалась отдельной переменной..

[Nosferatu]

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

А вы ее хоть скомпилировать пробовали?
Фактически вы ничего не изменили.

Ну вам же там надо средний балл считать. Вот я и говорю. У вас-то в первоначальном варианте каждая оценка задавалась отдельной переменной..

а что за цикл? со счетчиком который? И как тогда это описать тут?

[Sazary]

а что за цикл? со счетчиком который?

Какой вам больше нравится.

И как тогда это описать тут?

Что именно описать?

[Nosferatu]

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

Какой вам больше нравится.

Что именно описать?

А какой нужно использовать? Тот и подойдет!

Описать средний балл и переменную!? Как это сделать?

[Sazary]

А какой нужно использовать? Тот и подойдет!

Любой подойдет. Используйте for

Описать средний балл и переменную!? Как это сделать?

Ну если запись объявлена так:

type
gos=record
name : string;
film : string;
ocenki : array[1..10] of word; { всего 10 оценок }
end;

и есть массив этих записей:

var G:array[1..m] of gos;

То средний бал для i-ого элемента будет такой:

sred := 0;
for k:=1 to 10 do
 sred := sred +G[i].ocenki[k];
sred := sred / 10;

[Nosferatu]

А как искать по максимуму?

for i:=1 to m do
for j:=1 to n do
if a[i,j]>max then max:=a[i,j]

вот такой способ подойдет? где его необходимо прописать в программе?

[Sazary]

А как искать по максимуму?

То есть найти самую высшую оценку?

Запоминать нужно не только саму оценку, но и индекс элемента массива.
Сначала примем за максимум любую оценку.

max := 1;
ind := 1;

дальше:

for i:=1 to m do
 for j:=1 to n do
  if G[i].ocenki[j]>max then
   begin
   max := G[i].ocenki[j];
   ind := i;
   end;

В итоге мы будем знать страну с наивысшей оценкой.