• Помогите с программированием! Нужно составить 3 программы на Паскале, используя for, while, repeat

    question img

Ответы 2

  • Огромное Спасибо!
    • Автор:

      newt
    • 5 лет назад
    • 0
  • // PascalABC.NET 3.3, сборка 1590 от 03.12.2017// Внимание! Если программа не работает, обновите версию!begin  var x,z:real;  for var i:=0 to 18 do begin    x:=-3+0.5*i;    if (Abs(x)<>2) and (x<>5) then      z:=Sqr(sin(x))/(x*x+4)+Sqr(Cos(x))/(x-2)/(x-5);    Writeln(x:4:1,z:15:8)    end;end.Результат-3.0     0.02603404-2.5     0.05396053-2.0     0.05396053-1.5     0.15941934-1.0     0.15783283-0.5     0.11009307 0.0     0.10000000 0.5     0.16817855 1.0     0.21459633 1.5     0.16205869 2.0     0.16205869 2.5    -0.47852157 3.0    -0.48851066 3.5    -0.38218382 4.0    -0.18498749 4.5     0.00385685 5.0     0.00385685 5.5     0.30151270 6.0     0.23243357№2begin  var x,z:real;  x:=-3;  while x<=6.01 do begin    if (Abs(x)<>2) and (x<>5) then      z:=Sqr(sin(x))/(x*x+4)+Sqr(Cos(x))/(x-2)/(x-5);    Writeln(x:4:1,z:15:8);    x+=0.5    end;end.№3begin  var x,z:real;  x:=-3;  repeat    if (Abs(x)<>2) and (x<>5) then      z:=Sqr(sin(x))/(x*x+4)+Sqr(Cos(x))/(x-2)/(x-5);    Writeln(x:4:1,z:15:8);    x+=0.5  until x>6.01end.
    • Автор:

      payne
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years