 |
|
Зразок виконання завдання
Задача.Розрахувати допомогу по непрацездатності за формулою:
,
де С – сума заробітку за два календарних місяці, що передують тому місяцю, в якому настала непрацездатність(грн.); K – фактична кількість відпрацьованих днів за ці два місяці; B – кількість днів хвороби; H – безперервний стаж роботи; P – сума допомоги (грн.).
Математична модель
Аргументи –задані С – дійсне число типа real, K, B, H, цілі числа типу Integer,
Результат –отримане в результаті розрахунку сума P , дійсне число типу real.Обраховується в залежності від H по формулі.
Блок-схема задачі
Алг Допомога
арг С, K, B, H
рез P
поч.
введ(С, K, B, H)
якщо H<3
то P=C/K*B*0,5
інакшеякщо H<5
то P=C/K*B*0,6
інакше якщо H<8
то P=C/K*B*0,8
Інакше
P=C/K*B*0,5
Вивід(Р)
Кін
Програма на паскалі
Program Dopomoga;
Var k,b,h:integer;
P,c:real;
Begin
Write(‘c=’); readln(c);
Write(‘b=’); readln(b);
Write(‘h=’); readln(h);
Write(‘k=’); readln(k);
If h<3 then
P=C/K*B*0,5
Else If h<5 then
P=C/K*B*0,6
Else If h<8 then
P=C/K*B*0,8
Else P=C/K*B;
Writeln(‘p=’,p);
End.
Завдання
Скласти програму для розв’язання задачі. Набрати і налагодити цю програму, а також підібрати вхідні дані.
1. Дано тризначне число. Визначити, чи можуть цифри цього числа бути довжинами сторін трикутника.
2. Визначити чи є серед трьох чисел а, b, с хоча б одна пара рівних між собою чисел.
3. Поміняти місцями значення змінних x, y, z так, щоб вони утворили зростаючу послідовність.
4. Визначити, чи є серед цифр заданого тризначного числа однакові.
5. Визначити чи дорівнює сума двох перших цифр заданого чотиризначного числа сумі двох його останніх цифр.
6. Визначити, чи є серед чисел a, b, c число, рівне середньому арифметичному цих чисел.
7. Визначити, чи є даний рік високосним (рік з двома нулями в кінці високосний, коли число ділиться на 400).
8. Визначити, чи буде сума цифр заданого тризначного числа парною.
9. Дано дійсні числа x, y. Якщо вони обидва від’ємні, то замінити кожне його модулем. Якщо від’ємним є лише одне з них, то обидва значення збільшити на 0.5. В решті випадків залишити числа без змін.
10. Дано два числа x, y (x<>y). Менше з двох чисел замінити півсумою, а більше – подвоєним добутком.
11. Визначити, скільки коренів має квадратне рівняння вигляду 
за заданими a,b,c.
Контрольні запитання
1. Для чого і коли використовується оператор розгалуження?
2. Яким чином працює оператор розгалуження?
3. Чим відрізняється повна і скорочена форми оператора розгалуження?
4. Наведіть блок-схему оператора розгалуження.
5. Чи можуть вираз і константи бути різних типів?
6. Коли оператори заключаються в операторні дужки?
7. За якої умови операторні дужки не ставляться?
8. Чи можливий запис з вкладених операторів? Наведіть приклад.