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