Задача 3.

Розв’язування задач.

Задача 1.

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

Program PORA;

Var MONTH:integer;

begin

writе('Введіть порядковий номер місяця:');

readln(MONTH);

if (M0NTH<1) or (month>12)

then writeln('Такого місяця немає')

else

case MONTH of

3,4,5:writeln('Becнa');

6,7,8:writeln('Лiтo');

9,10,11l:writeln(Ociнь');

12,1,2:writeln('3имa')

end;

end.

Задача 2.

Касир продає квитки на автобус, який ходить за мар­шрутом від міста А до міста В. Вартість одного квитка залежить від відстані, на яку потрібно їхати пасажиру:

Скільки коштуватимуть N квитків до населеного пункту, відстань до якого вводиться з клавіатури?

1. Створіть новий файл. Збережіть файл під ім'ям Kasir.pas.

2. Опишіть необхідні змінні. Позначимо R - відстань, А - вартість одного квитка на задану відстань, N - кількість квитків, V - за­гальна вартість квитків.

Var A, R, V: Real; N: integer;

Begin

Запишіть оператори введення з клавіатури значень змінних R і N:

Write ('відстань =>');

ReadLn (R);

Write ('кількість квитків =>');

ReadLn (N);

3. Запишіть оператор Case для вибору значення А в залежності від значення змінної R:

case R of

1..50: A:= 50;

51..100: A:=15;

101..150: a:= 25;

Else A:= 35;

End;

4. Запишіть оператор присвоєння для обчислення значення змінної V:

V: = А * N;

5. Запишіть оператор виведення отриманого значення V на екран:

WriteLn ('Загальна сума - ', V: 5:2, 1 гри.1);

6. Виконайте програму для різних значень R і N, перевірте прави­льність роботи програми.

Задача 3.

Для цілого числа К від 1 до 99 надрукувати фразу «Мені К років», враховуючи, що при деяких значеннях К слово «років» треба замінити на «рік» або «роки».

1) Відкрийте новий файл. Збережіть його під ім'ям Vik.pas.

2) Опишіть змінну К і організуйте введення її значення з кла­віатури:

var к: Byte;

Begin

Write ('к =>');

ReadLn (К);

3) Проаналізуйте, як залежить відповідь від числа К:

11 <=К<=14 Мені К років

К mod 10 = 1 Мені К рік

К mod 10 = 0 Мені К років

2 <=К mod 10 <= 4 Мені К роки

5 <= К mod 10<=9 І Мені К років

4) 3 таблиці очевидно, що потрібно відокремити значення К від 11 до 14.

If (К>=11) And (К<=14) Then WriteLn ('Мені ‘,K,’ років')

5) Для інших значень К форма відповіді залежить від числа одиниць в десятковому записі числа К:

If (К>=11) And (К<=14) Then WriteLn ('Мені ', К, ' ро­ків')

Else Case К mod 10 of

1: WriteLn ('Мені ', К, ' рік');

0, 5..9: WriteLn ('Мені ’, К,’ років');

2..4: WriteLn ('Мені ', К, ' роки');

End;

6) Перевірте правильність роботи програми для різних зна­чень К.

Дата добавления: 2015-08-09