Даю 30 баллов! Срочно! Измените программу так чтобы вместо IF было CASE Program ARIFMETIK; var a,b,c:real; Z:char; begin writeln ('Введи первое число'); read (a); writeln ('Введи второе...

Хотите узнать готовый ответ на вопрос Даю 30 баллов! Срочно! Измените программу так чтобы вместо IF было CASE Program ARIFMETIK; var a,b,c:real; Z:char; begin writeln ('Введи первое число'); read (a); writeln ('Введи второе... и правильно решить домашнее задание по предмету Информатика? Подробное решение смотрите ниже.

Даю 30 баллов! Срочно!
Измените программу так чтобы вместо IF было CASE
Program ARIFMETIK;
var a,b,c:real;
Z:char;
begin
writeln ('Введи первое число'); read (a);
writeln ('Введи второе число'); read (b);
Writeln ('Введи значок операции'); read (z);
If z='+' then c:=a+b;
If z='-' then c:=a-b;
If z='*' then c:=a*b;
If (z='/') and (b<>0) then c:=a/b;
If (z='/') and (b=0) then writeln ('Деление невозможно)
else writeln (a:0:2,z,b:0:2,'=',(:0:2);
End.

Вы еще и в самой программе ошибок понаделали...

Program ARIFMETIK;

var
a,b,c:real;
Z:char;

begin
Writeln ('Введи первое число'); Readln (a);
Writeln ('Введи второе число'); Readln (b);
Writeln ('Введи значок операции'); Readln (z);
case z of
'+': c:=a+b;
'-': c:=a-b;
'*': c:=a*b;
end;
if z='/' then
if b<>0 then c:=a/b
else Writeln ('Деление невозможно')
else Writeln(a:0:2,z,b:0:2,'=',c:0:2);
end.

Похожие ответы

Построить таблицу значений функции y=x²+8x+16 в промежутке (-4;4) с шагом 1, с использованием процедуры. Информатика 9 класс.
Построить таблицу значений функции yx8x16 в промежутке -44 с шагом 1, с использованием процедуры.
Помоги мне сделать тесты по информатике
Помоги мне сделать тесты по информатике
Access Запрос в вычисляемым полем. Увеличить зарплату инспекторов на 15%.
Access Запрос в вычисляемым полем. Увеличить зарплату инспекторов на
Задание по информатике. Помогите плз
Задание по информатике. Помогите плз