Марин
6 год назад
Pascal
Программу с помощью Case нужно сделать, условия.
Пусть время суток обозначено номерами: 1 – утро, 2 – день, 3 – ве-
чер. Билет в кино на утренний сеанс стоит (детский – 25 р., взрос-
лый – 70 р.), на дневной сеанс (детский – 50 р., взрослый – 100 р.), а
на вечерний (детский – 70 р., взрослый – 100 р.). Какова выручка
кинотеатра в одно из время суток, если в кино пришло n детей и m
взрослых.
ОТВЕТЫ
Valaam
Jul 9, 2019
Var t,n,m,s:integer;
begin
write(t (1,2,3) = );
readln(t);
writeln(n, m:);
readln(n,m);
case t of
1: begin s:=25*n+70*m; writeln(Утренняя выручка = ,s); end;
2: begin s:=50*n+100*m; writeln(Дневная выручка = ,s); end;
3: begin s:=70*n+100*m; writeln(Вечерняя выручка = ,s); end;
else writeln(Ошибка ввода);
end;
end.
Пример:
t (1,2,3) = 1
n, m:
10 5
Утренняя выручка = 600
begin
write(t (1,2,3) = );
readln(t);
writeln(n, m:);
readln(n,m);
case t of
1: begin s:=25*n+70*m; writeln(Утренняя выручка = ,s); end;
2: begin s:=50*n+100*m; writeln(Дневная выручка = ,s); end;
3: begin s:=70*n+100*m; writeln(Вечерняя выручка = ,s); end;
else writeln(Ошибка ввода);
end;
end.
Пример:
t (1,2,3) = 1
n, m:
10 5
Утренняя выручка = 600
Var
k,m,n: byte;
begin
write(Введите время суток: );
readln(k);
write(Детей: );
readln(n);
write(Взрослых: );
readln(m);
case k of
1: write(Выручка кинотеатра: , (n*25)+(m*70)руб);
2: write(Выручка кинотеатра: , (n*50)+(m*100)руб);
3: write(Выручка кинотеатра: , (n*75)+(m*100)руб);
end;
end.
k,m,n: byte;
begin
write(Введите время суток: );
readln(k);
write(Детей: );
readln(n);
write(Взрослых: );
readln(m);
case k of
1: write(Выручка кинотеатра: , (n*25)+(m*70)руб);
2: write(Выручка кинотеатра: , (n*50)+(m*100)руб);
3: write(Выручка кинотеатра: , (n*75)+(m*100)руб);
end;
end.
32
Смежные вопросы:
