Задание 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 |
Даны натуральные числа 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.
Список использованной литературы
Акулов О.А. Информатика: учебник / О.А. Акулов, Н.В. Медведев. – М.: Омега-П, 2007. – 270 с.
Алексеев А.П. Информатика 2007 / А.П. Алексеев. – М.: СОЛОН-ПРЕСС, 2007. – 608 с.
Вьюхин В.В. Информатика и вычислительная техника: учеб. пособие для инженерных специальностей / В.В. Вьюхин; под ред. В.Н. Ларионова. - М.: Дрофа, 2008. – 286 с.
Гейн А.Г. Основы информатики и вычислительной техники / А.Г. Гейн. - М.: Просвещение, 2007. – 245 с.
Информатика: практикум по технологии работы на компьютере / под ред. Н.В. Макаровой. - 2-е изд. - М.: Финансы и статистика, 2009. – 384 с.
Макарова Н.В. Информатика: практикум по технологии работы на компьютере / Н.В. Макарова, С.Н. Рамин. – М.: Академия, 2007. – 384 с.
Макарова Н.В. Информатика: учеб. пособие для вузов / Н.В. Макарова, Н.В. Бройдо. – М.: Академия, 2009. – 768 с.
Могилев А.В. Информатика: учеб. пособие для вузов / А.В. Могилев, Н.И. Пак, Е.К. Хеннер; под ред. Е.К. Хеннера. - М.: Академия, 2008. – 346 с.
Острейковский В.А. Информатика / В.А. Острейковский. М.: Высш. шк., 2007. – 235 с.