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

[Nosferatu]

-фильмы в общем списке по странам не упорядочены, а фильм и страна, его представляющая, являются единственными победителями.

А это как правильно описать в программе? возможно, надо использовать оператор условия?!

[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;

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

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;

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

У меня получилось, что программа будет выглядеть как-то так:

Я прекрасно вижу, что вы просто побросали в кучу и то, что было, и то, что я вам написал. Никакой смысловой нагрузки этот код не несет.
Здесь даже не вводятся данные.

Вот вам часть программы. Рабочая. Вводятся данные. Потом ищется страна (и фильм), у которой максимальный балл. Информация выводится.

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

var G:array[1..m] of gos;
i,j:integer;
max, ind : integer;
s:real;
sred : real;


begin
clrscr;

for i:=1 to m do
 begin
 writeln('-------------');
 write('Vvedite stranu: '); readln(G[i].name);
 write('Vvedite nazvanie filma: '); readln(G[i].film);
 writeln('Vvedite ',n,' ocenok:');
 for j:=1 to n do
  readln(G[i].ocenki[j]);
 end;

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;

writeln('Maximalnyj ball: ',max);
writeln('Strana: ',G[ind].name);
writeln('Film: ',G[ind].film);
writeln('-----------');

readln;
end.

Остальное допишите сами. Для этого нужно хоть немного вникнуть в задание. Я пока не вижу попыток с вашей стороны, как ни печально.

[Nosferatu]

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

Я прекрасно вижу, что вы просто побросали в кучу и то, что было, и то, что я вам написал. Никакой смысловой нагрузки этот код не несет.
Здесь даже не вводятся данные.

Вот вам часть программы. Рабочая. Вводятся данные. Потом ищется страна (и фильм), у которой максимальный балл. Информация выводится.

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

var G:array[1..m] of gos;
i,j:integer;
max, ind : integer;
s:real;
sred : real;


begin
clrscr;

for i:=1 to m do
 begin
 writeln('-------------');
 write('Vvedite stranu: '); readln(G[i].name);
 write('Vvedite nazvanie filma: '); readln(G[i].film);
 writeln('Vvedite ',n,' ocenok:');
 for j:=1 to n do
  readln(G[i].ocenki[j]);
 end;

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;

writeln('Maximalnyj ball: ',max);
writeln('Strana: ',G[ind].name);
writeln('Film: ',G[ind].film);
writeln('-----------');

readln;
end.

Остальное допишите сами. Для этого нужно хоть немного вникнуть в задание. Я пока не вижу попыток с вашей стороны, как ни печально.

Спасибо вам Большое! Если бы я хоть малейшее представление имела о Pascale, то и попытки что-то сделать самой у меня были бы!

[Nosferatu]

Здравствуйте, это снова я.
После запуска программы, требуется ввести данные. Они успешно вводятся, но возникает ошибка следующего типа:
106. Invalid numeric Format.
Это что-то связанное с числовым значением.

Как это испавить, что бы дальше можно было спокойно ввести данные?

[Sazary]

но возникает ошибка следующего типа:
106. Invalid numeric Format.

Это значит, что вы неверно вводите данные.
То есть там, где должно быть число, вы вводите что-то другое.
Покажите, что вы вводите.

[Nosferatu]

когда он просит ввести 10 оценок! то сразу вылетает!
что только не вводила! и 10 цифр, и 10 чисел! все бесполезно.
как это исправить?