Помогите с заданием в Pascal Задание Вычислить и вывести ** экран значения двух...

0 голосов
49 просмотров

Помогите с заданием в 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.


image

Информатика (17 баллов) | 49 просмотров
0

Тут нужно найти S и G ?

0

Writeln('x= ', x:6:3, 'y= ', y:6:3);

0

Вы выводите x и у,которые до этого сами же и ввели

Дан 1 ответ
0 голосов
Правильный ответ

//PascalABC.NET 3.3,сборка 1611 от 06.01.2018

//Внимание! Если программа не работает, обновите версию!

begin

var (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;

var

x, y, S, g: Real;

begin

Writeln('Введите 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.


image
(2.3k баллов)
0

Writeln('s=',S:0:3,' ', 'y= ',g:0:3); 'g=',не у.