Pascal

Программу с помощью Case нужно сделать, условия.

Пусть время суток обозначено номерами: 1 - утро, 2 - день, 3 - ве-

чер. Билет в кино на утренний сеанс стоит (детский - 25 р., взрос-

лый - 70 р.), на дневной сеанс (детский - 50 р., взрослый - 100 р.), а

на вечерний (детский - 70 р., взрослый - 100 р.). Какова выручка

кинотеатра в одно из время суток, если в кино пришло n детей и m

взрослых.

Question

Информатика

Ульянка

22 августа, 15:38

Pascal

Программу с помощью Case нужно сделать, условия.

Пусть время суток обозначено номерами: 1 - утро, 2 - день, 3 - ве-

чер. Билет в кино на утренний сеанс стоит (детский - 25 р., взрос-

лый - 70 р.), на дневной сеанс (детский - 50 р., взрослый - 100 р.), а

на вечерний (детский - 70 р., взрослый - 100 р.). Какова выручка

кинотеатра в одно из время суток, если в кино пришло n детей и m

взрослых.

+5

Ответы (2)

Знаете ответ на вопрос?

Аникуша · Answer 1

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

Борюся · Answer 2

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.