Даю 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.

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

Задание по информатике. Помогите плз
Задание по информатике. Помогите плз
Найти сумму элементов первой строки массива 7х7 созданного при помощи генератора случайных чисел, паскаль.
Найти сумму элементов первой строки массива 7х7 созданного при помощи генератора случайных чисел,
2. Переведите целое десятичное число 124 в двоичную систему счисления по схеме N10 N8 N2
2. Переведите целое десятичное число 124 в двоичную систему счисления по схеме N10 N8
какой формат не подходит для сохранения растровых изображений
какой формат не подходит для сохранения растровых