Завдання 3

III. Програмні реалізації алгоритму

Завдання 1.

Program zadacha_1;
var y,x,t,q,b:real;
begin
q:=2; b:=1.8;
t:=b*b*b+exp(sqrt(q));
x:=t*t*t+b*b;
y:=arctan(abs(x))*arctan(abs(x));
writeln ('y:=',y);
end.

Завдання 2

program zadacha_2;
var
x, a, b, c, d: integer; f, w, y: real;
begin
writeln('введіть x,a,b,c,d');
readln(x, a, b, c, d);
w:= C * exp(ln(x * y) + d * exp(3) * 1 / 5);
f:= sin(x + a) / cos(x + a) - ln(abs(b + 7) / ln(abs(10)));
if (abs(x) < 10) then
y:= 2*sin(abs(2*f))*cos(2*f)-11.6*sin(f/0.4-1)
else y:= sin(abs(w)) / 0.1 + 9.4 * sin(3 * w - 2.5);
write('y=', y);
end.

Завдання 3

program zadacha_3;
var
k, x: integer; s:real;
begin
s:= 0;
for k:= 2 to 20 do
s:= ((k+1)*(k+1))/(2*k+k*k);
writeln('S=', s);
end.

Завдання 4.
program z_4;
const
m = 10;
var
arr: array[1..m] of integer;
i, j, k: integer;
begin
randomize;
write ('Масив А: ');
for i:= 1 to m do begin
arr[i]:= random(256);
write (arr[i]:4);
end;
writeln; writeln;
for i:= 1 to m-1 do
for j:= 1 to m-i do
if arr[j] < arr[j+1] then begin
k:= arr[j];
arr[j]:= arr[j+1];
arr[j+1]:= k
end;
write ('Відсортований масив: ');
for i:= 1 to m do
write (arr[i]:4);
writeln;
end.