Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

информ.лаба №5. 1 курс .игхту-1

.docx
Скачиваний:
41
Добавлен:
23.12.2018
Размер:
318.63 Кб
Скачать

ЛАБОРАТОРНАЯ РАБОТА №5

вариант № 15

СОСТАВЛЕНИЕ, ВВОД, ТРАНСЛЯЦИЯ И ИСПОЛНЕНИЕ ПРОГРАММ, РЕАЛИЗУЮЩИХ ЦИКЛИЧЕСКИЕ АЛГОРИТМЫ И ТИПОВЫЕ ОПЕРАЦИИ С ОДНОМЕРНЫМИ МАССИВАМИ

  1. Составить программу для вычисления таблицы значений для 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

да

конец

нет

  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

конец

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

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.

конец

  1. Написать программу для решения следующей задачи: упорядочить последовательность из 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

конец

  1. Составить программу для вычисления величины 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.