«Turbo Pascal » Значенко О.П.

ЛАБОРАТОРНИЙ ПРАКТИКУМ

ЛАБОРАТОРНА РОБОТА №1 ТЕМА: Ознайомлення з середовищем Турбо Паскаль.

Компіляція та запуск програми на виконання

Методичні вказівки

Виклик ІІО ТП 7.0 здійснюється засобами активізації файлу TURBO.EXE. Рядок меню активізується натисканням клавіші F10 бо за допомогою миші. Потрібне підменю можна активізувати за допомогою комбінації клавіш ALT + перша літера команди меню.

Після того як текст програми набрано, його необхідно перевести в машинний код. Для цього необхідно викликати транслятор за допомогою команди COMPILE–COMPILE або комбінації клавіш ALT+F9. Транслятор перевіряє наявність синтаксичних помилок, якщо помилок не знайдено то виводиться повідомлення про кількість рядків трансльованої програми та об’єм доступної оперативної пам’яті. Якщо на певному етапі транслятор визначає помилку, то у вікні редактора курсор зупиняється на тому рядку програми де знайдено помилку. При цьому у верхньому рядку з’являється повідомлення про причину помилки.

Команда меню COMPILE – дозволяє здійснювати компіляцію програми. Команда Destination Memory – здійснює компіляцію пам’ять комп’ютера, а при виборі команди Destination Disk відбувається компіляція на диск і створюється файл з розширенням (*.ЕХЕ), що завантажується на виконання навіть при відсутності інтегрованої оболонки.

Для запуску програми використовується комбінація клавіш CTRL+F9 або викликається команда RUN-RUN. Після чого на екрані з’являється вікно в якому здійснюється діалог з програмою.

Для перегляду результатів роботи програми використовують комбінацію клавіш ALT

+F5.

87

Завдання І. Створити три файли з іменами f1.pas, f2.pas, f3. pas. Завдання ІІ Записати у файл f1.pas структуру програми, наведену нижче.

PROGRAM {ім’я програми};

Завдання ІІІ. Скопіюйте у файл f2.pas текст файлу f1.pas.Використовуючи команди меню відредагуйте структуру та запишіть програму наведену нижче. Відкомпілюйте та запустіть програму на виконання. Cтворіть ехе-файл.

Приклад програми обчислення суми двох чисел

Program Sun; Var a, b, s: real;

Begin

Writeln('Введіть два числа з клавіатури. Завершення введення - Enter '); Write('a = ');

Readln(a);

Write('b= ');

Readln(b); s : = a + b;

Writeln('s= ' , s);

Readln;

End.

Завдання ІV. Записати у файл f3.pas структуру програми, наведену нижче. Відкомпілюйте та запустіть програму на виконання. Створіть ехе-файл.

Приклад програми обчислення периметра трикутника

88

Program Per;

Var a, b, c, p: real;

Begin

Writeln ('Введіть сторони трикутника. Завершення введення - Enter '); Readln (a,b,c);

p:=a+b+c;

Writeln ('Периметр трикутника ' , Р);

Readln;

End.

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

1.Як запустити середовище Турбо Паскаль?

2.Як створити новий файл? Відкрити існуючий?

3.Як зберігаються файли?

4.Як відкомпілювати програму? Запустити її на виконання?

5.Як створити ехе-файл?

89

ЛАБОРАТОРНА РОБОТА № 2 ТЕМА: Створення лінійної програми з використанням

простіших операторів мови програмування

Методичні вказівки

Програма мовою Паскаль може містити наступні символи:

Латинські літери A,B,C…x, y,z.

Цифри 0,1,2,...9

Спеціальні символи +, -, /, =,<>, [], (), {}, :, ;, ., $, # , _, @

Типи даних в Паскалі можна поділити на скалярні та структуровані. Існує також можливість вводити типи даних користувача. До скалярних типів можна віднести:

цілочисловий, дійсний, символьний, логічний. До нестандартних скалярних типів відносяться перерахований та діапазонний. До структурованих типів даних відносяться масиви, рядки, записи, файли, множини.

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

Оператор присвоєння. В результаті виконання оператора змінній буде присвоєно значення виразу. Вираз може містити числа, змінні, сталі, назви функцій, з’єднані символами операцій. <змінна> : = <вираз>

Оператор введення. Надавати значення змінним можна двома способами, за допомогою оператора присвоєння або оператора введення даних з клавіатури.

Read (<змінна 1>, ...,<змінна 2>); або Readln (<змінна 1>, ...,<змінна 2>);

Значення даних набирається з клавіатури через пропуск або через команду введення Enter. У результаті виконання цієї команди відповідним змінним будуть присвоєні конкретні значення.

Команду Readln; без параметрів використовують у середовищі ТР для затримки екрану до натискання клавіші вводу Enter. Наприклад перегляду результату.

Оператор виведення. Для виведення на екран повідомлень та результатів обчислень використовуються оператори Write та Writeln.

Write (<вираз 1>,...,<вираз n>); або Writeln (<вираз 1>,...,<вираз n>);

90

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

Форматований вивід. Форматування – це подання результату у наперед заданому користувачем вигляді. (:n:m). Під час виведення даних дійсного типу зазначається загальна кількість позицій для всіх символів (n) та кількість позицій для дробової частини (m).

Приклад програми: Данo x, y, z. Обчисліть a та b, якщо

Program VIR;

Var a, b, x, y, z: real;

Begin

Writeln (‘Введіть три числа x,y,z ’);

Readln(x, y, z);

a:= (Sqrt(Abs(x-1))-Exp(Ln(Abs(y)/3)))/(+Sqr(x)/2 +Sqr(y)/4); b:=x*(ArcTan(z)+Exp(-x-3));

Writeln(‘a = ‘, a,’; b = ‘,b);

Readln;

End.

Для піднесення числа (X) до степеня (N) використовують стандартні функції

Exp(n*ln(x)) – для додатного х

-Exp(n*ln(abs(x))) – для від’ємного х

ДОВІДНИК (cтандартні функції мови Паскаль)

91

Завдання для самостійного виконання

Завдання І. Напишіть програму (Данні вводяться з клавіатури. Результат виводиться з точними інструкціями. Наприклад (1м = 100 см.)):

1.Обчислення площі паралелограму.

2.Обчислення об’єму паралелепіпеду.

3.Переведення метрів в сантиметри.

4.Переведення грамів у кілограми.

5.Переведення бітів у байти.

Завдання ІІ. Запишіть алгоритм, розробіть програму та створіть ехе-файл:

1.Напишіть програму обчислення вартості яблук, якщо відома вага та вартість 1 кг.

2.Напишіть програму обчислення вартості розмови, якщо відомо кількість хвилин та вартість 1 хвилини.

3.Напишіть програму обчислення вартості покупки зошитів та олівців, якщо відома їх кількість та вартість одиниці товару.

4.Напишіть програму обчислення площі та периметру рівнобедреного трикутника, якщо відома довжина основи та висота.

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

1.Яку дію виконує оператор введення?

2.Чим відрізняються оператори write та writeln?

3.Яку дію виконує оператор виведення?

4.В чому різниця між (=) та (:=) ?

5.Що таке форматоване виведення, та для яких типів даних він використовується?

92

ЛАБОРАТОРНА РОБОТА №3 ТЕМА: Використання стандартних процедур та функцій

мови програмування. Операції в мові Паскаль

Методичні вказівки

Вираз задає порядок виконання дій над даними та складається з операндів (констант, змінних, функцій), круглих дужок та знаків операцій.

Операції поділяються на УНАРНІ (-с), БІНАРНІ (а+с).

АРИФМЕТИЧНІ (+, -, *, /, div - ділення націло, mod – залишок від ділення, and - и, shl

– зсув вліво, shr – зсув вправо, or - або, xor – виключаюче або , not – логічне заперечення.

Виконання кожної операції здійснюється з урахуванням її пріоритету. Для зміни звичайного порядку виконання операцій використовуються круглі дужки. Пріоритет виконання операцій: not, or, xor, and, <,>,=.

Пріоритет виконання арифметичних операцій: *, /, +, -.

До операцій цілочислової арифметики відносяться: Div, mod. 11 mod 4 = 3 (залишок від ділення дорівнює 3)

11 Div 4 = 2 (відкидається дробова частина без округлення)

До операцій бітової арифметики, коли всі дії відбуваються над двійковим представленням цілих чисел, відносяться: арифметичне и (and), арифметичне або (or),

арифметичне виключаюче або(xor), арифметичне запереченя, зсув вліво, зсув вправо,

операції відношення (<, >, <>, <=, >=, =), логічні операції (виконуються над логічними даними)

Для піднесення числа (X) до степеня (N) використовують стандартні функції Exp(n*ln(x)) – для додатного х

-Exp(n*ln(abs(x))) – для від’ємного х.

Довідник стандартних функцій вміщено в лабораторній роботі №2.

Завдання для самостійного виконання

Завдання І. Записати вираз за правилами Турбо Паскаль 7.0 та скласти програму для обчислення значення функції (відповідно до номера робочого місця):

93

Завдання ІІ. Дано значення а. Не використовуючи ніяких інших функцій та операцій, окрім одноразового множення, отримати значення (відповідно до номера

Завдання ІІІ. Відповідно до номера робочого місця розв’язати наступну задачу:

94

1.Обчисліть периметр і площу трикутника, заданого координатами своїх вершин (x1, y1), (x2, y2), (x3, y2).

2.Дано два числа. Знайти середнє арифметичне і середнє геометричне їх

модулів.

3.Відомі кількість жителів у державі та площа її території. Визначити щільність населення цієї держави.

4.Змішано V1 літрів води температури t1 з V2 літрами води температури t2.Знайти об’єм і температуру утвореної суміші.

5.Скласти програму обчислення розміру доходу за вкладом. Відсоткова ставка (у відсотках річних), величина вкладу та термін збереження (в днях) задаються під час роботи програми.

6.Обчислити об’єм циліндра, якщо задані радіус основи, висота циліндра (2πr2h);

7.Скласти програму перерахунку величини часового інтервалу, який задано у хвилинах у величину, що задана в годинах і хвилинах. (Використати функції div i mod).

8.Скласти програму, яка перетворює введене з клавіатури дробове число у грошовий формат. Наприклад, 125 має бути перетвореним до вигляду 12 руб. 50 коп. (Використати функції div i mod, round)

9.Знайти площу кільця заданого радіусами r1 та r2 за формулою S=2πr. При введенні обмежити діапазон значень для радіусів (r1> r2)

10.Обчислити вартість поїздки на дачу й назад, якщо відомі відстань до дачі, вартість одного літру бензину, витрати бензину на 100 км.

11.Обчислити вартість покупки, якщо відомі вартість зошита, кількість зошитів, вартість олівця, кількість олівців.

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

1.Як поділяються операції в мові паскаль?

2.Що таке вираз та операнд?

3.Як виконуються оператори div та mod? До якого класу операцій вони відносяться?

4.Що таке пріоритет виконання операції?

5.Які найпоширеніші стандартні функціїї мови паскаль Ви знаєте?

95

ЛАБОРАТОРНА РОБОТА №4 ТЕМА: Розгалуження. Умовний оператор в мові Паскаль.

Методичні вказівки

Для запису алгоритмів здебільшого використовуються три типи команд: присвоювання, розгалуження і повторення. Команді розгалуження в Паскалі відповідає умовний оператор.

Умовному оператору відповідають дві структури. Неповний умовний оператор має вигляд

If <умова> then <команда>;

Повний умовний оператор записується у вигляді

If <умова> then <команда _1> else <команда _2>;

Якщо після слів then і else треба записати не один оператор, а кілька, тоді ці оператори беруться в так звані операторні дужки: відкриваюча дужка — begin, і закриваюча — end;

Перед словом else крапка з комою не ставиться. Кожну пару begin...end записують в одному стовпці: так легше перевірити наявність для кожної відкриваючої операторної дужки відповідної закриваючої.

Приклад програми визначення максимального з 2-х чисел

Program Maksimum;

Var a, b: real;

Begin

Writeln('введіть два числа ');

Readln(a,b);

If a>b then writeln (‘максимальне' , a)

Else writeln (‘максимальне ', b);

Readln;

End.

96

Завдання І. Відповідно до номера робочого місця розв’язати наступну задачу:

1.Дано три дійсних числа x, y,z. Знайти найбільше з них і вивести його значення на екран.

2.Дано три дійсних числа x, y,z. Визначити, чи існує трикутник з такими сторонами. Вивести повідомлення на екран.

3.Скласти програму, яка перевірятиме введене з клавіатури число на парність.

4.Задані координати точки x та y. Визначити її місце розташування в декартовій прямокутній системі координат(в якій чверті?).

5.Скласти програму, яка перевірятиме, чи є введене з клавіатури число двозначним?

6.Обрахувати суму двох дійсних чисел x та y, якщо x - додатне, інакше – обчислити x2.

7.Знайти корені лінійного рівняння ax + b = 0 .(Коли a=0 та b=0)

8.Скласти програму, яка перевірятиме, чи ділиться націло на 4 введене з клавіатури число?

9.Для цілого тризначного числа n знайти суму його цифр.(Скористатись

функціями div i mod).

10.Дано два дійсних числа x і y. Якщо x і y від’ємні, то кожне значення замінити його модулем; якщо обидва значення невід’ємні і жодне з них не належить відрізку [0,5;2], тоді обидва значення зменшити в 10 разів.

Завдання ІI. Скласти програми.

1.Перевірте, чи належить введене з клавіатури число число діапазону (-5; 3).

2.Дано тризначне число. Визначити чи входить до нього цифра 6 та цифра n (введена з клавіатури).

3.Дано три дійсні числа. Вивести на екран ті з них, що є парними.

97

4.Написати програму визначення добутку двох найменших з трьох різних чисел.

Завдання ІIІ. Скласти програму для знаходження значення функції (відповідно до номера робочого місця):

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

1.Які форми умовного оператора Ви знаєте? Опишіть їх структуру.

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

3.Для чого існує тип даних Boolean? Який діапазон цього типу?

4.Що таке операторні дужки?Коли вони використовуються

5.Що таке логічний вираз?Що таке простий і складений логічний вираз?

6.Які логічні операції існують в мові паскаль?

7.Поясніть особливість запису складеної умови.

98

ЛАБОРАТОРНА РОБОТА № 5 ТЕМА: Використання умовного оператора та оператора

варіанта при розробці програм

Методичні вказівки

Якщо в залежності від значення змінної необхідно виконати певні оператори використовується оператор варіанту.

Оператор варіанту (case) має вигляд

Case <вираз> of

<список значень 1> : <оператор 1>; …..

<список значень n> : <оператор 2> Else <оператор n+1>

End;

Тут <вираз> — це змінна цілого, символьного, перерахованого або логічного

типу;

Якщо необхідно записати не один оператор, а їх групу, тоді ці оператори беруться в операторні дужки. Складова частина Else <оператор n+1> може бути відсутня – тоді матимемо коротку форму оператора варіанту Case.

Приклад програми, яка за введеним номером дня тижня виводить повідомлення „робочий день” чи „вихідний”

Program DAY; Var d: integer;

Begin

Write (' Введіть номер дня тижня -> ');

Readln(d);

Case d of

1..5: writeln (' робочий день '); 6,7: writeln (' вихідний день ') Else writeln (' помилка введення ')

End; Readln;

End.

99

Завдання І. Скласти програму (повторення до л.р.№ 4).

1. Визначить корені квадратного рівняння.

Завдання ІІ. Скласти програму (повторення до л.р.№ 4).

1.Маємо три дійсних числа x, y, z. Знайдіть найбільше з них.

2.Маємо дійсні додатні числа x, y, z. Складіть програму, яка буде перевіряти існування трикутника з довжинами сторін x, y, z.

3.Маємо два дійсних числа x, y. Знайдіть найбільше з них. Виведіть повідомлення (a>b, a<b, a=b).

4.Складіть програму, яка перевірятиме введене з клавіатури число на парність.

5.Перевірити чи є введене з клавіатури число додатнім, від’ємним, нулем.

Завдання ІІІ. Скласти програму.

1.Написати програму, яка за введеним номером дня тижня виводить назву „Робочий день”, „Вихідний день”. При помилковому введенні числа виводиться повідомлення про помилку.

2.Написати програму, яка за введеним номером місяця виводить назву відповідного сезону року. При помилковому введенні числа виводиться повідомлення про помилку.

3.Написати програму, яка за введеним номером дня тижня виводить його назву. При помилковому введенні числа виводиться повідомлення про помилку.

4.Написати програму переведення оцінки з числового формату в текстовий. ( Наприклад 2 – "незадовільно").

5.Написати програму, яка аналізує дані про вік і визначає належність людини до однієї з чотирьох груп: учень, студент, робітник, пенсіонер. При помилковому введенні числа виводиться повідомлення про помилку.

100

Додаткові завдання

1.Дано натуральне число N. Якщо воно ділиться на 4 то вивести на екран відповідь "N=4*к", де к відповідна частка (наприклад12=4*3). Якщо залишок твід ділення на чотири дорівню 1 то вивести "N=4*к+1", якщо 2 - "N=4*к+2", якщо 3 - "N=4*к+3" (наприклад 22=4*5+2)

2.Написати програму, яка після введенного з клавіатури числа (в діапазоні від 1 до 99) дописує слово "копійка" у відповідному відмінку.

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

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

2.Які структури відповідають оператору варіанту?

3.Якій конструкції у мові паскаль відповідає повна та неповна форма оператора варіанту?

4.Який тип даних використовується у якості змінної оператора варіанту?

101

ЛАБОРАТОРНА РОБОТА №6 ТЕМА: Розробка програм, що містять цикл з параметром

Методичні вказівки

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

Коли відоме число повторень, зручно використовувати цикл «з параметром». У Паскалі є два оператори для організації циклів — прямий і зворотний. Прямий перелік іде від відомого меншого числа до відомого більшого, на кожному кроці додається одиниця.

Оператор прямого переліку:

For i:=n1 to n2 do <оператор>;

Другий різновид команди циклу з параметром:

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

Ця команда діє як попередня, але крок зміни параметра є (-1).

Змінна і називається змінною циклу, яка при прямому переліку завжди змінюється від меншого значення до більшого. Оскільки оператор циклу FOR сам змінює значення змінної циклу, то її не можна змінювати іншим способом, наприклад присвоюванням їй якого-небудь значення в тілі циклу.

Оператор у циклі може бути простим або складеним, вміщеним в операторні дужки begin…end (якщо в тілі цикла необхідно виконати більше ніж один оператор).

Приклад програми обчислення добутку аn.

Program E8;

Var a,p: real; i,n: integer;

Begin

Write('введіть а - основу степеня, а = ');

Readln (a);

Write('введіть показник степеня, n = ');

Readln(n); р:=1;

for i:=1 to n do

р := р * а;

Writeln('p = ', р); End.

102

Завдання І.

1.Написати програму, яка виводить таблицю квадратів перших десяти цілих додатних чисел.

2.Написати програму, яка виводить таблицю квадратів перших п’яти цілих додатних непарних чисел.

3.Написати програму, яка виводить суму перших N цілих додатних чисел. (N - кількість вводиться під час роботи програми).

4.Написати програму, яка виводить суму перших N цілих додатних парних чисел. (N - кількість вводиться під час роботи програми).

5.Написати програму, яка виводить таблицю множення на довільне число.

Завдання ІІ.

1.Написати програму, яка обчислює суму перших N елементів ряду 1+1/2+1/3+.... (кількість вводиться під час роботи програми).

2.Написати програму, яка обчислює суму перших N елементів ряду 1/sin(x) +1/sin(2x)+1/sin(3x).... (кількість вводиться під час роботи програми).

3.Написати програму, яка обчислює суму перших N елементів ряду 1/tg(2x) +1/tg(4x)+1/tg(6x).... (кількість вводиться під час роботи програми).

4.Написати програму, яка обчислює суму перших N елементів ряду 1/2+1/4+1/6... (кількість вводиться під час роботи програми).

5.Написати програму, яка обчислює суму перших N елементів ряду 1+1/3+1/5+.... (кількість вводиться під час роботи програми).

Завдання ІІІ.

103

1.Написати програму, яка виводить таблицю значень функції у = 3х+2 в діапазоні (-2;2) з кроком 0,5.

2.Написати програму, яка виводить на екран таблицю вартості яблук в діапазоні від 100 г до 1 кг. з кроком 100г.(вартість вводиться під час роботи програми).

3.Написати програму визначення середнього арифметичного послідовності чисел введених з клавіатури (кількість вводиться під час роботи програми).

4.Написати програму визначення кількості доданих та від’ємних чисел введених з клавіатури (кількість вводиться під час роботи програми).

5.Написати програму визначення суми доданих та добутку від’ємних чисел введених з клавіатури (кількість вводиться під час роботи програми).

Додаткові завдання

1. Написати програму, яка виводить на екран таблицю множення (квадрат Піфагора).

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

1.Що таке цикл і навіщо він використовується в програмуванні?

2.Яки види циклічних структур існують в Турбо Паскалі?

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

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

5.Що найчастіше обчислюється в циклі?

104

ЛАБОРАТОРНА РОБОТА № 7 ТЕМА: Розробка програм мовою програмування Паскаль з

використанням циклу «з передумовою».

Методичні вказівки

Оператор циклу «з передумовою» має вигляд:

While <умова> do <оператор>;

Оператор циклу «з передумовою» виконується таким чином oператор (тіло циклу) повторюється доти, доки виконується умова (істинний логічний вираз).

вміщеним в операторні дужки begin…end (якщо в тілі цикла необхідно виконати більше ніж один оператор).

Приклад програми виведення таблиці значень функції у = 3х+2 в діапазоні (-2;2) з кроком 0,5.

Program E7; Var x,y:integer;

Begin

x:=-2;

While x<=2 do

Begin

y:=3*x+2:

Writeln('y(’ , x, ‘) =’ , y); x:=x+0.5;

End; Readln;

End.

105

Завдання І.

1.Написати програму, яка визначає максимальне число у введеній з клавіатури послідовності цілих додатних чисел (кількість вводиться під час роботи програми).

2.Написати програму, яка підраховує суму всіх непарних чисел від 301 до 901.

3.Написати програму для знаходження суми всіх цілих додатних парних чисел від 1 до 200.

4.Написати програму, яка виводить значення кубів чисел, що належать проміжку [1, 10] з кроком 2. Оформити виведення у вигляді: 1^3=1;3^3=9;5^3=125 і т.д.

5.Написати програму, яка обчислює добуток всіх парних чисел, менших 20.

Завдання ІІ.

1.Знайти суму цілих додатніх чисел з проміжка (a; b) кратних 4.

2.Визначити кількість натуральних чисел в діапазоні від 100 до 500 сума цифр

яких рівна 15.

3.Знайти всі двозначні числа, що діляться на n чи містять цифру n.

4.Дано натуральне число . Зясувати скільки раз у ньому зустрічається перша цифра.

5.Дано натуральне число. Визначити його максимальну цифру.

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

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

2.Охарактеризуйте особливості роботи циклу з передумовою.

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

4.Що відбувається, якщо умова не виконується?

5.Коли найчастіше використовують цикли з передумовою?

106

ЛАБОРАТОРНА РОБОТА № 8 ТЕМА: Розробка програм мовою програмування паскаль з

використанням циклу «з післяумовою»

Методичні вказівки

Оператор циклу «з післяумовою» дозволяє виконувати циклічні дії, коли кількість повторень завчасно не відома і має таку структуру:

Repeat <тіло циклу>;

Until <умова>;

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

перевірка умови в циклі «з післяумовою» здійснюється після виконання тіла циклу, тобто всі оператори тіла циклу будуть виконані хоча б один раз;

після слова UNTIL записується умова завершення циклу;

між словами REPEAT (повторити) і UNTIL (до того часу, поки) можна записати будь-яку кількість операторів без використання операторних дужок;

для завершення циклу «з післяумовою» в тілі циклу обов’язково повинен бути оператор, виконання якого впливає на умову завершення циклу.

дія в циклі з післяумовою виконується завжди хоча б один раз.

Приклад програми знаходження найбільшого спільного дільника

Program E7;

Var a,b:integer;

Begin

Writeln ('введіть два натуральних числа');

Readln(a,b);

Repeat

If a > b then a := a - b;

If b > a then b := b – a;

107

Until a = b;

Writeln('HCA=’,a);

End.

Завдання для самостійного виконання

Завдання І.

1.Написати програму, яка обчислює суму послідовності додатних чисел, що вводяться з клавіатури. Для завершення вводу послідовності ввести нуль.

2.Написати програму, яка обчислює середнє арифметичне послідовності додатних чисел, що вводяться з клавіатури. Для завершення вводу послідовності ввести нуль.

3.Написати програму, яка обчислює кількість додатних чисел у послідовності, що вводиться з клавіатури. Для завершення вводу послідовності ввести нуль.

4.Написати програму, яка обчислює кількість від’ємних чисел у послідовності, що вводиться з клавіатури. Для завершення вводу послідовності ввести нуль.

5.Написати програму, яка обчислює середнє арифметичне послідовності від’ємних чисел, що вводяться з клавіатури. Для завершення вводу послідовності ввести нуль.

Завдання ІІ.

1.Написати програму для знаходження залишку від ділення двох цілих чисел a i b, не використовуючи при цьому функцію mod.

2.Написати програму для обчислення суми S=x+x2+…+xn.

3.Написати програму для обрахування добутку всіх цілих чисел від 1 до 100 кратних 3 але не кратних 6.

108

4.Написати програму для обрахування суми всіх цілих чисел від 1 до 100 кратних 4.

5.Написати програму для знаходження першої часткової суми ряду 1+1/2+1/3… , що більше даного числа a.

Додаткові завдання

1. Написати програму, яка перевіряє, чи є введене число простим.

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

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

2.Охарактеризуйте особливості роботи циклу з післяумовою.

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

4.Що відбувається, якщо умова виконується?

5.Коли найчастіше використовують цикли з післяумовою?

109