Вопрос по информатике:
Program zadacha3;
var x, y : real; rez : char;
begin
write('x='); readln(x);
write('y='); readln(y);
write('Введите число'); readln(rez);
case rez of
'1' : writeln('x+y=', x+y);
'2' : writeln('x-y=', x-y);
'3' : writeln('x*y=', x*y);
'4' : writeln('x/y=', x/y);
else writeln('Неправельное Число')
end;
end.
Программа в паскале типо вычесления 4 способами
как сделать чтобы сночала спрашивался способ
а потом уже выбирать числа
- 21.08.2018 23:47
- Информатика
- remove_red_eye 11506
- thumb_up 14
Ответы и объяснения 1
Var
x, y : real;
rez : char;
begin
write('Выберите способ:');
readln(rez);
case rez of
'1' : begin
write('x=');
readln(x);
write('y=');
readln(y);
writeln('x+y=', x+y);
end;
'2' : begin
write('x=');
readln(x);
write('y=');
readln(y);
writeln('x-y=', x-y);
end;
'3' : begin
write('x=');
readln(x);
write('y=');
readln(y);
writeln('x*y=', x*y);
end;
'4' : begin
write('x=');
readln(x);
write('y=');
readln(y);
writeln('x/y=', x/y);
end;
else
writeln('Неправельное Число')
end;
end.
- 22.08.2018 10:53
- thumb_up 24
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.