информ.лаба №5. 1 курс .игхту-1
.docxЛАБОРАТОРНАЯ РАБОТА №5
вариант № 15
СОСТАВЛЕНИЕ, ВВОД, ТРАНСЛЯЦИЯ И ИСПОЛНЕНИЕ ПРОГРАММ, РЕАЛИЗУЮЩИХ ЦИКЛИЧЕСКИЕ АЛГОРИТМЫ И ТИПОВЫЕ ОПЕРАЦИИ С ОДНОМЕРНЫМИ МАССИВАМИ
-
Составить программу для вычисления таблицы значений
для
x[0,1]
с шагом 0.05.
program number_one;
начало
var
x,
f: real;
begin
х=0
x:=0;
repeat
f:=(sqr(sin(sqr(x)))/(cos(sqr(x)))+sqrt(x+3)+exp(-x))/x*x*x*x+3*sqr(x)-2*x-3;
writeln('f(',x,')=',f);
x:=x+0.05;
f(x)
until(x>1);
end.
x=x+0.05
х>1
да
конец
нет
-
Составить программу для вычисления суммы
)
начало
program number_two;
var
i:integer;
s:real;
S=0
begin
s:=0;
for i:=1 to 15 do
i={0…15}
s:=s+(exp(-i)*
sin(i));
write('s=',
s);
end.
S
конец
-
Составить программу для вычисления элементов вектора Х по формуле:
var x:array[1..100] of real;
начало
k,n:integer;
begin
х1,х2,х3,n
write('x[1]=');readln(x[1]);
write('x[2]=');readln(x[2]);
write('x[3]=');readln(x[3]);
k=4,5…n
write('n=');readln(n);
for k:=4 to n do
begin
x[k]:=sqr(cos(x[k-2]))+cos(x[k-1])+x[k+3];
writeln('x[',k,']=',x[k]);
end;end.
конец
-
Написать программу для решения следующей задачи: упорядочить последовательность из N чисел по возрастанию ее элементов.
начало
var i,j,n,k,b,max:integer;
a: array [1..100] of integer;
n
begin
write('количество элементов в последовательности - '); read(n);
i=1…n
writeln('исходная
последовательность');
for i:=1 to n do read (a[i]);
k:=n;
for j:=1 to n do
k=n
begin
max:=1;
j=1…n
for
i:=2
to
k
do
if
a[i]>a[max]
then
max:=i;
b:=a[max];
Max=1
a[max]:=a[k];
a[k]:=b;
i=2…k
k:=k-1;
end;
writeln('последовательность по возрастанию');
a[i]>a[max]
for
i:=1
to
n
do
write(a[i],'
');
end.
max=i
b=a[max]
a[max]=a[k]
a[k]=b
k=k-1
i=1…n
конец
-
Составить программу для вычисления величины S по формуле:
начало
i=1…10
program fkfk;
A,b
var i:integer;
a,b:array[1..100]
of
integer;
sum,s1,s2:real;
s1:=s1+(a[i] *(b[i] *b[i] *b[i]))
begin
for
i:=1
to
10
do
Begin
i=1…10
write('a',[i],'=');Readln(a[i])
; 
write('b',[i],'=');readln(b[i])
;
s1:=s1+(a[i] *(b[i] *b[i] *b[i])) ;
s2:=s2+(ln(abs(b[i])))
end;
sum:=sin(s1)/cos(s2)
for
i:=1
to
10
do
Begin
s2:=s2+(ln(abs(b[i])));
s
end;
sum:=sin(s1)/cos(s2);
Write('sum=', sum) ;
конец
end.
