2. Зміст і послідовність виконання

1. Скласти програму та блок-схему до кожної задачі(згідно свого варіанту)

2. Завантажити turbo pascal

3. Перевірити правильність виконання програм на ПК.

4. Записати результат.

2. Методичні рекомендації з виконання та оформлення роботи

Звіт до роботи повинен містити варіант, умови завданнь, блок-схеми та програми розв‘язування задач, результати їх виконання на ПК.

2. Рекомендована література:

1. Семотюк В.М. "Програмування в середовищі Турбо Паскаль" – Львів: БаК, 2000 - c.34-37

2. Глинський Я.Н., Анохин В.Е., Ряжская В.А. Учебное пособие. – СПб:ООО „ДиаСофтЮП”,2001.- c. 5-32.

3. Фараонов В.В. Турбо Паскаль 7.0. Начальный курс. Учебное пособие. – М.: «Нолидж»,1997.- с. 36-39.

Інструкційна картка до проведення лабораторного заняття № 4

2. Тема заняття: Програмування циклічних процесів на мові програмування Pascal.

3. Мета проведення заняття: формування вмінь і навичок розробки та виконання на ПК програм з використанням з використанням алгоритмів циклічної структури

Після виконання роботи студент повинен

знати:

структуру та порядок виконання програми; основні поняття програмування: константа, змінна, ідентифікатор, тип даних, оператор, операція, операнд; семантику основних операторів; принцип процедурно-структурного програмування

вміти:

розв'язувати задачу відповідно до загальної схеми; виконувати постановку задачі в загальному вигляді і перевіряти допустимість вхідних даних; складати і записувати алгоритм циклічної структури; розробляти програми мовою Turbo Pascal; правильно вибирати відповідні типи даних для представлення їх у програмі.

2. Матеріально-технічне оснащення робочого місця: ПК, середовище turbo pascal

3. Інструктаж з техніки безпеки: згідно з інструкцією з охорони праці № 1 під час роботи на персональних комп'ютерах у кабінеті інформатики

4. Короткі відомості з теоретичної частини роботи

ЦИКЛ З ПЕРЕДУМОВОЮ (Цикл - WHILE)

while < умова > do

begin

<вказівка 1>;

<вказівка 2>;

.......... ;

<вказівка N>

end;

Наприклад.

while I<4 do

begin

S:=S+I;

I:=I+1

end;

Вказівка повторення з післяумовою (Цикл-repeat-until)

repeat

<вказівка1>;

<вказівка2>;

................ ;

<вказівка N>

until <умова>;

Наприклад.

repeat

S:=S+I;

I:=I+1

until I>=4;

Вказівка повторення з параметром (FOR - TO - DO).

1 спосіб:

for <параметр:=вираз1> to <вираз2> do

begin

<вказівка1>;

<вказівка2>;

........... ;

<вказівка N>;

end;

2 спосіб:

for <параметр:=вираз1> downto <вираз2> do

begin

<вказівка1>;

<вказівка2>;

............. ;

<вказівка N>;

end;

ПРИКЛАД 1: Обчислити суму членів числової послідовності заданої загальним членом a_n = з точністю до Е = 10^-4 . Вивести члени на екран. Умова задачі a_n<E.

Цикл-repeat-until

Program sum;

Const

E = E-4;

Var

N: integer;

An, sum: real;

Begin

Sum = 0; n: = 1;

Repeat

An: = (n+1) / (2*n);

Sum: = sum + an;

N: = n+1;

Writeln (an);

Until an < E;

Writeln (‘ Summa = ‘, Sum)

End.

Цикл While…Do:

…

begin

Sum: = 0; n: = 1;

While an>E

begin

an: = (n+1) / (2*n);

sum: = sum+an;

n: = n+1;

write (an)

end;

…

ПРИКЛАД 2. Обчислити суму квадратів перших n натуральних чисел та вивести їх значення на екран в один рядок (Використати FOR – TO – DO та FOR – DOWNO – DO).

Program cikl;

USES CRT;

Var

R, N, I, sum: integer;

begin;

S: = 0

Writeln (‘Введіть N:’);

Readln (N);

FOR I: = 1 TO N DO FOR I: = N DOWNTO 1 DO

begin

R:= SQR (I);

S: = S+R;

Write (R);

end;

Writeln (‘Сума = ‘, Sum)

end.