ПРограмма компилируется, но не работает, в чем ошибка.

[Dalokoshka]

Сообщение от _-Re@l-_

Враньё-лэйблы надо ограничивать.
Например, такой код:

program gh;
label one, two;
begin
      one:
      begin
            writeln('one');
            writeln('one');
            readln;
            goto two;
      end;
      two:
      begin
            writeln('three');
            write('tw');
            readln;
            halt;
      end;
      goto one;
      readln;
end.

Сначала выведется
one
one
Затем ожидание ентера
three
tw
Выход.
А теперь так:

program gh;
label one, two;
begin
      one:writeln('one');
      readln;
      writeln('one');
      readln;
      goto two;
      two:
      begin
            writeln('three');
            write('tw');
            readln;
            halt;
      end;
      goto one;
      readln;
end.

Сначала
one
Затем ожидание ентера
Затем вывод
one
Затем
three
tw
Выход.
eoln, вы поняли, почему были неправы?Если лэйбл не ограничивать, то ...получится, что в него входит только одна строчка кода.А чтобы добавить туда много инструкций, нужно юзать составной оператор.Так то.


Можно, тогда суть такая:

Val(Concat(S[1],S[2]),X,Err);
Val(Concat(S[3],S[4]),Y,Err);

а почему у вас только 2ая метка ограничена?
и что означает Concat?

[Dalokoshka]

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

_-Re@l-_, путаешь, наверное, с инструкцией case of... - там похожий синтаксис, а вот метки используют для скачка в программе (например, из многих вложенных циклов удобно выскакивать куда-нить подальше).
Dalokoshka, К вопросу о ДД.ММ - заменяем участок кода

var d,m,z,error:integer;
    s,s2:string[5];
label paz;
begin
  ClrScr;
     paz:writeln ('ievadiet dzimshanas datumu');
     readln (s);
     s2 := copy(s, 1, pos('.', s) - 1);
     delete(s, 1, pos('.', s));
         val (s2,d,error);
         if (d>32) or (error<>0) then begin
                            writeln ('nepareizi ievadita diena');
                            goto paz
                            end;
     {readln (s)};
         val (s,m,error);
         if (m>12) or  (error<>0) then begin
                            writeln ('nepareizi ievadits menesis');
                            goto paz
                            end;
     write ('jus esat- ');

Теперь вводим данные в формате ДД.ММ
http://programmersforum.ru/showthread.php?t=93027 - это по арабским и римским числам. В поиске по форуму ещё есть

СПАСИБО большущее! Вы даже не представляете как вы меня выручили!!!!

[Serge_Bliznykov]

хотел пройти мимо молча, но, простите, не смог...

Сообщение от _-Re@l-_

Враньё-лэйблы надо ограничивать.

Глупости!
Вы в своих примерах написали РАЗНЫЙ код! А Вы напишите ОДИНАКОВЫЙ код (с begin/end ) и без операторных скобок.
и сравните выполнение.
например:

  I := 0;
  One: WriteLn('One');
          WriteLn('One one');
          WriteLn('One one one');
  inc(I);
  if I < 2 then GOTO One;

проверьте и убедитесь, что после GOTO выполнятся ВСЕ строчки, а не одна, на которой стоит метка ONE !!!!

GOTO это БЕЗУСЛОВНЫЙ переход. Выполнятся ТЕ ЖЕ операторы, и в той же последовательности, как и без BEGIN/END.

[Dalokoshka]

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

Dalokoshka, К вопросу о ДД.ММ - заменяем участок кода

var d,m,z,error:integer;
    s,s2:string[5];
label paz;
begin
  ClrScr;
     paz:writeln ('ievadiet dzimshanas datumu');
     readln (s);
     s2 := copy(s, 1, pos('.', s) - 1);
     delete(s, 1, pos('.', s));
         val (s2,d,error);
         if (d>32) or (error<>0) then begin
                            writeln ('nepareizi ievadita diena');
                            goto paz
                            end;
     {readln (s)};
         val (s,m,error);
         if (m>12) or  (error<>0) then begin
                            writeln ('nepareizi ievadits menesis');
                            goto paz
                            end;
     write ('jus esat- ');

Теперь вводим данные в формате ДД.ММ
[

Обьясните мне, пожалуйста что именно означают эти строки
s2 := copy(s, 1, pos('.', s) - 1);
delete(s, 1, pos('.', s));
как они читаются?
Мне это для дальнейших программ надо.
Заранее спасибо.

[Serge_Bliznykov]

s2 := copy(s, 1, pos('.', s) - 1);

взять в строку s2 подстроку из строчки s, начиная с 1-го символа и до первой точки в строке (минус один - это значит, саму точку не брать в s2

delete(s, 1, pos('.', s));

удалить из строки s все символы от первого символа до первой точки включительно.

p.s. перед подобным кодом предварительно ОБЯЗАТЕЛЬНО проверять наличие точки в строке. Иначе вылезет ошибка в процессе работы программы.

[_-Re@l-_]

Глупости!
Вы в своих примерах написали РАЗНЫЙ код! А Вы напишите ОДИНАКОВЫЙ код (с begin/end ) и без операторных скобок.

А, вы знаете, я понял, в чём моя ошибка...
Спасибо, Serge_Bliznykov.

[Dalokoshka]

Спасибо, теперь все понятно.