- Учителю
- «Основы алгоритмизации и программирования».
«Основы алгоритмизации и программирования».
Задание 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.