Написать программу на языке Pascal для реализации циклического алгоритма
     
    
     
n, х – известные величины. 

Решение

var i,j,fact,n:integer;
    s,x:real;
begin
writeln;
write('Vvedite n=');
readln(n);
write('Vvedite x=');
readln(x);
s:=0;
for i:=1 to n do begin
fact:=1;
for j:=1 to i do
Fact:=fact*j;
s:=s+(1/fact+sqrt(abs(x)));
end;
writeln('s=',s:4:2);
readln;
end.

Написать программу на языке Pascal для реализации циклического алгоритма
     

     
n – известные величины. 

Решение

var i,j,n,zn,factorial:integer;
    s,x:real;
begin
writeln;
write('Vvedite n=');
readln(n);
s:=0;
factorial:=1;
zn:=1;
for i:=1 to n do begin
zn:=zn*(-1);
factorial:=factorial*i;
s:=s+(zn*(i+1)/factorial);
end;
writeln('s=',s:4:3);
readln;
end.

Написать программу на языке Pascal для реализации циклического алгоритма
     
s=1/1*2-1/2*3+…+(-1)ⁿ⁺¹/n(n+1)
     
n – известные величины. 

Решение

var i,j,n,zn:integer;
    s,x:real;
begin
writeln;
write('Vvedite n=');
readln(n);
s:=0;
for i:=1 to n do begin
zn:=1;
for j:=1 to i+1 do begin
zn:=zn*(-1);
end;
s:=s+zn/(i*(i+1));
end;
writeln('s=',s:4:2);
readln;
end.

Написать программу на языке Pascal для реализации разветвляющегося алгоритма



x – известные величины. 

Решение

var x,y:real;
begin
writeln('');
write('Vvedite x=');
readln(x);
if x<=0.8  then
y:=exp(x-1)+3.14
else
if (0.8<x) and (X<=5.27) then
y:=ln(x+5.96)
else
y:=2*x;
writeln('y=',y:4:2);
readln;
end.

Составить программу, используя подпрограммы.
Вычислить:





где

х=14,6
у=-8,91 

Решение

var S:real;
    x,y:real;

function g(x:real):real;
var s:real;
    k:integer;
begin
s:=0;
for k:=1 to 8 do
s:=s+(k+1);
g:=s*x;
end;
begin
x:=14.6;
y:=-8.91;
S:=sqrt(g((x+1)/3))+sin(g((y-1)/4))-(1/g(2*x-1));
writeln;
writeln('x=',x:4:2);
writeln('y=',y:4:2);
writeln('S=',S:4:4);
readln;
end.

Вычислить длину вектора . Получить массив направляющих косинусов вектора по формуле: .

Эта задача с использованием массивов!!!