Написать программу, которая выводит список пяти наиболее популярных фильмов

@KOFOGL · Регистрация: 09.12.2020

Студворк — интернет-сервис помощи студентам

Написать программу, которая выводит список пяти наиболее популярных
фильмов.

@KOFOGL · 10.12.2021, 17:53 **[ТС]**

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Program File_Creat;
uses crt;
type zapis=record
famil:string[15];
film1:string[15];
film2:string[15];
film3:string[15];
end;
var F:file of zapis;
dan:zapis;
name:string;
i:byte;
 
begin
writeln;
write('Введите имя создаваемого файла ');readln(name);
assign(F,name);
rewrite(F);
for i:=1 to 3 do with dan do begin
write('фамилия - ');readln(famil);
write('любимый фильм 1 - ');readln(film1);
write('любимый фильм 2 - ');readln(film2);
write('любимый фильм 3 - ');readln(film3);
write(F,dan);
end;
close(F);
clrscr;
reset(F);
writeln('Список из файла ',name);
repeat
read(F,dan);
with dan do begin
write('фамилия - ');write(famil,' ');
write('любимый фильм 1 - ');writeln(film1);
write('любимый фильм 2 - ');writeln(film2);
write('любимый фильм 3 - ');writeln(film3);
write(F,dan);
end;
until eof(F);
close(F);
end.

с помощью этого файла необходима создать новый, который будет подсчитывать количество одинаковых фильмов и выведет на экран пять фильмов(по популярности)

@bormant · 10.12.2021, 18:12

Очевидно, популярный, тот что чаще встречается. Стало быть

Pascal
1
2
3
4
5
type
  TFilmCnt = record
    Film: String[15];
    Cnt: Integer;
  end;

Если каждого по одному, нужно минимум 30:

Pascal
1
2
3
var
  Films: array [0..29] of TFilmCnt;
  FilmsCnt: Integer;

Теперь пишем процедуру добавления названия в Films, которая, если фильма еще нет, добавляет запись в массив, а если есть, то увеличивает для него Cnt. Потом останется отсортировать массив по Cnt по невозрастанию и взять первых 5.
При добавлении можно выполнять 1 шаг сортировки вставками по названию -- будет возможно немного оптимизировать поиск элемента при добавлении. Хотя, именно 30 шт. не такое большое число, ради которого это стоило бы делать. Но из принципа сделать стоило бы

Добавлено через 7 минут

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

нужно минимум 30

Хм, где-то про 10 студентов видел, вероятно обознался. Для текущего варианта достаточно и 9 записей о фильмах ([0..8]).

Добавлено через 8 минут
Вот тут было про 10 записей: Создать файл, содержащий сведения о трех любимых кинофильмах студентов группы

@KOFOGL · 10.12.2021, 18:14 **[ТС]**

так этот пост моим был)

@bormant · 10.12.2021, 18:30

Не только был, но и остался. Но в нем в худшем случае возможно 3 по 10 суть 30 штук фильмов. А в коде в этой теме 3 по 3 -- достаточно места для 8

Вот чтобы ерунды такой не появлялось, правила предписывают вести обсуждение в одной теме, чтобы не терять контекста

И раз уж затронули эту тему, по-хорошему, при чтении/добавлении в массив данных из файла случай возможности переполнения стоит предусматривать явно.

Новые блоги и статьи Все статьи Все блоги /
1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .

@KOFOGL 0 / 0 / 0 Регистрация: 09.12.2020 Сообщений: 28

	Написать программу, которая выводит список пяти наиболее популярных фильмов 04.12.2021, 01:35. Показов 1500. Ответов 4 Метки Pascal (Паскаль), pascal abc (Все метки) Написать программу, которая выводит список пяти наиболее популярных фильмов. 0

@KOFOGL 0 / 0 / 0 Регистрация: 09.12.2020 Сообщений: 28
	10.12.2021, 18:14 [ТС]
	так этот пост моим был) 0

@bormant Модератор 7816 / 4635 / 2837 Регистрация: 22.11.2013 Сообщений: 13,159 Записей в блоге: 1
	10.12.2021, 18:30
	Не только был, но и остался. Но в нем в худшем случае возможно 3 по 10 суть 30 штук фильмов. А в коде в этой теме 3 по 3 -- достаточно места для 8 Вот чтобы ерунды такой не появлялось, правила предписывают вести обсуждение в одной теме, чтобы не терять контекста И раз уж затронули эту тему, по-хорошему, при чтении/добавлении в массив данных из файла случай возможности переполнения стоит предусматривать явно. 1