оператор case.выход в меню.Паскаль абц

[LittleG]

ребят помогите пожалуйста. Как из программы выйти в меню?
например
меню
case f of
1: программа, выход в меню
2:программа;выход в меню и т.д
пробовал break,exit ,ставил метку- получается ошибка или бред(
идет работа в графическом окне,вопрос сразу,как в графике вывод текст с определенного места экрана ?gotoxy(x,y) ставил gotoxy(1,1) не было результата
программа состоит из модулей и программы
прога имеет длинный код,поэтому выложу его в ворд.ПРОГА.doc
Спасибо!

[Scorpius]

Сообщение от LittleG

ребят помогите пожалуйста. Как из программы выйти в меню?
например
меню
case f of
1: программа, выход в меню
2:программа;выход в меню и т.д
пробовал break,exit ,ставил метку- получается ошибка или бред(
Спасибо!

Структура программы для возврата в меню должна быть такая:

while true do
begin
  writeln( 'Выбор программы ');
  writeln('   1- Лабораторная №1');
  writeln('   2- Лабораторная №2');
  writeln('   3- Лабораторная №3');
  writeln('   4- Лабораторная №4');
  writeln('   5- Лабораторная №5');
  writeln('   6- Лабораторная №6');
  writeln('   q- Выход');
  read(VB); clearwindow;
  if VB=’q’ then break;
  case VB of
    1: функция_1;
    2: функция_2;
    ...
  end;
end;

[LittleG]

Сообщение от Scorpius

Структура программы для возврата в меню должна быть такая:

while true do
begin
  writeln( 'Выбор программы ');
  writeln('   q- Выход');
  read(VB); clearwindow;
  if VB=’q’ then break;
  case VB of
    1: функция_1;
    2: функция_2;
    ...
  end;
end;

тогда VB какой будет являться переменная? если мы к ней приписываем char а потом integer .

[Scorpius]

Сообщение от LittleG

тогда VB какой будет являться переменная? если мы к ней приписываем char а потом integer .

Сделай так:

  writeln('   0- Выход');
  ...
  if VB=0 then break;

Главное чтоб был выход с цикла

[LittleG]

Сообщение от Scorpius

Сделай так:

  writeln('   0- Выход');
  ...
  if VB=0 then break;

Главное чтоб был выход с цикла

ну получилось. только я if VB=0 then break; поставил в конец каждой проги.

var 
begin
while true do
begin
менюшка
case VB of
1:begin
код проги if VB=0 then break;end;
2:... и т.д

но вот вопросик.после возвращения в меню ,Менюшка сдвигается вниз ну а затем и сама прога спускается вниз. а вверху белое пятно( как можно подправить?brr.jpg( извините за кривости скринов)