Программирование циклических вычислительных процессов

Язык программирования Delphi.

Программирование циклических вычислительных процессов.
Необходимо разработать работоспособную программу по заданному варианту.
Все переменные должны вводиться с клавиатуры.
1.

2.
var
x1,x2,x,kol:integer;
t,a,sum,proiz:real;
begin
Writeln(vvedite x1);
Readln(x1);
Writeln(vvedite x2);
Readln(x2);
Writeln(vvedite a);
Readln(a);
proiz:=1;
sum:=0;
kol:=0;
for x:=x1 to x2 do
begin
t:=sqrt(Sqrt((a+x)/(a-x))+sqrt((a*x)/(a+x)));
writeln(t,x,=,t:0:2);
if t>2 then
begin
proiz:=proiz*t;
kol:=kol+1;
end
else
sum:=sum+t
end;
writeln(summa ravna= ,sum:0:2);
Writeln(proizvedenie ravno= ,proiz:0:2);
writeln(kolichestvo chlenov= ,kol);
Readln;
readln;
end.

3.

Рисунок 1 к заданию 1.12
1.

2.
function fact(n: integer):integer;
var f,i: integer;
begin
f:=1;
for i:=1 to n do f:=f*i;
fact:=f;
end;
var
y,x,j:real;
l,kol,num:Integer;
begin
Writeln(vvedite j);
Readln(j);
writeln(vvedite x);
Readln(x);
kol:=0;
y:=0;
l:=0;
num:=1;
repeat
begin
l:=l+2;
y:=Exp(l*ln(x))/fact(l)+y;
if y<j then
kol:=kol+1;
Writeln(y,num,= ,(y+1):0:2);
num:=num+1;
end;
until y>=j ;
writeln(kolichestvo= ,kol);
readln;
end.
3.

Рисунок 2 к заданию 2.12



1. Дано: а=5; dа=-0.5. Z вычислять по формуле: Z = ln(1+0.8*a)*cos(a). Считать Z до тех пор, пока выражение под знаком логарифма больше 0. Определить k – количество вычисленных Z. Вывести на экран a, Z, k.
2.
var
kol:Integer;
a,z,t:real;
begin
z:=0;
kol:=0;
t:=1;
a:=5;
repeat
begin
t:=(1+0.8*a);
if t<0 then break;
z:=ln(t)*cos(a);
a:=a-0.5;
kol:=kol+1;
end;
until t<0 ;
writeln(t= ,t:0:2);
writeln(z= ,z:0:2);
writeln(kolichestvo= ,kol);
readln;
readln;
end.
3.

Рисунок 3 к заданию 1.52

1. Получить вектор X=(x1,x2,…xk), каждый элемент которого равен сумме элементов соответствующей строки заданной матрицы Y(k,l).
2. Var
a:array[1..15,1..15] of Integer;
i,j,k,l,p,c:integer;
e:array[1..100] of integer;
label metka;
begin
Writeln(vvedite kolichestvo strok);
Readln(k);
writeln(vvedite kolichestvo stolbcov);
readln(l);
Randomize;
for i:=1 to k do
for j:=1 to l do
begin
a[i,j]:=Random(10);
end;
for i:=1 to k do
begin
for j:=1 to l do
write((a[i,j]):4, );
writeln;
end;
metka:
c:=c+1;
p:=p+1;
Writeln;
for j:=1 to l do
begin
e[p]:=a[c,j]+e[c];
end;
if c<> l then goto metka;
write(Massiv raven: ();
for i:=1 to l do
write(e[i],,);
write(#08);
write());
readln;
end.
3.

Рисунок 4 к заданию 2.12



1.

2. var
a:array[1..15,1..15] of Integer;
i,j,n:integer;
begin
Writeln(vvedite razmer);
Readln(n);
Randomize;
for i:=1 to n do
for j:=1 to n do
begin
a[i,j]:=Random(10);
end;
for i:=1 to n do
begin
for j:=1 to n do
write((a[i,j]):4, );
writeln;
end;
Writeln;
for i:=n downto 1 do
begin
for j:=n downto 1 do
write((a[i,j]):4, );
writeln;
end;
readln;
end.
3. Таблица




1.