Задача № 41

Умова задачі: Якщо на одну шальку терезів посадити Даринку, яка важить п кг, і Наталку, яка важить на 5 кг менше, а на іншу насипати m кг цукерок, то скільки кілограмів цукерок доведеться з'їсти дівчаткам, щоб шальки терезів зрівноважилися?

Введемо змінні для зберігання результатів: N— вага Даринки; М— вага цукерок; Р—вага цукерок, які необхідно з'їсти дівчаткам.

Тоді програма для розв'язання задачі буде такою:

Program Task_41;

Uses crt;

Var m, n, p : real;

Begin

Clrscr;

Write('Введіть вагу Даринки');

Readln(N);

Write('Введіть вагу цукерок, що лежать на терезах');

Readln(M);

Р := N + N - 5 - М; {N - 5 - вага Наталки}

Writeln('Дівчаткам необхідно з'їсти ',Р,'кг цукерок.');

Readln;{Процедура затримує зображення на ехрані до натискання клавіші Enter)

End.

Задача №73

Умова задачі: Визначити, яку платню одержить на фірмі сумісник за виконану роботу, якщо йому нараховано 5 грн., а податок становить 20%.

Необхідні змінні: S—сума нарахувань сумісника; Р—реальна платня, яку він одержить у касі (за умовою вона становить 80 % від нарахувань).

Програма має наступний вигляд:

Program Task_73;

Uses crt; Var P,S : real;

Begin

Clrscr;

Write('Введіть суму нарахувань робітника');

Readln(S); P := S*0.8;

Writeln('Платня сумісника становить:', Р:8:2);

Readkey;

End.

Домашнє завдання:

• Повторити теоретичний матеріал за попередні уроки;

• За підручником Т.Караванової «750 задач з алгоритмізації та програмування» виконати задачі № 42,52, 59, 63, 74,75,78.

УРОК 13. Вказівка розгалуження

Мета уроку: дати поняття про структурні оператори, вказівку розгалуження (повну та скорочену форми) і поняття про прості та складені умови.

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

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

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

Формат опису:

begin

<оператор >;

<оператор >;

end;

Складений оператор сприймається як єдине ціле і може знаходитися в будь-якому місці програми.

Умовні оператори забезпечують виконання або невиконання деякого оператора, групи операторів або блоку залежно від заданих умов. Використовуються умовні оператори в таких алгоритмах, де можливі кілька варіантів розв'язання задачі залежно від початкових умов. У мові Паскаль можливе використання двох умовних операторів: if та case.

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

Перша (або повна) форма:

if < умова >

then

begin

<серія 1>;

end

else

begin

<серія 2>;

end;

Друга (або скорочена) форма команди розгалуження:

if < умова >

then

begin

<серія >;

end;

У повній формі команди умовного переходу виконується <серія 1>, якщо умова істинна, і <серія 2>, якщо вона хибна. В скороченій формі серія виконується тільки у випадку, якщо умова істинна, інакше команда розгалуження закінчується і виконується наступний за нею оператор.

Один оператор if може входити до складу іншого. У цьому випадку говорять про вкладеність операторів. При вкладеності операторів кожне else відповідає then, що йому передує.

Умова—вираз булівського типу, тобто це речення, на яке можна відповісти «так» або «ні». Умова може бути простою або складеною. Складені умови утворюються з простих за допомогою логічних операцій and, or, not, причому очевидно, що службове слово or використовується, якщо необхідне виконання хоча б однієї умови, а службове слово and - якщо необхідне одночасне виконання всіх умов.

Наприклад, моя подруга запросила мене до кінотеатру. Але я люблю дивитись тільки фантастику та ще й не впевнена, що в мене вистачить грошей на квиток. Отже, до кінотеатру я потраплю тільки якщо там йде кінофільм відповідної тематики та в мене вистачить грошей на квиток.

Другий приклад. Ми отримуємо подарунок від батьків на одне зі свят: день народження, Новий рік або День Святого Валентина. Отже, якщо сьогодні один з перелічених днів (мій день народження або 1 січня або 14 лютого), я отримаю подарунок. При цьому очевидно, що не обов'язково народжуватися на Новий рік або на День Святого Валентина.

Службове слово not виконує заперечення умови, тобто, якщо вона була істинною, то стає хибною і, навпаки: якщо була хибною — стає істинною. Наприклад, якщо на вулиці не (англійською not) йде дощ, то я залишу вдома парасольку. В цьому випадку «йде дощ» - умова, яка може бути істинною чи хибною в залежності від погоди на вулиці. А слово не заперечує цю умову, тобто робить її хибною, якщо дощ дійсно йде, і навпаки — істинною, якщо дощу немає.

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

При написанні програм мовою Паскаль у записі умов можуть використовуватися всі можливі операції відношення (дорівнює, не дорівнює, менше, більше, не більше, не менше тощо). Результат виразу має булівський тип. Наприклад:

(х > 4) and (x < 10)

При х = 5 ця умова буде істинною, а при х = 25 — хибною.