1. Програмування задач з використанням алгоритмів лінійної структури

Приклад.

Скласти блок-схему алгоритму та програму для обчислення виразу . Значення змінних та ввести з клавіатури.

Текст програми

Program Zavdan1;

var P, a, b : real;

Begin

writeln(‘Введіть а і b’);

readln(a,b);

P:=(ln(a)+b)/sqrt(abs(a));

writeln(‘P = ’,P:4:1);

end.

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

Введіть a і b

12 8

P = 5.121

Індивідуальні завдання

N п/п	Вираз	N п/п	Вираз
1	A=	16	P=
2	B=	17	Q=
3	C=	18	R=
4	D=	19	M=
5	E=	20	S=
6	F=	21	Q=
7	G=	22	W=
8	H=	23	D=
9	M=	24	P=
10	N=	25	F=
11	K=	26	Z=
12	L=	27	T=
13	O=	28	V=
14	P=	29	U=
15	J=	30	W=

2. Програмування задач з використанням алгоритмів розгалуженої структури

Приклад.

Скласти блок-схему алгоритму та програму для пошуку максимального серед трьох дійсних чисел, введених з клавіатури.

Текст програми

Program Maximum;

Var x,y,z,max:real;

BEGIN

Write(‘Введіть числа x, y, z ‘);

Readln(x,y,z);

If x>y then

max:=x

else

max:=y;

If z>max then

max:=z;

Writeln(‘Максимальне серед них:’,max);

END.

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

Введіть числа x, y, z

4 5 3

Максимальне серед них: 5

Індивідуальні завдання

N п/п	Функція	N п/п	Функція
1		16
2		17
3		18
4		19
5		20
6		21
7		22
8		23
9		24
10		25
11		26
12		27
13		28
14		29
15		30

3. Програмування задач з використанням алгоритмів циклічної структури

3.1. Цикл з параметром (for)

Приклад.

Скласти блок-схему алгоритму та програму для обчислення значення виразу . Результат вивести на екран.

Текст програми

Program Zavdan3;

uses crt;

var G, i, j, s, s1, k, k1 : integer;

Begin

clrscr;

s:=0; k:=1;

for i:=1 to 5 do

Begin s1:=i+5; s:=s+s1; end;

for j:=1 to 4 do

Begin k1:=j+2; k:=k*k1; end;

G:=s+k;

writeln('G = ',G);

end.

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

G = 400

Індивідуальні завдання

N п/п	Функція	N п/п	Функція
1	A=	16	H=
2	F=	17	Q=
3	P=	18	S=
4	G=	19	R=
5	V=	20	Z=
6	T=	21	Y=
7	S=	22	X=
8	U=	23	W=
9	M=	24	R=
10	L=	25	Q=
11	N=	26	P=
12	K=	27	O=
13	F=	28	G=
14	C=	29	E=
15	B=	30	D=