Порядок виконання роботи:

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

2. Дати відповіді на контрольні запитання.

3. Оформити звіт.

Звіт повинен містити:

1. Тему, мету, обладнання лабораторної роботи.

2. Завдання згідно варіанту.

3. Блок-схему до поставленої задачі.

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

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

6. Аналіз допущених під час роботи помилок.

7. Відповіді на контрольні запитання.

8. Висновки.

Контрольні запитання:

1. Опишіть «гарячі» клавіші середовища програмування Turbo Pascal..

2. Опишіть правила сумісності типів.

3. Формати виведення числових, символьних та логічних даних.

Викладач Смерека А.Г.

Лабораторна робота №2. Циклічні оператори мови Borland Pascal

Мета: набути навичок при використанні операторів циклу з параметром, циклів з передумовою та післяумовою.

Обладнання: ПК, програмне забезпечення Turbo Pascal, методичні вказівки та завдання до лабораторної роботи.

Теоретичні відомості

Якщо в програмі виникає питання необхідності виконати багато разів деякі оператори, то використовуються оператори повтору (циклу). В мові Pascal розрізняють три види операторів циклів: while, repeat, for.

Якщо кількість повторів оператора (складеного оператора) наперед невідома, а задано лише умова його повтору (чи закінчення), то використовуються оператори while, repeat. Оператор for використовують, коли наперед відома кількість повторів.

Оператор while

Оператор while часто називають оператором циклу з передумовою за те, що перевірка умови виконання тіла циклу здійснюється на самому початку оператора.

Формат оператора while:

while <умова продовження циклу> do <тіло циклу>;

Умова - це вираз логічного типу, тіло циклу - простий чи складений оператор. Перед кожним виконанням тіла циклу обчислюється значення виразу умови. Якщо результат True, то тіло циклу виконується і знову обчислюється вираз умови. Якщо ж результат False, то відбувається вихід з циклу і перехід на перший оператор після while.

Оператор циклу repeat

Оператор циклу repeat аналогічний до оператора циклу while, але він відрізняється, по-перше, тим, що умова перевіряється після поточного виконання операторів тіла циклу (поточної ітерації) і, таким чином, гарантується хоча б однократне виконання циклу, а, по-друге, критерієм припинення циклу є рівність умовного виразу True.

Формат оператора repeat:

repeat <тіло циклу> until <умова припинення циклу>;

Оператор циклу for

У випадках, коли кількість повторів може бути відома наперед, для організації циклічної обробки даних використовують оператор циклу for.

Формат оператора for:

for <параметр циклу> := <початкове значення> to <кінцеве значення> do <тіло циклу>;

for <параметр циклу> := <початкове значення> downto <кінцеве значення> do <тіло циклу>;

При першому зверненні до оператора for спочатку обчислюються вирази <початкове зиачення> та <кінцеве значення> і здійснюється присвоєння параметру циклу початкового значення. Після цього виконуються циклічно наступні дії:

1. Перевірка умови <параметр циклу> <= <кінцеве значення>.

1. Якщо умова виконується, то оператор for продовжує роботу (виконується оператори тіла циклу), якщо умова не виконується, то оператор for припиняє роботу, і управління передається на наступний після for оператор.

2. Значення параметру циклу збільшується (to) або зменшується (downto) на одиницю і відбувається перехід на пункті.

Приклад обчислення суми 10 введених цілих чисел різними способами (з використанням різних операторів циклу)

program sumal;

const n = 10;

var count, sum, number: integer;

{count - кількість чисел, що вводяться

{sum - сума чисел}

{number- введене число}

begin

count:= 0;

sum := 0;

while (count < n) do

begin

count := count+1;

write ('Введіть ',count,' число:');

readln (number);

sum :=sum+number;

end;

writeln('Cyма чисел рівна', sum);

end.

program suma2;

const n = 10;

var count, sum, number: integer;

{count- кількість чисел, що вводяться}

{sum - сума чисел}

{number- введене число}

begin

count := 0;

sum := 0;

repeat

count := count+1;

write('Введіть ',count,' число:');

readln (number);

sum := sum+number;

until count > n;

writeln ('Сума чисел рівна ', sum);

end.

program surna3;

const n= 10;

var count, sum, number: integer;

{count - кількість чисел, що вводяться}

{sum - сума чисел}

{number - введене число}

begin

for count:=l to n do

begin

write(' Введіть '.count,' число:):

readln(number);

sum:=sum+number;

end;

writeln('Cyмa чисел рівна', sum);

end.

Порядок виконання роботи:

1. Скласти алгоритм до завдання. Побудувати блок-схему.

2. Скласти програму. Відладити програму.

3. Дати відповіді на контрольні запитання.

4. Оформити звіт.

Звіт повинен містити:

1. Тему, мету, обладнання лабораторної роботи.

2. Завдання згідно варіанту.

3. Блок-схему до поставленої задачі.

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

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

6. Аналіз допущених під час роботи помилок.

7. Відповіді на контрольні запитання.

8. Висновки.

Контрольні запитання:

1. Як записується та виконується оператор циклу з передумовою?

2. Як записується і виконується оператор циклу з після умовою?

3. Яка відмінність між оператором циклу з після умовою та оператором циклу з передумовою?

4. Як записується і виконується оператор циклу з лічильником?

5. Як організувати вихід з операторів циклу?

Викладач Смерека А.Г.

Завдання до лабораторної роботи №2

В – 1. Написати програму для знаходження суми цілих додатних чисел, кратних 4 і менших 50.

В – 2. Написати програму для знаходження суми цілих додатних парних чисел менших 50.

В – 3. Написати програму для знаходження суми цілих додатних непарних чисел менших 50.

В – 4. написати програму для знаходження суми цілих додатних чисел, більших 20, менших 100 і кратних 3.

В – 5. Написати програму для знаходження суми членів ряду , якщо n=10, а=3.

В – 6. Написати програму для знаходження значення функції y=sin 1+ sin 2 + sin 3 + … + sin N, якщо N=15.

В – 7. Написати програму для знаходження середнього арифметичного значення всіх цілих додатних чисел менших 20.

В – 8. Написати програму для знаходження середнього геометричного значення всіх цілих додатних чисел менших 10.

В – 9. Дано натуральне число N=10, дійсне х. Написати програму для знаходження значення функції y = sin x +sin² x + sin³ x + … + sin^N x

В – 10. Написати програму для знаходження значення функції: , якщо n=10.

В – 11. Написати програму для знаходження суми чисел: S = 1²+2²+3²+…+n², якщо n=10.

В – 12. Написати програму для знаходження значення функції: функції y=cos 1*cosn 2 *cos 3 * … + cos N, якщо N=10.

В – 13. Написати програму для знаходження остачі від ділення натурального числа а на натуральне число b шляхом послідовного віднімання від числа a числа b.

В – 14. Написати програму для обчислення значення многочлена n-го степеня виду:

Y=a₁xⁿ + a₂x^n-1+ a_nx + a₁₊₁

В – 15. Написати програму для обчислення суми членів ряду: