Міністерство освіти і науки, молоді та спорту України

Полтавський національний педагогічний університет

імені В.Г. Короленка

Факультет технологій та дизайну

Кафедра виробничо-інформаційних технологій та безпеки життєдіяльності

Програмування та інформатика

Методичні рекомендації

до виконання індивідуальних завдань

Модуль 2

Структуровані типи даних у мові Паскаль

Полтава 2012

Програмування та інформатика. Методичні рекомендації до виконання індивідуальних завдань. Модуль 2 «Структуровані типи даних у мові Паскаль» / Н.В. Сергієнко. – Полтава: ПНПУ, 2012. – 16 с.

Індивідуальні завдання (іv семестр)

Написати програми та представити їх коди з поясненням послідовності дій та використаних операторів.

На диску подати файли: *.pas, *.exe, *.doc – з кодами та поясненнями до програм, *.txt – з даними та результатами розв’язання задачі.

Завдання вибираються з кожної теми згідно до таблиці:

№ з/п в журналі	Варіанти завдань	№ з/п в журналі	Варіанти завдань
1	1, 7	16	1, 6
2	2, 8	17	2, 5
3	3, 9	18	3, 4
4	4, 10	19	2, 4
5	5, 11	20	3, 5
6	6, 12	21	1, 6
7	7, 13	22	7, 15
8	8, 14	23	8, 13
9	9, 15	24	9, 14
10	1, 10	25	7, 10
11	2, 11	26	8, 11
12	3, 12	27	9, 12
13	4, 13	28	10, 13
14	5, 14	29	11, 14
15	6, 15	30	12, 15

Приклад оформлення індивідуальної роботи

Дано

Протабулювати функції

R= , w(t)=3t³-4t²+6t-1, sign(t)= , F(t)= ,

де -3.5t1.5, t=0.5

Код (файли: *.Pas, *.Exe, *.Doc)

program John1;

uses crt;

var f,n,sign,a:integer;

r,t,w:real;

begin

clrscr;

writeln('Задание N1');

writeln;

writeln('г==========T==========T==========T==========¬');

writeln('¦ ',' t ',' ¦ ','w ',' ¦ ','','r ',' ¦ ',' N ',' ¦');

writeln('¦==========+==========+==========+==========¦');

for a:=1 to 11 do

begin

t:=(a-8)/2;

w:=3*t*t*t-4*t*t+6*t-1;

if t>=0 then sign:=1 else sign:=-1;

if t<0 then f:=2 else f:=0;

if w>=0 then begin r:=1+3*f; n:=1; end;

if w<0 then begin r:=2*sign-t*t*t; n:=2 end;

writeln('¦ ',t:4:1,' ','¦',w:8:3,' ','¦ ',r:7:3,' ','¦ ',' ',n,' ',' ¦');

end;

writeln('L==========¦==========¦==========¦==========-');

readln;

end.

Результат роботи (файл *.txt)

t	w	r	n
-3.5	-199.625	40.875	2
-3.0	-136.000	25.000	2
-2.5	-87.875	13.625	2
-2.0	-53.000	6.000	2
-1.5	-29.125	1.375	2
-1.0	-14.000	-1.000	2
-0.5	-5.375	-1.875	2
0	-1.000	2.000	2
0.5	1.375	1.000	1
1.0	4.000	1.000	1
1.5	9.125	1.000	1

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