Question

Даны два действительных положительных числа х и у. Арифметические действия над числами пронумерованы (1 – сложение, 2 – вычитание, 3 – умножение, 4 – деление). Составить программу, которая по введенному номеру выполняет то или иное действие над числами. в паскале с использованием оператора CASE. помогите)

Answer 1

program p;

var x,y,o: real; z: integer;

begin

writeln('Введите числа x и y:'); readln(x,y)

writeln('Введите знак: '); readln(z);

case z of

1: o:=x+y;

2: o:=x-y;

3: o:=x*y;

4: o:=x/y;

end; writeln('Ответ: ',)

readln; end.

Answer 2

Я могу помочь вам с написанием программы на Паскале с использованием оператора CASE. Вот пример кода, который выполняет арифметические действия над двумя действительными положительными числами x и y в зависимости от введенного номера:

program arithmetic;
var
  x, y, result: real;
  n: integer;
begin
  writeln('Введите два действительных положительных числа x и y:');
  readln(x, y);
  writeln('Введите номер арифметического действия (1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление):');
  readln(n);
  case n of
    1: result := x + y;
    2: result := x - y;
    3: result := x * y;
    4: if y <> 0 then result := x / y else writeln('Деление на ноль невозможно!');
    else writeln('Неверный номер действия!');
  end;
  if (n >= 1) and (n <= 4) and (y <> 0) then writeln('Результат действия: ', result:0:2);
end.

Надеюсь, это вам поможет. Ответь+подробно.+Даны+два+действительных+положительных+числа+х+и+у.+Арифметические+действия+над+числами+пронумерованы+(1+–+сложение,+2+–+вычитание,+3+–+умножение,+4+–+деление).+Составить+программу,+которая+по+введенному+номеру+выполняет+то+или+иное+действие+над+числами.+в+паскале+с+использованием+оператора+CASE.+помогите)