Мавр
6 год назад
Пожалуйста посчитайте с заданием в PascalЗадание Вычислить и вывести на экран значения двух переменных и составить блок схемуНеобходимо дописать код или переделать и составить блок схему. Не могу понять, в чем ошибка Program zad1;Uses Crt;varx, y, S, g: Real;beginWriteln('Введите 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.
ОТВЕТЫ
Gleb
Oct 24, 2020
//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.
//Внимание! Если программа не работает, обновите версию!
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.
- Writeln('s=',S:0:3,' ', 'y= ',g:0:3);'g=',не у.
428
