Laboratornaya_rabota (7)

Лабораторная работа №6.

Задача №1.

Составить программу для вычисления таблицы значений функции F(x)= для с шагом 0.1.

начало

x:=1,

x<=3.1

y:=

x:=x+0.1

x

конец

Программа:

program tablica; var y:real; x:real; begin  x:=1; while x<=3.1 do begin y:=((exp(x)+exp(-x))/2)*cos(ln(abs(3*x))); write('x=',x); writeln(' ',y:8:4); x:=x+0.1; end; end.

x=1 0.7018

x=1.1 0.6140

x=1.2 0.5175

x=1.3 0.4105

x=1.4 0.2910

x=1.5 0.1568

x=1.6 0.0056

x=1.7 -0.1652

x=1.8 -0.3584

x=1.9 -0.5771

x=2 -0.8246

x=2.1 -1.1044

x=2.2 -1.4207

x=2.3 -1.7779

x=2.4 -2.1808

x=2.5 -2.6347

x=2.6 -3.1457

x=2.7 -3.7203

x=2.8 -4.3658

x=2.9 -5.0901

x=3 -5.9022

Задача №2.

Составить программу для вычисления суммы .

начало

n

S:=0

k=1..n

S:=S+sink+cos²k

S

конец

program tablica; var n,k:integer;S:real; begin  write('n='); read(n); S:=0; for k:=1 to n do S:=S+sin(k)+sqr(cos(k)); writeln('S=',S:8:4); end.

n=6

S= 2.7716

Задача №3.

Составить программу для вычисления элементов вектора Х по формуле:

начало

m

j=4..m

конец

program progx;

Var n,m,j:integer;

x:array[1..100] of integer;

begin

writeln('введите m');

readln(m);

write('введите массив x');

for j:=1 to 3 do

readln (x[j]);

for j:=4 to m do

writeln ('x[',j,']',(sin(x[j-1]))/2+(cos(x[j-2]))/3+(sin(x[j-3])/cos(x[j-3]))/4);

end.

Задача №4.

Составить программу для вычисления величины S по формуле:

начало

x,a

S=0

C=0

x=1..15

конец

s:=s+x[i]*exp(-x[i])

a=1..20

c:=c+ln(2)+sin(exp(a[j]))

sm=s/c

Program Program4;

Var i,j:integer;s,c,sm:real;

x:array[1..100000] of integer;

a:array[1..100000] of integer;

begin

writeln(‘введите массив х’);

for i:=1 to 15 do

readln (x[i]);

writeln(‘введите массив а’);

for i:=1 to 20 do

readln (a[i]);

s:=0;

c:=1;

for i:=1 to 15 do

s:=s+x[i]*exp(-x[i]);

for i:=1 to 20 do

c:=c+ln(2)+sin(exp(a[j]));

sm:=s/c;

write ('sm=');

readln;

end.

Задача №5.

Написать программу для решения следующей задачи: вычислить квадрат суммы тех элементов числовой последова­тельности, значения которых меньше пяти.

program massiv; var x:array [1..100] of real; i,n:integer;s:real; begin write('введите длину массива'); readln(n); for i:=1 to n do begin write('x[',i,']='); read(x[i]) end; s:=0; for i:=1 to n do if x[i]<5 then s:=s+sqr(x[i]); write('s=',s) end.