«Основы алгоритмизации и программирования».

Задание 5. Задан угол. Определить его вид: острый, прямой, тупой, развернутый или плоский.

I этап. Постановка задачи.

Строим описательную модель. Что дано в задаче? Что требуется определить?

Строим математическую модель. Определяем имена переменных: а - угол.

0<а<90 - острый; а=90 - прямой; 90<а<180 - тупой; а= 180 - развернутый; 180<а<360 - плоский.

II этап. Построение алгоритма.

III этап. Запись алгоритма на языке программирования.

Program func;

Uses crt;

Var a:Real;

Begin

Clrscr;

Write('a= ');Readln(a);

If (a>0) and (a<90) Then Writeln('ocтрый')

Else If a=90 Then Writeln ('прямой')

Else If (a>90) and (a<180) Then Writeln('тyпoй')

Else If a=180 Then Writeln('paзвepнyтый')

Else If (a>180) and (a<360) Then Writeln('плоский')

Else Writeln('такого угла нет');

Readln;

End.

Задание 4. Составить программу, которая поможет по температуре тела человека определить болен он или здоров.

I этап. Постановка задачи.

Строим описательную модель. Что дано в задаче? Что требуется определить?

Строим математическую модель. Определяем имена переменных: t - температура тела.

36 <t< 37 - здоров, иначе - болен.

II этап. Построение алгоритма.

III этап. Запись алгоритма на языке программирования.

Program func;

Uses crt;

Var t:Real;

Begin

Clrscr;

Write('введите значение температуры = ');Readln(t);

If (t >=36) and (t < 37) Then Writeln('здopoв')

Else Writeln ('болен');

Readln;

End.