записи. доделать нужно..

[Shelena]

Помогите пожалуйста дописать программу на паскале)
Создать программу для хранения и обработки данных с помощью записей. Запись "фильм": название, режиссер, год выпуска, рейтинг IMBD, рейтинг кинопоиск, стоимость.
Реализовать следующие функции:
1. Ввод данных с клавиатуры (сделала)
2. Вывод всех данных на дисплей (сделала)
3. Вывести данное пользователем число лучших фильмов по разным версиям рейтингов (хз как делать )
Заранее спасибо.. =)

Program lab91;
Type infa=record
      nazvanie: string[20];
      regisser: string[20];
      god_vypuska: 1950..2010;
      reyting_IMBD: 1..10;
      reyting_kinopoisk: 1..10;
      stoimost: 100..300;
      prodolgenie: string[4];
     end;
var film: array[1..10] of infa;
 i,j,n:integer;
begin
i:=1;
repeat;
writeln('                         vvedite informaciu o ',i,' filme');
write('nazvanie - ');
readln(film[i].nazvanie);
write('regisser - ');
readln(film[i].regisser);
write('god vypuska - ');
readln(film[i].god_vypuska);
write('reyting IMBD - ');
readln(film[i].reyting_IMBD);
write('reyting kinopoisk - ');
readln(film[i].reyting_kinopoisk);
write('stoimost - ');
readln(film[i].stoimost);
write('prodolgit vvod? Yes/No');
i:=i+1;
readln(film[i].prodolgenie);
until film[i].prodolgenie='No';
writeln('vvod zakonchen');
writeln;

for j:=1 to i-1 do
begin

writeln('nazvanie - ',film[j].nazvanie);
writeln('regisser - ',film[j].regisser);
writeln('god vypuska - ',film[j].god_vypuska);
writeln('reyting IMBD - ',film[j].reyting_IMBD);
writeln('reyting kinopoisk - ',film[j].reyting_kinopoisk);
writeln('stoimost - ',film[j].stoimost);
readln;
end;
end.

[DomiNick]

Вывести данное пользователем число лучших фильмов по разным версиям рейтингов (хз как делать)

Ну наверное отсортировать по соответствующим полям... А вот как лучше...
Не совсем понял "данное пользователем число лучших" в задании... Может как-то так пойдёт?:

write('vivesti filmi na pervih N (ot 1 do 10) mestah: ');
readln(m);
for n:=10 downto 11-m do
   for j:=1 to i-1 do
      if film[j].reyting_IMBD=n then
         writeln('imdb = ', n, '   film = ', film[j].nazvanie);

Правда как-то неоптимальненько получилось...


И я бы не рекомендовал делать "writeln('prodolgit vvod? Yes/No');" при вводе информации... Массив-то от 1 до 10, вылетит если больше 10 раз попытаются ввести информацию...
Ограничение чтоль предусмотреть какое... И у тех writeln где есть " - " надо бы ln убрать...

[Shelena]

Не совсем понял "данное пользователем число лучших" в задании...

неа, так точно не пойдет... это значит, что пользователь вводит, к примеру "3" и выводятся 3 названия фильмов с самым высоким рейтингом reyting_IMBD и 3 названия фильмов с самым высоким рейтингом reyting_kinopoisk

я бы не рекомендовал делать "writeln('prodolgit vvod? Yes/No');" при вводе информации... Массив-то от 1 до 10, вылетит если больше 10 раз попытаются ввести информацию...

это ничего, больше 10 точно не понадобится

у тех writeln где есть " - " надо бы ln убрать...

оке,убрала

[Shelena]

нет ну а мне то ответить?

[DomiNick]

это значит, что пользователь вводит, к примеру "3" и выводятся 3 названия фильмов с самым высоким рейтингом reyting_IMBD

А вот допустим есть один фильм с рейтингом 10 и пять фильмов с рейтингом 9 - какие три из них выводить?

[Shelena]

А вот допустим есть один фильм с рейтингом 10 и пять фильмов с рейтингом 9 - какие три из них выводить?

либо все 6, либо первый и еще 2 какие попадутся с рейтингом 9. как получится сделать. не важно...