Хід роботи

1. Скласти і записати в конспект програми розв’язування задач: Задачі з використанням циклу з передумовою (repeat-until), 2. Набрати і виконати в середовищі ПАСКАЛЬ одну з програм на вибір та записати результати виконання з екрана в зошит.

Завдання до практичної роботи

ВАРІАНТ 1

Обчислити суму додатних чисел з проміжка цілих чисел [a;b].

ВАРІАНТ 2

Обчислити суму від’ємних чисел з проміжка цілих чисел [m;n].

ВАРІАНТ 3

Обчислити суму чисел, більших від 1, з проміжка цілих чисел [a;b].

ВАРІАНТ 4

Обчислити суму чисел, менших від 1, з проміжка цілих чисел [a;b].

ВАРІАНТ 5

Обчислити суму чисел, менших від 2, з проміжка цілих чисел [a;b].

ВАРІАНТ 6

Обчислити суму недодатних чисел з проміжка цілих чисел [a;b].

ВАРІАНТ 7

Обчислити суму чисел, менших від 5, з проміжка цілих чисел [a;b].

ВАРІАНТ 8

Обчислити суму всіх чисел з проміжка цілих чисел [a;b].

ВАРІАНТ 9

Обчислити суму квадратів чисел, більших від 1, з проміжка цілих чисел [a;b].

ВАРІАНТ 10

Обчислити суму квадратів від’ємних чисел з проміжка цілих чисел [m;n].

ВАРІАНТ 11

Обчислити суму невід’ємних чисел з проміжка цілих чисел [k;l].

ВАРІАНТ 12

Обчислити суму всіх недодатних чисел з проміжка цілих чисел [s;p].

ВАРІАНТ 13

Обчислити суму 17 членів послідовності з загальним членом a_n = 4n-3.

ВАРІАНТ 14

Обчислити суму 15 членів послідовності з загальним членом a_n = 5n-7.

ВАРІАНТ 15

Обчислити суму 13 членів послідовності з загальним членом a_n = 2n-3.

Практична робота № 19

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

Мета роботи: Навчитись складати і виконувати програми з циклами

Завдання: Скласти і записати в конспект програми розв’язування задач

Набрати і виконати в середовищі ПАСКАЛЬ одну з програм на вибір та записати результати виконання з екрана в зошит.

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

1. Робота проводиться в програмній оболонці ПАСКАЛЬ.

2. Для перемикання розкладки клавіатури використовується комбінація правих та лівих клавіш Ctrl+Shift.

3. Для запуску програми на виконання використовується кнопка Виконати на панелі інструментів або клавіша F9 або з меню пункт Виконати.

4. Введення даних в програму після запуску на виконання проводиться за допомогою клавіші Enter.

5. Набір тексту програми виконуйте з використанням шаблонів – пункт Шаблони з рядка меню вікна.

6. До простих типів у Паскалі відносяться: real, integer, Boolean, char.

7. Програма починається з службового слова program, а виконувана частина вміщується між службовими словами begin і end. (Шаблони-Описи-Program NoName;Begin end.).

8. після цього ідуть розділи опису: const – констант(Шаблони-Описи-const=), type – користувацьких типів даних(Шаблони-Описи-type=), var – змінних (Шаблони-Описи-var:).

9. Опис типів змінних виконувати так: Шаблони-Типи-клацнути потрібний тип.

10. Для виведення інформації використовують команди write чи writeln(Шаблони-Введення/Виведення- write() чи writeln()).

11. Для введення даних використовують команди read чи readln (Шаблони-Введення/Виведення-read() чи readln()).

12. Необхідно пам’ятати:

13. між змінною і виразом повинна бути команда присвоювання (:=)

14. математична формула не повинна містити пропусків

15. кількість відкритих і закритих дужок повинна бути однакова

16. аргументи функцій беруться в дужки.

17. Цикли бувають трьох типів – цикл з параметром, цикл з передумовою, цикл з післяумовою.

18. Цикл з параметром (for-to-do чи for-downto-do) (Шаблони-Оператори-for to do чи Шаблони-Оператори- for downto do) – цикл, який використовується в тому випадку, коли ми точно знаємо кількість повторень(проходів) циклу. Лічильник цього типу циклу обов’язково або цілий, або перераховуваного типу. При кожному проході цикл автоматично додає 1(for-to-do) або -1(for-downto-do) до лічильника.

For начальное значение to конечное значение do действие; - в случае одного действия и

For начальное значение to конечное значение do

Begin

Действие 1;

Действие 2;

...

Действие Х;

End; - в случае нескольких действий.

Приклад

Задамо в розділі var змінну, наприклад n, цілого типу Integer. У програмі напишемо цикл в якому n буде змінюватися від 0 до 15 Змінюється значення n буде змінювати колір символів, що виводяться:

uses crt;

var

n: integer;

begin

clrscr;

for n:= 0 to 15 do

begin

textcolor(n);

writeln('Color N= ',n);

end;

readln;

end.