Pascal
Организовать меню: 1) вычислить значение y=sinx 2) y=cosx 3) выход
- program D1KPxx18;uses crt;varx,y,a:real;label 1,2,3,4;begin4:writeln(‘Выберите что вам нужно: 1-синус числа, 2-косинус числа, 3-выход’);read(a);if a=1 thengoto 1;if a=2 thengoto 2;if a=3 thengoto 3;1:beginwriteln(‘Введите «х»‘);read(x);y:=sin(x);writeln(‘Синус «х» равен ‘,y);writeln(‘Ещё? 1-No, 2-Yes’);read(a);if a=2 then goto 4else goto 3;end;2:beginwriteln(‘Введите «х»‘);read(x);y:=cos(x);writeln(‘Косинус «х» равен ‘,y);writeln(‘Ещё? 1-No, 2-Yes’);read(a);if a=2 then goto 4else goto 3;end;3:writeln(‘Пока!’); end.
Программа основана на метках, перемещая метки можно переходить к разным местам программы, тем самым использую их как меню… это если я правильно понял что именно значило:»Организовать меню»)))