Очевидно выражение такое: y = cos(2x)+sin(x/4)
Получим линейный алгоритм:
var x,y:real;
begin
writeln('Введите Х');
readln(x);
y:=cos(2*x)+sin(x/4);
writeln(y);
end.
<span>обработка и построение изображения в том числе построение и обработка 3д графики и декодирование видео</span>
Function pow(m: double; n: integer): double;
var
i: integer;
p: double;
begin
p := 1;
for i := 1 to abs(n) do p := p * m;
if n < 0 then p := 1 / p;
pow := p
end;
var
d, z, m, y: double;
q, a, b: integer;
begin
Writeln('Введите значения a,b,d,m,q,z:');
Readln(a, b, d, m, q, z);
y := (pow(d, q) + pow(z, a)) / pow(m, b);
Writeln('y=', y)
end.
Тестовое решение примера:
Введите значения a,b,d,m,q,z:
5 -3 1.78 -4.3 2 3.11
y=-23383.5972310962
1)смешанная:<span>оркестр,<span>библиотека</span></span>
2)<span>природная:<span>болото,<span>вулккан,<span>степь</span></span></span></span>
<span>3)<span>техническая:<span>самолёт</span></span></span>
Uses crt;
type oc=record
per,bt,tr:integer;
end;
ab=record
fam,im:string;
ocen:oc;
end;
var b:array [1..50] of ab;
l:ab;
i,n,g,k,h:integer;
begin
clrscr;
writeln ('введи количество абитуриентов');
readln (n);
Writeln ('Вводи фамилии, имена и 3 оценки');
for i:=1 to n do
with b[i] do
begin
readln (fam);
readln (im);
readln (ocen.per,ocen.bt,ocen.tr);
end;
clrscr;
for j:=1 to n do
for i:=1 to n-1 do
if b[i].fam>b[i+1].fam then
begin
l:=b[i];
b[i]:=b[i+1];
b[i+1]:=l;
end;
writeln ('Список всех аббитуриентов:');
for i:=1 to n do
writeln (b[i].fam,' ',b[i].im,' ',b[i].ocen.per,' ',b[i].ocen.bt,' ',b[i].ocen.tr);
writeln ('Список допущенных аббитуриентов');
for i:=1 to n do
with b[i] do
begin
with ocen do
if (per>30) and (bt>30) and (tr>30) and (per+bt+tr>140) then writeln (fam,' ',im,' ',ocen.per,' ',ocen.bt,' ',ocen.tr);
end;
readln;
end.