3. Результат выполнения контрольного примера

X	Y
4	-0,05
4,30	-0,04
4,60	-0,04
4,90	-0,03
5,20	-0,03
5,50	-0,03
5,80	-0,02
6,10	-0,02
6,40	-0,02
6,70	-0,02
7,00	-0,02

9

3) For

2. Текст программы:

program lab32;

var x,y,xn,xk,dx,a:real;

f,l:integer;

begin

write('Vvedite xn,xk,dx,a');

readln(xn,xk,dx,a);

l:=trunc((xk-xn)/dx)+1;

writeln(' Tablitsa);

writeln('┌────┬─────┐');

writeln('X',' ','Y');

for f:=1 to l do

begin

x:=xn+(f-1)*dx;

y:=(1-exp(-a*x))*ln((a*sqr(x)-1)/(a*sqr(x)+2));

writeln('├─────┼─────┤');

writeln(x:5:2,y:5:2);

end;

writeln('└─────┴─────┘');

readln;

end.

10

3. Результат выполнения контрольного примера

X	Y
4	-0,05
4,30	-0,04
4,60	-0,04
4,90	-0,03
5,20	-0,03
5,50	-0,03
5,80	-0,02
6,10	-0,02
6,40	-0,02
6,70	-0,02
7,00	-0,02

11

Лабораторная работа №4

Задание: Дан массив целых положительных чисел. Найти произведение только тех чисел, которые больше заданного числа М. Если таких нет, то выдать сообщение об этом.

Решение: 1. Блок-схема решения задачи приведена на рисунке.

2. Текст программы:

program massiv;

const n=6;

var b:array[1..6] of integer;

pr,m,i:integer;

begin

write('vvedi m=');

readln(m);

for i:=1 to n do

begin

write('vvedi b[',i,']=');

readln(b[i]);

12

end;

pr:=1;

for i:=1 to n do

if b[i]>m then pr:=pr*b[i] else writeln('chisel net');

write(' ishodnyi massiv');

for i:=1 to n do

write(b[i]:6);

writeln;

writeln('proizvedenie=',pr);

readln;

end.

3. Результат выполнения контрольного примера:

vvedi m=2

vvedi b[1]=1

vvedi b[2]=2

vvedi b[3]=3

vvedi b[4]=4

vvedi b[5]=5

vvedi b[6]=6

chisel net

ishodnyi massiv 1 2 3 4 5 6

proizvedenie=360

13

Лабораторная работа №5

Задание: Задан двумерный массив А из 8-и строк и 3-х столбцов. Составить программу, которая подсчитывает общее число неотрицательных элементов в массиве. Затем организовать формирование нового массива В, в котором значения элементов исходного массива заменить на противоположные по знаку.

Решение: Блок-схема решения задачи приведена на рисунке