Задание 1 Составить блок-схему алгоритма и программу на Паскале для вычисления функций y(x Ввести программу в ЭВМ, вычислить значения функции и проверить ее. В отчет включить блок-схему алгоритма, текст программы, реакцию ЭВМ. y(x) = (|sin 3x| + a)x2 Задание 2 Составить блок-схему алгоритма и программу на Паскале. В квадратной комнате шириной A и высотой B есть окно и дверь с размерами C на D и M на N соответственно. Вычислите площадь стен для оклеивания их обоями. В отчет включить блок-схему алгоритма, текст программы, реакцию ЭВМ.

1-е Задание:

Program PRG;

var

a, b, c, e, x, y, num, den: real;

function calc( a, b, c, e, x: real ): real;

begin

 num := ((( abs(sin(x ** 3))) + a) * (e ** a));

 den := (exp(ln((b ** 2) + (c ** 2)) / 3));

 y :=  num / den;

 Result := y;

 write('Answer is: ', y);

 writeln();

end;

function entNums (): real;

begin

 write ('Enter a: '); readln (a);

 write ('Enter b: '); readln (b);

 write ('Enter c: '); readln (c);

 write ('Enter e: '); readln (e);

 write ('Enter x: '); readln (x);

 writeln();

end;

begin

   entNums();

calc( a, b, c, e, x );

end.

2-е Задание:

Program  

var wallWid, wallHeight, winHeight, winWid, doorWid, doorHeight, fourWalls, door, win, total: real;

function getFourWalls( wallWid, wallHeight: real ): real;

   begin

       fourWalls := (wallHeight * wallWid) * 4;

       Result := fourWalls;

   end;

function getDoorSize( doorHeight, doorWid: real ): real;

   begin

       door := doorHeight * doorWid;

       Result := door;

   end;

function getWinSize( winHeight, winWid: real ): real;

   begin

       win := winHeight * winWid;

       Result := win;

   end;

function getWalls(): real;

   begin

       total := (fourWalls - ( door + win )) / 10000;

       Result := total;

       write(' You need ', total, ' m² of wallpaper!');

       writeln();

   end;

function enterSizes(): real;

   begin

       writeln();

       write (' Enter width of the wall (in cm): '); readln (wallWid);

 write (' Enter height of the wall (in cm): '); readln (wallHeight);

 write (' Enter width of the window (in cm): '); readln (winWid);

 write (' Enter hight of the window (in cm): '); readln (winHeight);

 write (' Enter width of the door (in cm): '); readln (doorWid);

 write (' Enter height of the doot (in cm): '); readln (doorHeight);

 writeln();

   end;

begin

   enterSizes();

   getFourWalls( wallWid, wallHeight );

   getDoorSize( doorHeight, doorWid );

   getWinSize( winHeight, winWid );

   getWalls();

end.

Блок-схемы легко можешь составить глядя на коды программ)

Удачи)

 

 

Первое задание:

program cube;
    var a,s,v:real;
begin;
    write('Введите длину ребра куба: ');
    read(a);
    v:=power(a,3);
    s:=6*sqr(a);
    write('Площадь равна ',s,', а объём равен ',v,'.');
end.

Второе задание:

program par;
    var a,b,c,s,v:real;
begin;
    write('Введите стороны a,b,c: ');
    read(a,b,c);
    v:=a*b*c;
    s:=2*(a*b+b*c+a*c);
    write('Площадь равна ',s,', а объём равен ',v,'.');
end.

Третье и четвёртое задания:

program mult;
    var r,a,b,c:real;
begin;
    write('Введите три числа: ');
    read(a,b,c);
    r:=a*b*c;
    write('Произведение чисел равно ',r);
end.

Program primer; //добавили точку с запятой (отделяем операторов друг от друга)

Var a, b, s, p: integer;

Begin //убрали точку с запятой (после begin точка с запятой не ставится)

Write('Введите стороны прямоугольника = ');//добавили скобку и точку с запятой (после оператора write в скобках указывается что выводится на экран)

ReadLn(a,b);

P:=a+b;//добавили двоеточие (оператор присваивания  :=)

S:=a*b;//добавили двоеточие, заменили знак × на знак *  (звездочку - оператор умножения)

WriteLn('Площадь = ',s);//добавили запятую (при вводе и выводе переменные отделяются запятыми, вывод текста от переменных тоже)

WriteLn('Периметр = ',p);//добавили запятую

End.//добавили точку (окончания программы)

Объяснение:

Поправили ещё кавычки вместо знака ‘ поставила знак '

Заменили Writeln на Write в 4 строке, чтобы ввод осуществлялся в той же строке