Введемо змінні для зберігання результатів: 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 лютого), я отримаю подарунок. При цьому очевидно, що не обов’язково народжуватися на Новий рік або на День Святого Валентина.
Читать дальше