uses crt; label 1; var a: integer; begin 1: write('Введите азимут в градусах: '); readln(a); if a in [1..89] then writeln('Направление: северо-восток'); if a = 90 then writeln('Направление: восток'); if a in [91..179] then writeln('Направление: юго-восток'); if a = 180 then writeln('Направление: юг'); if a in [181..269] then writeln('Направление: юго-запад'); if a = 270 then writeln('Направление: запад'); if a in [271..359] then writeln('Направление: северо-запад'); if a in [0,360] then writeln('Направление: север'); if a > 360 then begin clrscr; введите корректное значение.'); goto 1; end; if a < 0 then begin clrscr; введите корректное значение.'); goto 1; end; end.
{Второй вариант} uses crt; label 1; var a: integer; begin 1: write('Введите азимут в градусах: '); readln(a); case a of 0,360: writeln('Направление: север'); 1..89: writeln('Направление: северо-восток'); 90: writeln('Направление: восток'); 91..179: writeln('Направление: юго-восток'); 181..269: writeln('Направление: юго-запад'); 270: writeln('Направление: запад'); 271..359: writeln('Направление: северо-запад'); end; if a < 0 then begin clrscr; введите корректное значение.'); goto 1; end; if a > 360 then begin clrscr; введите корректное значение.'); goto 1; end; end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку