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.
Блок-схемы легко можешь составить глядя на коды программ)
Удачи)
При его решении сначала вычисляют дискриминант по формуле.
Если D > 0, то квадратное уравнение имеет два корня; если D = 0, то 1 корень; и если D < 0, то делают вывод, что корней нет.
Если D > 0, то квадратное уравнение имеет два корня; если D = 0, то 1 корень; и если D < 0, то делают вывод, что корней нет.Таким образом, программа для нахождения корней квадратного уравнения может иметь три ветви условного оператора.
Если D > 0, то квадратное уравнение имеет два корня; если D = 0, то 1 корень; и если D < 0, то делают вывод, что корней нет.Таким образом, программа для нахождения корней квадратного уравнения может иметь три ветви условного оператора.Функция float() преобразует переданный ей аргумент в вещественное число.
var a,m,n,j,i,x1,y1,x2,y2,x3,y3,x4,y4,kg,kv,p:integer;
k:real;
procedure kvadrat;//рисование 1 квадрата
begin
setpencolor(clBlue);
moveto(x1,y1);
lineto(x2,y2);
lineto(x3,y3);
lineto(x4,y4);
lineto(x1,y1);
end;
begin
hidecursor;
repeat
write('Сторона квадрата от 20 до 100 a=');
read(a);
until a in [20..100];
repeat
writeln('Введите 2 числа для определения соотношени m<n:');
read(m,n);
until m<n;
clearwindow;
k:=m/n;//отношение
kg:=windowwidth div a+1; //кол. кв. по горизонтали
kv:=windowheight div a+1; //по вертикали
for j:=1 to kg do
for p:=1 to kv do
begin
for i:=1 to 50 do //рисуем 50 вложенных квадратов в 1 месте
begin
kvadrat;
x1:=trunc(x1+(x2-x1)*k); y1:=trunc(y1+(y2-y1)*k);
x2:=trunc(x2+(x3-x2)*k); y2:=trunc(y2+(y3-y2)*k);
x3:=trunc(x3+(x4-x3)*k); y3:=trunc(y3+(y4-y3)*k);
x4:=trunc(x4+(x1-x4)*k); y4:=trunc(y4+(y1-y4)*k);
end;
x1:=a*(j-1); y1:=a*(p-1); //на новое место
x2:=a*j; y2:=a*(p-1);
x3:=a*j; y3:=a*p;
x4:=a*(j-1); y4:=a*p;
end;
end.