Задача с тремя условиями

Posted by obzor under Delphi

Даны y, x, a, b. Вычислить d=((x*x)-2ab) / ((y*y)+1)
Если d=0, напечатать y, x, a, b.
Если d>0, то вычислить и напечатать P=e^(2х)*sin y-3.
Если d<0, то увеличить в 2 раза y, x, a, b и напечатать.

newerow1989

var y,x,a,b:integer;
    d,p:real;
begin
   Write('y = '); Readln(y);
   Write('x = '); Readln(x);
   Write('a = '); Readln(a);
   Write('b = '); Readln(b);
   d:=((x*x)-2*a*b)/((y*y)+1);
   //Writeln('d = ',d:5:5);
   If d=0 then
      Writeln('y = ',y,'; x = ',x,'; a = ',a,'; b = ',b);
   If d>0 then
   begin
      p:=exp(2*x)*sin(y)-3;
      Writeln('p = ',p:5:5);
   end;
   If d<0 then
   begin
      y:=2*y;
      x:=2*x;
      a:=2*a;
      b:=2*b;
      Writeln('y = ',y,'; x = ',x,'; a = ',a,'; b = ',b);
   end;
   Readln;
end.

тема на форуме

Похожие статьи

• Способы передачи параметров в подпрограммы в Delphi
• Описать функцию Pi(eps), вычисляющую значение числа Пи по формуле
• Вычислить методом касательных (Pascal)
• Ввести номер одного из друзей и вывести его имя (задача на записи)
• Найти сумму элементов массива, стоящих после последнего нулевого элемента
• Вычисление формулы с произведениями
• Можно ли среди чисел массива найти две разных пары чисел, суммы которых одинаковы?
• Определить, является ли массив «магическим квадратом»
• Создать таблицу умножения
• Обработка строк (Pascal)