Вопрос по информатике:
Составьте программу с использованием условного оператора, предусмотрите вариант, когда значение будет выходить за пределы диапазона, в этом случае экран должен очищаться , выводиться подсказка и программа должна возвращаться в начало. Условие для программы: Cоставьте программу , которая в зависимости от азимута, показываемого стрелкой компаса, определят страны света: север юг, воcток,запад.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 27.05.2015 03:35
- Информатика
- remove_red_eye 18026
- thumb_up 35
Ответы и объяснения 1
{Первый вариант}
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.
- 28.05.2015 16:12
- thumb_up 30
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.