В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
chelsi09
chelsi09
01.05.2022 03:44 •  Информатика

Нужно написать программу, которая будет хранить информацию о рейтинге фильмов. Для одного фильма может быть от нуля и более рейтингов. Каждый рейтинг содержит информацию об имени пользователя и его оценку от 0 до 10 Базовые данные для программы:

movies = {
"Django Unchained": {
"John": 10,
"Jack": 9
},

"Spider-Man": {}
}

Программа должна уметь:
Добавлять фильм:
пользователь вводит название, например "Interstellar", если его нет в списке фильмов, то программа выводит сообщение об успешном добавлении фильма:
"Movie added successfully"
если фильм уже есть, то вывести: “This movie already exist!”
Добавлять рейтинг к фильму
Пользователь вводит название, например "Interstellar"
Если фильм не существует, вывести сообщение
"This movie doesn't exist"
Если фильм существует, спросить пользователя два параметра: имя оценивающего и его оценку от 0 до 10.
Вывести на экран сообщение об успешном добавлении рейтинга:
A rating has been added for Interstellar: Rick rated it 9

Просматривать рейтинг для всех фильмов
Программа выводит средние рейтинги для всех фильмов
Interstellar is rated 7.7
Django Unchained is rated 9.5
Если рейтинга для фильма нет то выводить сообщение:
Rating is not yet available for movie_name

Указания:
В программе необходимо использовать бесконечный цикл для ввода команд.
Добавить пункт "Выход", который завершит программу.
Если пользователь вводит рейтинг, не попадающий в интервал от 1 до 10, выводить сообщение об ошибке и не добавлять этот рейтинг.

Показать ответ
Ответ:
Музалевская
Музалевская
11.01.2022 20:32
Function prime(x:integer):boolean;
var
 t:boolean;
 d:integer;
begin
 t := true;
 d := 2;
 while t and (d*d <= x) do
   begin
   if x mod d = 0 then 
     t := false;
   d := d + 1
   end;
 prime := t
end;

function order(x:integer):boolean;
var
 t:boolean;
 d:integer;
begin
 d := -1;
 repeat
   t := x mod 10 > d;
   d := x mod 10;
   x := x div 10
 until not t or (x = 0);
 order := t
end;

var
 t:boolean;
 i,k,n:integer;
begin
 t := false;
 read(k,n);
 for i := k to n do
   if prime(i) then
   if order(i) then
     begin
     write(i,' ');
     t := true
     end;
 if not t then
   write(0)
end.
0,0(0 оценок)
Ответ:
Job121
Job121
05.01.2020 14:37
Алгоритм приготовления яичницы:

1.НАЧАЛО
2.Взять чистую сковороду
3.Поставить сковороду на огонь.
4.Налить немного масла
5.Если масло разогрелось, то перейти к шагу 8
6.Подождать 2 минуты
7.Перейти к шагу 5.
8. Разбить на сковороду 3 яйца
9. Уменьшить огонь до минимума
10. Посолить яичницу
11. Накрыть сковороду крышкой (я люблю прожаренные и сверху)
12. Подождать 7 минут.
13. Снять сковороду с огня.
14. Выложить яичницу на тарелку.
15. Положить на тарелку по вкусу майонез, лук, колбасу и проч.
16. Приятного аппетита!
17. КОНЕЦ
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота