Задание 5

Разработать вычислительный проект, вычисляющий значение арифметического выражения в заданных точках и проверить средствами табличного процессора

1	; а=0.83, х=1.2

Задание 6

Разработать программу, вычисляющую значение функции

1	a=2.85, b=1.56, x=0.63

Program pr1;

Var a,b, x,s: real;

begin

writeln(‘введите a’);

readln(a);

writeln(‘введите x’);

readln(x);

if x>0 and x<pi/2*a then s:=(sgrt((a*x)^2+2)-1.8*a*x)/(0.5sin(2*a*x)+ln(abs(a*x-1))+x);

if x>=pi/2*a and x<=pi/a then s:=2,7^(a*x)-2*pi*(a*x+0.8);

if x<=0 then writeln(’не определено’);

writeln(‘s=’,s);

readln;

Задание 7

1

Program Pr2;

Var k,x,w:real;

M,n,I,j:integer;

Begin

Writeln(‘m=’);

Readln(m);

Writeln(‘n=’,n);

Readln(n);

i:=1;

j:=1;

for i:=1 to m do

begin

writeln(‘k=’);

readln(k);

for j:=1 to n do

begin

writeln(‘x=’);

readln(x);

w:=1+(sin(k*x))/k;

Writeln(‘w=’,w);

j:=j+1;

end;

i:=i+1;

end;

readln;

_end.

Задание 8

Провести табулирование заданной функции

1	Вычислить 7 значений функций , где начальное значение а=0.14х, шаг а=0.22

Program Pr1;

Var a,b ,minb,maxb,step,l:real;

Begin

Writeln(‘a=’,a);

Readln(a);

Writeln(‘minb=’);

Readln(minb);

Writeln(‘maxb=’);

Readln(maxb);

Writeln(‘step=’);

Readln(step);

b:=minb;

while b<=maxb do begin

l:=2*a/b+(a+b)^(1/3);

writeln(‘l=’,l);

b:=b+step;

end;

readln;

end.

1. Разработать вычислительный проект работы с массивами

1	Даны натуральные числа n, a1, a2, … ,an. Определить количество ak последовательности a1,a2,…,an являющихся нечётными числами

Program Double;

Label 1;

Type t:array[1..15];

Var x;t;y :char; t:integer;

Begin

For i:=1 to 15 do read(x[i]);

For i:=1 to 15 do

Begin read(y);

if x[i]<>y then

begin write(‘не ‘);

goto 1;

end;

end;

1: write (‘совпадают’)

end.

2. Найти максимальное число в последовательности.

program maximum;

Var

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

n: byte;

m: integer;

begin

for n:=1 to 10 do

readln (a[n]);

m:=a[1];

for n:=2 to 10 do

if a[n]>m then m:=a[n];

writeln ('maximum = ', m);

readln

end.

Список использованной литературы

1. Акулов О.А. Информатика: учебник / О.А. Акулов, Н.В. Медведев. – М.: Омега-П, 2007. – 270 с.

2. Алексеев А.П. Информатика 2007 / А.П. Алексеев. – М.: СОЛОН-ПРЕСС, 2007. – 608 с.

3. Вьюхин В.В. Информатика и вычислительная техника: учеб. пособие для инженерных специальностей / В.В. Вьюхин; под ред. В.Н. Ларионова. - М.: Дрофа, 2008. – 286 с.

4. Гейн А.Г. Основы информатики и вычислительной техники / А.Г. Гейн. - М.: Просвещение, 2007. – 245 с.

5. Информатика: практикум по технологии работы на компьютере / под ред. Н.В. Макаровой. - 2-е изд. - М.: Финансы и статистика, 2009. – 384 с.

6. Макарова Н.В. Информатика: практикум по технологии работы на компьютере / Н.В. Макарова, С.Н. Рамин. – М.: Академия, 2007. – 384 с.

7. Макарова Н.В. Информатика: учеб. пособие для вузов / Н.В. Макарова, Н.В. Бройдо. – М.: Академия, 2009. – 768 с.

8. Могилев А.В. Информатика: учеб. пособие для вузов / А.В. Могилев, Н.И. Пак, Е.К. Хеннер; под ред. Е.К. Хеннера. - М.: Академия, 2008. – 346 с.

9. Острейковский В.А. Информатика / В.А. Острейковский. М.: Высш. шк., 2007. – 235 с.