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

Нужно набрать в паскале с командой повторения с параметрами. Пожалуйста , напишите полностью программу! Очень нужно :с :с :с
тело цикла:
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.

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

Как я понял, надо оптимизировать код и избавиться от "спаггети в программировании". Так называли в свое время сильное увлечение метками и конструкциями Go To. Ну попробуем. Только не понял как сюда воткнуть команду повторения с параметром ...

var  y, a, x :real;
begin
  read(a,x);
 if a<>0 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.