Задание 5. Задан угол. Определить его вид: острый, прямой, тупой, развернутый или плоский.
I этап. Постановка задачи.
Строим описательную модель. Что дано в задаче? Что требуется определить?
Строим математическую модель. Определяем имена переменных: а – угол.
0<а<90 – острый; а=90 – прямой; 90<а<180 – тупой; а= 180 – развернутый; 180<а<360 – плоский.
II этап. Построение алгоритма. [pic]
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 – здоров, иначе – болен. [pic]
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.
