Лабораторна робота 5_Pascal

Лабораторна робота 5. ОПЕРАТОРИ ЦИКЛУ: ЦИКЛ З ПАРАМЕТРОМ.

Т е о р е т и ч н и й м а т е р і а л

Вказівка повторення з параметром.

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

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

Конструкція циклу з параметром має такий вигляд: for параметр:=a to b

do команда;

або

for параметр:=a to b do begin

команда 1; команда 2;

...........

команда n;

end;

Вказівка повторення з параметром виконується таким чином: Параметру циклу присвоюється початкове значення а. Він порівнюється з кінцевим значенням b. Якщо а<=b, то виконується тіло циклу. На наступному кроці значення а автоматично збільшується на 1 (тобто стає наступним елементом) і знову порівнюється зі значенням b. Якщо під час перевірки отримаємо, що а>b, то виконання циклу припиняється і виконується наступна після нього команда програми. Якщо під час першого порівняння а і b виявиться що а>b, то тіло циклу не виконується жодного разу.

Якщо необхідно щоб параметр автоматично зменшувався на одиницю, а не збільшувався, тоді заміть зарезервованого слова to потрібно вказати downto, причому тоді а>=b.

Конструкція циклу з параметром при зменшенні значення параметру має такий вигляд:

for параметр:=a downto b do команда;

або

for параметр:=a downto b do begin

команда 1; команда 2;

...........

команда n;

end;

Зауваження:

1. Вказівку повторення з параметром зручно використовувати тих випадках, коли

попередньо можна визначити кількість повторень.

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

3.Параметр циклу повинен бути описаним у розділі змінних.

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

З а в д а н н я

Завдання 1

Знайти всі тризначні числа, що дорівнюють сумі кубів своїх цифр. program kub;

uses crt;

var a,x,y,z: integer;

begin

writeln (‘ Програма яка визначає всі тризначні числа, що дорівнюють сумі кубів своїх цифр ‘);

clrscr;

for x:=1 to 9 do

for y:=0 to 9 do

for z:=0 to 9 do begin

a:=100*x+10*y+z;

if a=x*x*x+y*y*y+z*z*z then writeln(a);

end;

readln

end.

Завдання 2

30 л соку потрібно розлити в 2- і 3-літрові банки. Вивести на екран всі можливі варіанти розливу. Підрахувати їхню кількість.

program rozliv; uses crt;

var s,x,y: integer;

begin

clrscr;

writeln (‘ Програма, яка визначає способи розлиття 30 літрів соку в 2 - і 3- літрові банки та їх кількість ‘);

s:=0;

for x:=0 to 15 do

for y:=0 to10 do

if 2*x+3*y=30

1.Знайти всі трьохзначні числа, що діляться одночасно на 4 і 6.

2.Знайти добуток усіх натуральних парних чисел від 20 до 36.

3.Знайти всі двозначні числа, для яких число дорівнює сумі подвоєного квадрата першої цифри і квадрата другої цифри.

4.Знайти всі тризначні числа, що дорівнюють сумі кубів своїх цифр.

5.Знайти суму квадратів усіх двозначних непарних чисел, які діляться на 3, та вказати їх кількість.

6.Знайти суму квадратів усіх двозначних чисел, що діляться одночасно на 4 і 6.

7.Знайти всі тризначні числа, що діляться одночасно на 16 і 24.

8.Знайти добуток двозначних натуральних чисел, що діляться одночасно на 5 і 3 та вивести їх на екран.

9.Знайти добуток двозначних натуральних чисел, що діляться на 5 або 15.

10.Знайти добуток усіх натуральних непарних чисел від 51 до 77. 11.Знайти суму тризначних чисел, що діляться на 7 та є непарними.

12.Знайти всі трикутники Піфагора, в яких гіпотенуза дорівнює не більше 20. 13.Знайти кількість всіх тризначних чисел, що діляться одночасно на 15 і 5. 14.Знайти всі тризначні числа, що діляться на суму своїх цифр.

15.Знайти всі двозначні числа, для яких модуль різниці його цифр дорівнює 5.

Завдання 2

1.1000 шт. цегли можна перевозити візками місткістю 100, 300 і 500 шт. цегли. Отримати всі можливі варіанти перевезень. Підрахувати їхню кількість.

2.Футбольний м’яч коштує 65 грн. Отримати всі можливі варіанти оплати, якщо у покупця є 5-, 10- і 20-гривневі купюри. Підрахувати кількість варіантів.

3.Садівникові потрібно 18 кг мінеральних добрив. Отримати всі можливі варіанти купівлі добрива, якщо в магазині продаються розфасовки по 5, 4 і 2 кг. Підрахувати кількість варіантів.

4.Повітроплавцеві потрібно заповнити воднем повітряну кулю місткістю 17 куб. м балончиками по 1, 2 і 5 куб. м водню. Отримати всі можливі варіанти наповнення. Підрахувати їхню кількість.

5.Шляховим майстрам потрібно прокласти 190 м залізниці рейками по 4, 6 і 10 м. Отримати всі можливі варіанти прокладання. Підрахувати їхню кількість.

6.36 кг яблук потрібно розфасувати у пакети по 2, 4, 5 і 10 кг. Отримати всі можливі варіанти розфасування. Підрахувати їхню кількість.

7.240 екскурсантів можна розсадити в автобуси Руслан (місткість – 30 осіб), Богдан (місткість – 25 осіб) та Mercedes (місткість – 20 осіб). Отримати всі можливі варіанти замовлень автобусів для перевезення пасажирів. Підрахувати кількість варіантів.

8.Друкарці можна друкувати книги обсягом 30, 40 і 60 аркушів за її вибором. Усього вона надрукувала 1200 аркушів. Визначити скільки і яких книг вона могла надрукувати. Отримати всі можливі варіанти. Підрахувати їхню кількість.

9.Для ремонту дороги потрібно завезти 24 т щебеню. В автопарку є самоскиди вантажопідйомністю 3, 4 і 6 т. Отримати всі можливі варіанти перевезення

щебеню. Підрахувати їхню кількість.

10.400 л бензину потрібно розлити у баки місткістю 60, 40 і 25 літрів. Отримати всі можливі варіанти розливу. Підрахувати їхню кількість.

11.120 осіб потрібно посадити за 4- та 6-містні столики. Отримати всі можливі варіанти поєднання столиків. Підрахувати їхню кількість.

12.Вантаж 200 т можна перевозити вантажівками по 3, 4 і 5 т. Отримати всі можливі плани перевезень. Підрахувати їхню кількість.

13.480 нафтовиків потрібно перевезти на вахту вертольотами МІ-2 і МІ-8. Місткість МІ-2 становить – 8 осіб, а МІ-8 – 60 осіб. Отримати всі можливі варіанти поєднання МІ-2 і МІ-8 для перевезення нафтовиків. Підрахувати їхню кількість.

14.50 тюльпанів потрібно розфасувати у подарункові набори по 3, 5 і 7 квіток. Вивести на екран всі можливі варіанти букетів. Підрахувати їхню кількість.

15.У магазині для пересилання поштою підготовлено 60 книг. Посилки комплектують по 10, 15 і 20 книг. Отримати всі можливі варіанти комплектів. Підрахувати їхню кількість.