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

Readln(X);

Write(‘Введіть номер функції, що обчислюється: ‘);

Writeln(‘1 - sin’) ;

Writeln(‘2 - cos’);

Writeln( ‘3 - tg’);

Readln(N);

Writeln(‘Результат обчислень:’)

Case N of

1: begin Y:=sin(X); writeln(‘sin(x)=’,Y:8:2); end;

2: begin Y:=cos(X); writeln(‘cos(x)=’,Y:8:2); end;

3: begin Y:=Sin(X)/cos(X); writeln(‘tg(x)=’,Y:8:2);

end;

Else wrіteIn(‘Помилка вхідних даних.’);

End;

Readkey;

End.

ЗАДАЧА №165

Умова: Дано натуральне число N(N=< 100), яке позначає вік людини. Додати до цього числа відповідно слова: «рік», «роки», «років», наприклад: 1 рік, 12 років, але 43 роки.

Очевидно, що для того, щоб правильно дописати відповідне слово, необхідно виділити останню цифру числа, що позначає вік людини. Тоді, якщо це цифра «1», то дописується слово «рік», якщо цифри «2», «З» або «4» - дописується слово «роки», а в усіх останніх випадках - дописується слово «років». Виключенням являється діапазон між 10 та 20 роками: в цих випадках завжди пишеться слово «років».

Program Example_165;

Uses crt;

Var Years:byte; {Years - вік людини}

Begin

Clrscr;

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

Readln(Years);

If Years>100 Then writeln(‘Помилкові вхідні дані.’)

Else

Begin

Write(‘Вам ‘,Years);

If (Years>=10) and (Years<=20) Then writeln(‘років’)

Else

Case Years mod 10 of

1: writeln(‘рік.’);

2 . . 4 : writeln(‘роки.’);

0,5..9: writeln(‘років.’);

End;

End;

Readkey;

End.

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

• прочитати сторінки 65 - 66 запропонованого підручника;

• завдання №147, №148, №155, №157, №161.

УРОК 18. Типи циклів

Мета уроку: дати поняття про вказівку повторення та її використання при розв’язуванні задач, про типи циклів та їх оформлення мовою програмування Паскаль і мовою блок-схем.

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