Почему у меня все метки выходят по очереди...хотя должна выводить только 1

@Данияр 1994 · Регистрация: 02.04.2011

Студворк — интернет-сервис помощи студентам

Pascal

label m1,m2,m3;    
var a,b,h : Integer;
    s   : real;
    g   : string;
begin
WriteLn('Площадь какой фигуры вы хотели найти?');
ReadLn(g);
if (g='Треугольник') then goto m1; 
if (g='Квадрат')     then goto m2;  
if (g='Трапеция')    then goto m3; 
m1: begin 
    WriteLn('Введите стороны треугольника');
    ReadLn(a,b);
    s:=b*a/2;
    WriteLn('Площадь треугольника равна', ' ',s);
    
m2: begin 
    WriteLn('Введите сторону квадрата');
    ReadLn(a);
    s:=sqr(a);
    WriteLn('Площадь квадрата равна', ' ',s);
    
m3: begin 
    WriTeln('Введите стороны и высоту трапеции');
    ReadLn(a,b,h);
    s:=(a+b)*h/2;
    WriteLn('Площадь трапеции равна', ' ',s);
    
end;
end;
end;
end.

Почему у меня все метки выходят по очереди...хотя должна выводить только 1... помогите плиз...если есть ошибки исправьте пожалуйста

@Puporev · 06.04.2011, 15:49

Программа написана по дурацки, но если уж приспичило, то так.

Pascal

uses crt;
var a,b,h : Integer;
    s   : real;
    g   : string;
label m,m1,m2,m3,m4;
begin
m:begin
  WriteLn('Площадь какой фигуры вы хотели найти?');
  ReadLn(g);
  end;
if (g='Треугольник') then goto m1
else if (g='Квадрат')     then goto m2
else if (g='Трапеция')    then goto m3
else if g='Выход' then goto m4;
m1: begin
    WriteLn('Введите стороны треугольника');
    ReadLn(a,b);
    s:=b*a/2;
    WriteLn('Площадь треугольника равна', ' ',s);
    goto m;
    end;
m2: begin
    WriteLn('Введите сторону квадрата');
    ReadLn(a);
    s:=sqr(a);
    WriteLn('Площадь квадрата равна', ' ',s);
    goto m;
    end;
m3: begin
    WriTeln('Введите стороны и высоту трапеции');
    ReadLn(a,b,h);
    s:=(a+b)*h/2;
    WriteLn('Площадь трапеции равна', ' ',s);
    goto m;
    end;
m4:exit;
end.

@Данияр 1994 · 06.04.2011, 20:19 **[ТС]**

я новичек, и это мои первые попытки создать программу

@Puporev · 06.04.2011, 20:29

Тогда отвыкай от меток...

@Данияр 1994 · 07.04.2011, 09:14 **[ТС]**

Спасибо большое...я учту твой совет

@Данияр 1994 0 / 0 / 0 Регистрация: 02.04.2011 Сообщений: 10
	06.04.2011, 20:19 [ТС]	3
	я новичек, и это мои первые попытки создать программу 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	06.04.2011, 20:29	4
	Тогда отвыкай от меток... 1

@Данияр 1994 0 / 0 / 0 Регистрация: 02.04.2011 Сообщений: 10
	07.04.2011, 09:14 [ТС]	5
	Спасибо большое...я учту твой совет 0

Опции темы