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

[Dalokoshka]

Здравствуйте, помогите , пожалуйста, разобраться. В данной программе пользователь вводит дату рождения и получает соответствующий дате знак зодиака. Кроме того, перед тем как вывести знак зодиака программа проверяет правильность введенной даты.
Проблема в том, что какую бы дату я не вводила, программа пишет "неправильно введенный день" - то что после 1го ВАЛ. Я не понимаю, в чем проблема. Может я оператора неправильно использую, тогда как правильно проверить данные введенные пользователем.
Кроме того, если я ввожу дату в формате дд.мм или в виде 10-15 цифр подряд программа выдает ошибку 106.
И еще объясните мне, пожалуйста, могу я попросит ввести пользователя дату в формате дд.мм или использовать . неправильно? А если можно - то как это сделать и проверить.HOROSKOP.rar

[Dalokoshka]

Программа заработала, ошибка была найдена. Но не решенными остались вопросы:
Кроме того, если я ввожу дату в формате дд.мм или в виде 10-15 цифр подряд программа выдает ошибку 106.
И еще объясните мне, пожалуйста, могу я попросит ввести пользователя дату в формате дд.мм или использовать . неправильно? А если можно - то как это сделать и проверить

[Stilet]

это с чем связано?

Полный проект в архиве в студию.

[Dalokoshka]

Конечный вариант программы перезагрузила в приложении.

[_-Re@l-_]

program horoskops;
uses crt;
var d,m,z,error:integer;
    s:string[3];
label paz;
begin
  ClrScr;
     paz:writeln ('ievadiet dzimshanas datumu');
     readln (s);
         val (s,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- ');
         z:=m*100+d;
                case z of
                     321..331, 401..420: writeln ('auns');
                     421..430, 501..520: writeln ('versis');
                     521..531, 601..621: writeln ('dvini');
                     622..630, 701..722: writeln ('vezis');
                     723..731, 801..823: writeln ('lauva');
                     824..831, 901..923: writeln ('jaunava');
                     924..930, 1001..1023: writeln ('svari');
                     1024..1031, 1101..1122: writeln ('skorpions');
                     1123..1130, 1201..1221: writeln ('strelnieks');
                     1222..1231, 101..120: writeln ('mezaziz');
                     121..131, 201..220: writeln ('udensvirs');
                     221..229, 301..320: writeln ('zivis');
               else writeln ('nekorekti ievadits dzimsanas datums')
               end;
readln;
end.

Мне кажется, все проблемы из-за того, что вы неправильно используете лэйблы.
Вроде как вы подоразумеваете под лэйблом вот это

  paz:writeln ('ievadiet dzimshanas datumu');
     readln (s);
         val (s,d,error);

А сами делаете только вот это:

 paz:writeln ('ievadiet dzimshanas datumu');

Не забывайте, что лэйблы тоже надо ограничивать begin'ами и end'ами.
Кроме того, я вообще не понял в каком виде надо вводить дату рождения - как бы не вводил, всё равно пишет типа неправильно.Всё-таки как надо?

[Dalokoshka]

Я не знала, что лэйблы надо begin'ами и end'ами ограничивать. Нам это не говорили и более того в примерах программ, которые нам показывали они не ограничены. ВЫ уверенны, что надо?

Дату надо вводить так день (2 цифры, напр 01) ентер месяц (2 цифры напр 01) тогда программа выдает знак зодиака.
Мой вопрос таков: можно ли сделать так , чтоб пользователь вводил дату в формате дд точка мм (напр. 12.12) если да - то как это сделать? и затем как проверять правильность введённых данных (напр. что там именно цифры а буквы и т.д.)

Вопрос №2
Пишу 2-ю программу: пользователь вводит цифры и программа переводит их в арабские , если введены римские и в римские , если - арабские. Это реально?
У меня есть варианты: 1 программа переводит в римские и другая в арабские, вот хочу ее объединить. В блоксхеме получается так:
вводим СТРИНГ
проверяем тип ЧАР или ИНТЕГЕР
если ЧАР переводим в арабские
если ИНТЕГЕР - римские
но это только на бумаге =))) а как сделать программу? или это невозможно?

[eoln]

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

Мне кажется, все проблемы из-за того, что вы неправильно используете лэйблы.
Вроде как вы подоразумеваете под лэйблом вот это

  paz:writeln ('ievadiet dzimshanas datumu');
     readln (s);
         val (s,d,error);

А сами делаете только вот это:

 paz:writeln ('ievadiet dzimshanas datumu');

Не забывайте, что лэйблы тоже надо ограничивать begin'ами и end'ами.

Проблем нет - программа рабочая, лэйблы ограничивать не надо, их вообще никак не получится заключить в операторные скобки begin/end ибо это метка перехода.

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

Кроме того, я вообще не понял в каком виде надо вводить дату рождения - как бы не вводил, всё равно пишет типа неправильно.Всё-таки как надо?

Сначала вводим день рождения, затем ENTER, затем месяц рождения.
Мне интереснее другое - какой это язык?

[Dalokoshka]

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

Мне интереснее другое - какой это язык?

Зеленым выделен? латышский


я все еще так и не поняла, вводить с точкой можно? или нет?

[_-Re@l-_]

Проблем нет - программа рабочая, лэйблы ограничивать не надо, их вообще никак не получится заключить в операторные скобки begin/end ибо это метка перехода.

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

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);

[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 - это по арабским и римским числам. В поиске по форуму ещё есть