Помогите умоляяяяяяю, НЕ НАДО ИСПОЛЬЗОВАТЬ НИКАКОЙ Crt! Через while и case. Выполнять действия не надо, просто сделать код на Pascal

+ 0 -

Sveta20102010

20 апр. 2015 г., 9:11:01 (9 лет назад)

Ну например так, вместо lck оформишь свои процедуры и добавишь в case:

program test;
uses crt;
var
 ex,n:integer;
procedure lck;
begin
 clrscr;
 writeln('This is lock');
 readln;
end;
begin
while(ex=0) do
begin
 clrscr;
 writeln('1:Program 1');
 writeln('2:Program 2');
 writeln('3:Program 3');
 writeln('4:exit');
 writeln;
 write('Insert number: ');Readln(n);

 case n of
  1:lck;
  2:lck;
  3:lck;
  else ex:=1;
 end;
end;
end.

+ 0 -

Fix33

20 апр. 2015 г., 10:32:44 (9 лет назад)

точно)) если не сложно ты выполнить действия самые простые

+ 0 -

Qweeeq27

20 апр. 2015 г., 13:28:21 (9 лет назад)

мне бы понять как перейти к выполнению действия графика и т.д

+ 0 -

Frag1kxpyct

20 апр. 2015 г., 14:06:07 (9 лет назад)

надо написать код, а действия графика, музыка и выход я сам вставлю

+ 0 -

Ecopol40

20 апр. 2015 г., 14:56:57 (9 лет назад)

Это даже не световое меню...что сложного: выводишь на экран пункты, читаешь с клавиатуры и по case делаешь действие.

+ 0 -

Юля0005

20 апр. 2015 г., 17:01:05 (9 лет назад)

я все понимаю но как ------ При выборе пункта «Графика» выполняется задание графической части курсовой работы. После нажатия любой клавиши (см. задание на графическую часть) происходит возврат в Меню (см. рис. выше). При выборе пункта «Музыка» - звучит мелодия, по окончании которой также происходит возврат в Меню. При выборе пункта «Выход» происходит выход из программы.