V.Приклад програми.

Вихідні данні: K= -73, L=12, M=21425, X= -4192.21, Y=21.345, S1=‘*’, S2=‘V’, S3=‘F’.

PROGRAM INOUT ;

CONST LOG= TRUE;

VAR K, L, M: INTEGER; X,Y: REAL; S1,S2,S3: CHAR;

BEGIN WRITELN (‘ВВЕДІТЬ ЦІЛІ ЧИСЛА K,L,M :’);

READ (K,L,M);

WRITELN (‘ ’ :30, ‘ЦІЛІ ЧИСЛА’);

WRITELN (‘СТАНДАРТНИЙ ФОРМАТ’, ‘ ’ :2, ’ ЗАДАНА ШИРИНА ПОЛЯ’);

WRITELN (‘ ’, K,L,M ,‘ ’ :5, ‘K=’, K:3, ‘ L=’, L:2, ‘ M=’, M:5 );

WRITELN (‘ВВЕДІТЬ ДIЙСНI ЧИСЛА X,Y: ’);

READLN (X,Y);

WRITELN (‘ ’ : 25, ‘ДIЙСНI ЧИСЛА’);

WRITELN (’СТАНДАРТНИЙ ФОРМАТ’, ’ ’ : 18, ’ЗАДАНА ШИРИНА ПОЛЯ’);

WRITELN ( X, Y,’ ’ : 2, ’ X=‘ ,X:8:2, ’ Y=’ ,Y:6:3);

WRITELN ; WRITELN(‘ВВЕДІТЬ СИМВОЛИ S1, S2, S3: ’);

READLN (S1,S2,S3);

WRITELN (’СИМВОЛЬНІ ЗМІННІ: ’ , ’ S1= ’,S1, ’ S2= ’,S2, ’ S3=‘ ,S3);

WRITELN(‘ СИМВОЛЬНІ ЗМІННІ З ШИРИНОЮ ПОЛЯ 5:’,S1:5,S2:5,S3:5);

WRITELN (‘ЛОГІЧНА ЗМІННА=‘ ,LOG);

WRITELN (‘ ’: 35,’ПРОГРАМУ ВИКОНАЛА ВОЛКОВА’);

END.

VI.Оформити звіт. Варіанти завдань до практичної №2

	Цілі	числа		дійсні	числа					Сим- Вольні
		Формат			формат
№ Варіанту	Кіль кість	Стандартний	Ши-рина поля	Кількість	Стандарт-ний	Ширина поля	Кількість знаків після крапки			Кі-сть символів		Логічні дані
1.	2	+	5	4	+	6		2		4	TRUE
2.	3	+	6	2	+	7		3		5	FALSE
3.	3	+	6	2	+	6		3		3	TRUE
4.	2	+	5	4	+	6		2		6	TRUE
5.	4	+	4	3	+	7		4		4	FALSE
6.	2	+	3	3	+	5		1		3	TRUE
7.	3	+	2	4	+	8		3		2	TRUE
8.	4	+	5	4	+	6		2		5	FALSE
9.	2	+	7	3	+	5		1		6	FALSE
10.	2	+	6	5	+	8		4		7	TRUE
11.	3	+	6	5	+	6		2		6	TRUE
12.	3	+	4	6	+	6		2		5	FALSE
13.	3	+	3	6	+	5		2		4	FALSE
14.	3	+	2	4	+	5		2		3	TRUE
15.	4	+	5	5	+	7		3		4	TRUE
16.	2	+	7	2	+	7		4		2	FALSE
17.	2	+	8	4	+	4		1		4	TRUE
18.	3	+	6	4	+	6		2		4	FALSE
19.	3	+	6	5	+	0		2		3	FALSE
20.	3	+	4	5	+	7		3		3	TRUE
21.	4	+	5	2	+	6		4		2	TRUE
22.	2	+	7	2	+	7		4		2	FALSE
23.	2	+	8	4	+	4		1		4	TRUE
24.	3	+	6	4	+	6		2		4	FALSE
25.	3	+	6	5	+	0		2		3	FALSE
26.	3	+	4	5	+	7		3		3	TRUE

Практична робота №3.