ПАСКАЛЬ. Поставить метки

[mistertvister]

как поставить метки для того чтобы после выполнения какого то пункта 1 2 3 или 4, можно было выбрать снова какой то пункт?. Шас когда выпонелся какой то пунк, нельзя запустить следуюший, программа закрыватся.

program Laba2;


const
m=3;
n=3;
var a:array  [1..n,1..m]of integer ;
min:array [1..n] of integer;
i,j, sum,p,k : integer;
q:real;
begin
randomize;
writeln('programa vipolnaet operasii nad matrosoy nxm.') ;
writeln('matrisa');
for i:=1 to n do begin
for j:=1 to m do
begin
a[i,j]:=random(25)+1;
write(a[i,j]:3,'');
end;
writeln;
end;
writeln('viberete odin iz punktov');
writeln('1.poisk min elementa v kagdom stolbse.');
writeln('2.podssitivaen summu setnix elementov matrisi, raspoligenix na glavnoy diagonal.');
writeln('3.raspologaet elementi v kagdoy stroke v poriadke vozrastaniz');
writeln('4.zamena vcex setnix chisel na !.');
read(q);
if q=1 then
begin
writeln('=*==*==*= minimalniy element stolbsov: ');
for i:=1 to n do
for j:=2 to m do begin
min[i]:=a[i,1];
if a[i,j]<min[i] then  min[i]:=a[i,j];
end;
for i:=1 to n do writeln(min[i]);
end;

 if q=2 then   begin
sum:=0;
for i:= 1 to n do begin
if a[i,j] mod 2=0 then sum:=sum+a[i,j];
writeln('=*==*==*=sum=',sum);
end;
end;
  if q=3 then begin
for i:=1 to n do
begin
for j:=1 to m do
begin
if a[i,j] mod 2=0 then write('!') else write (a[i,j],'');
end;
writeln;
end;
writeln;
end;
    if q=4 then begin
for i:=1 to n do
for j:=1 to m-1 do
for k:=j+1 to m do

if a[i,j]>a[i,k] then
begin
p:=a[i,j];
a[i,j]:=a[i,k];
a[i,k]:=p;
end;
for i:=1 to n do
for j:=1 to m do begin write(a[i,j]:3);
                       if j=m then writeln
                       end;



end;
readln;
readln;
end.

[Lemo]

советую прочитать про оператор goto , его использование с метками, также советуй почит про оператор switch,заюзать как выбор на какую метку будет указан переход....
ЗЫ:с тел сижу!

[Stilet]

также советуй почит про оператор switch

Что-то я такого в паскале не припомню )

[Lemo]

Сорри, а какой в пасе аналог свича?

[Serge_Bliznykov]

Сорри, а какой в пасе аналог свича?

case

только дело не в том, как проверять (можно, хоть это и не очень красиво и удобно, оставить и на if'ах проверку).
а в том, как огранизовать структуру.
я бы рекомендовал так:

  repeat
      Выводим текст меню (в меню добавить пункт ВЫХОД!)
      вводим выбор пользователя: Read(q)
      case q of
          1: ...
          2: ...
          ...
      end;
until q=НомерПунктаВыхода;

[wolf-wolf]

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

case

только дело не в том, как проверять (можно, хоть это и не очень красиво и удобно, оставить и на if'ах проверку).
а в том, как огранизовать структуру.
я бы рекомендовал так:

  repeat
      Выводим текст меню (в меню добавить пункт ВЫХОД!)
      вводим выбор пользователя: Read(q)
      case q of
          1: ...
          2: ...
          ...
      end;
until q=НомерПунктаВыхода;

сори что не по теме но не могу нати куда в личку вам написать отпишитесь плиз лучше в асю 410-001-720 спасибо

[alex_fcsm]

writeln('viberete odin iz punktov');
writeln('1.poisk min elementa v kagdom stolbse.');
writeln('2.podssitivaen summu setnix elementov matrisi, raspoligenix na glavnoy diagonal.');
writeln('3.raspologaet elementi v kagdoy stroke v poriadke vozrastaniz');
writeln('4.zamena vcex setnix chisel na !.');
case readkey  of
'1':begin

    end;
'2':begin

    end;
'3':begin

    end;
'4':begin

    end;
end;
writeln('Press ESC for exit');
until readkey=#27;

При нажати на кнопку выполнится один из пунктов