Опубликовано 03.01.2018 по предмету Информатика от Гость

Составьте программу с использованием условного оператора, предусмотрите вариант, когда значение будет выходить за пределы диапазона, в этом случае экран должен очищаться , выводиться подсказка и программа должна возвращаться в начало. Условие для программы: Cоставьте программу , которая в зависимости от азимута, показываемого стрелкой компаса, определят страны света: север юг, воcток,запад.

Ответ оставил Гость

{Первый вариант}

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;
writeln(Пожалуйста, введите корректное значение.);
goto 1;
end;
if a < 0 then begin
clrscr;
writeln(Пожалуйста, введите корректное значение.);
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;
writeln(Пожалуйста, введите корректное значение.);
goto 1;
end;
if a > 360 then begin
clrscr;
writeln(Пожалуйста, введите корректное значение.);
goto 1;
end;
end.