Я готуюсь до курсу інформатики. Алгоритмізація та програмування

введе число, що не входить у дозволений діапазон, будемо вважати, що він пожартував.

Program Example_134;

Uses crt;

Var Years:byte; {Years - вік користувача}

Begin

Clrscr; {Очищення екрану}

Write (‘Введіть Ваш вік: ‘).;

Readln(Years);

Write(‘Ви ‘);

Case Years of

0..10: Writeln(‘- дитина.’);

11.. 15: Writeln(‘- підліток.’);

16..20: Writeln(‘- юнак (юнка).’);

21..30: Writeln(‘- молода людина.’);

31..150: Writeln(•- доросла людина.’)

Else writeln(‘, пожартували? Людина стільки не живе!’);

End;

Readkey; {Затримка зображення на екрані}

End.

ЗАДАЧА №151

Умова: Розробити програму виведення інформації про день тижня, (вихідний чи робочий), якщо задано його номер від 1 до 7 (1 - понеділок).

Program Example_149;

Uses crt;

Var Day:byte; {Day - номер дня тижня}

Begin

Clrscr;

Write(‘Введіть номер дня тижня: ‘);

Readln(Day);

Case Day of

1..5: Write(‘Це робочий день ‘);

6,7: Write(‘Це вихідний день ‘);

Else write(‘Це не день ‘);

End;

Writeln(‘тижня.’);

Readkey;

End.

ЗАДАЧА №160

Умова: Дано ціле число N (1 > N > 3) та дійсне число X. За даним значенням змінної N, яка є номером функції, визначити:

1) sin X

2) cos X

3) tg X.

Program Example_160;

Uses crt;

Var N:byte; {N - номер функції, що обчислюється}

X,Y:real; {X - значення змінної, Y - значення функції)

Begin

Clrscr;

Write(‘Введіть значення X: ‘);