• Помогите с заданием в Pascal

    Задание Вычислить и вывести на экран значения двух переменных и составить блок схему
    Необходимо дописать код или переделать и составить блок схему. Не могу понять, в чем ошибка

    Program zad1;
    Uses Crt;
    var
    x, y, S, g: Real;
    begin
    Writeln('Введите x,y');
    Read(x, y);
    S := 1 + x + sqr(x) / 1 * 2 + exp(ln(x)*3) / 1 * 2 * 3 + exp(ln(x)*4) / 1 * 2 * 3 * 4;
    g:=(x)*(sin) * (sqr(x)) +(sqr(cos))+x;
    Writeln('x= ', x:6:3, 'y= ', y:6:3);
    end.

    question img

Ответы 2

  • Writeln('s=',S:0:3,' ', 'y= ',g:0:3); 'g=',не у.
  • //PascalABC.NET 3.3,сборка 1611 от 06.01.2018//Внимание! Если программа не работает, обновите версию!beginvar (x,y):=readreal2('Введите x,y');var S:=1+x+x*x/1*2+x**3/2*3+x**4/6*4;var g:=x*sin(x**3)+cos(y)**2;Writeln('s=',S:0:3,' ', 'y= ',g:0:3);end.Как в школе учат :->Program zad1;varx, y, S, g: Real;beginWriteln('Введите x,y');Read(x, y); S:=1+x+x*x/1*2+x**3/2*3+x**4/6*4; g:=x*sin(x**3)+cos(y)**2;Writeln('s=',S:0:3,' ', 'y= ',g:0:3);end.
    answer img
  • Добавить свой ответ

Войти через Google

или

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

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

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