Вопрос по информатике:
Нужно набрать в паскале с командой повторения с параметрами. Пожалуйста , напишите полностью программу! Очень нужно :с :с :с
тело цикла:
Program W13;
VAR y,A,x: REAL;
LABEL 1,2,3,4;
begin
READ (A,x);
If A<>0 then goto 1
else goto 2;
1: If x>=o then goto 3
else goto 2;
2: WRITE ('нет решений');
goto 4;
3: y:=((sin(A)/cos(A))-7.85)/(sqrt(x)+(6+7/16));
WRITE('y=',y,'при А=,А,', при Х=',Х);
4:END.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 02.06.2017 12:53
- Информатика
- remove_red_eye 19995
- thumb_up 15
Ответы и объяснения 1
Как я понял, надо оптимизировать код и избавиться от "спаггети в программировании". Так называли в свое время сильное увлечение метками и конструкциями Go To. Ну попробуем. Только не понял как сюда воткнуть команду повторения с параметром ...
var y, a, x :real;
begin
read(a,x);
if a0 then begin
if x>=0 then begin
y:=((sin(A)/cos(A))-7.85)/(sqrt(x)+(6+7/16));
WRITE('y=',y,'при А=,А,', при Х=',Х)
else WRITE ('нет решений');
end;
end;
else WRITE ('нет решений');
end.
- 03.06.2017 16:03
- thumb_up 4
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.