программка наподобие записной книжки в телефоне

[Timon779]

Я новичок в этом деле, совсем недавно начал изучать Паскаль, поэтому не судите строго Я хотел сделать что-то наподобие того, когда тебе звонят на телефон, а ты видишь не номер телефона, а имя звонящего тебе человека. Естественно после того, как я написал программу, она у меня не скомпилировалась, говорит, что перед else нужно убрать точку с запятой, если убираю, то говорит, что нужно поставить. Вот сам код программы:

program mobile_number;
const
   MaxSize = 11;
var
    i: integer; {номер телефона}
   n: integer; {количество цифр в номере}
   n1: integer; {Звонок внутри области}
   n2: integer; {Звонок на сотовый}
   n3: integer; {Звонок на государственный номер}
begin
   writeln('Введите номер телефона');
   readln(i);
   for i:=1 to n do
      if (n<0) or (n>MaxSize) then
         writeln('Вы ошиблись! Повторите.')
      else if (n>0) and (n<=MaxSize) then
         readln(n);  {считывается количество цифр в номере}
         if n=7 then
            writeln('Звонок по городскому телефону');
            readln(n1)
         else n=11 then
            writeln('Звонок по сотовому телефону');
            readln(n2);
         else n=3 then
            writeln('Звонок по государственному номеру');
            readln(n3);
         end; {end if}
            if n1 = 89168287954 then
               writeln('Димон(мобильный)');
            else n1 = 89163452400 then
               writeln('Света(мобильный)');
            end; {end if}
               if n2 = 1292543 then
                  writeln('Дом');
               else n2 = 3526324 then
                  writeln('Артем(домашний)');
               end; {end if}
                  if n3 = 100 then
                     writeln('Время');
                  else n3 = 095 then
                     writeln('Переключение на межгород');
                  end; {end if}
            
   end; {end for}
end.

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

[RUSt88]

по-мо0438се при перечислении условий, потому у тебя и рему ты ошибся в синтаксугается
необходимо переделать в такую структуру (пример)

if ... then begin
   ...
   if ... then begin
      ...
   end;
end
else begin
   ...
end;

[Timon779]

program mobile_number;
const
   MaxSize = 11;
var
   i: integer; {íîìåð òåëåôîíà}
   n: integer; {êîëè÷åñòâî öèôð â íîìåðå}
   n1: integer; {Çâîíîê âíóòðè îáëàñòè}
   n2: integer; {Çâîíîê íà ñîòîâûé}
   n3: integer; {Çâîíîê íà ãîñóäàðñòâåííûé íîìåð}
begin
   writeln('Ââåäèòå íîìåð òåëåôîíà');
   readln(i);
   for i:=1 to n do
      if (n<0) or (n>MaxSize) then
         writeln('Âû îøèáëèñü! Ïîâòîðèòå.')
      else if (n>0) and (n<=MaxSize) then
         readln(n);  {ñ÷èòûâàåòñÿ êîëè÷åñòâî öèôð â íîìåðå}
         if n=7 then begin
            writeln('Çâîíîê ïî ãîðîäñêîìó òåëåôîíó');
            readln(n1);
         end {end if}
         else if n=11 then begin
            writeln('Çâîíîê ïî ñîòîâîìó òåëåôîíó');
            readln(n2)
         end {end else}
         else if n=3 then begin
            writeln('Çâîíîê ïî ãîñóäàðñòâåííîìó íîìåðó');
            readln(n3);
         end {end else}
   end; {end for}
            if n1 = 89168287954 then begin
               writeln('Äèìîí(ìîáèëüíûé)');
            end
            else if n1 = 89163452400 then begin
               writeln('Ñâåòà(ìîáèëüíûé)');
            end; {end if}
               if n2 = 1292543 then begin
                  writeln('Äîì');
               end
               else if n2 = 3526324 then begin
                  writeln('Àðòåì(äîìàøíèé)');
               end; {end if}
                  if n3 = 100 then begin
                     writeln('Âðåìÿ');
                  end
                  else if n3 = 095 then begin
                     writeln('Ïåðåêëþ÷åíèå íà ìåæãîðîä');
                  end; {end if}

end.

[Базиля]

Timon779
так просто, по коду хотел спросить, все эти сравнения с n. Ведь ты его не вводишь Откуда оно по твоему берется?
По моему вводишь нужно n, а не параметр цила Бесмысленно, он переопределится как только цикл начнет свою первую итерацию

Вот, подправил немного, но теперь ошибка в end for

ты забыл поставить begin этого самого for.

[Google2010]

const
   MaxSize = 11;
var
    i: string; {номер телефона}
   n: integer; {количество цифр в номере}
   begin
   writeln('Введите номер телефона');
   readln(i);
   n:=length(i);
      if (n<0) or (n>MaxSize) then
         writeln('Вы ошиблись! Повторите.')
      else begin
         if n=7 then
            writeln('Звонок по городскому телефону');

         if n=11 then
            writeln('Звонок по сотовому телефону');

         if n=3 then
            writeln('Звонок по государственному номеру');


            if i = '89168287954' then
               writeln('Димон(мобильный)');
            if i = '89163452400' then
               writeln('Света(мобильный)');

               if i = '1292543' then
                  writeln('Дом');
              if i = '3526324' then
                  writeln('Артем(домашний)');

                  if i = '100' then
                     writeln('Время');
                if i = '095' then
                     writeln('Переключение на межгород'); end;
                     readln;
end.

[Timon779]

спасибо, сейчас изменю код программы, посмотрю, что вышло

Google2010 спасибо! Скопировал код, действительно все работает. Только я не понял, почему же Паскаль всё скомпилировал при том, что после if нигде не было написано end?

[Stilet]

if нигде не было написано end?

А ему и не нужен end. End нужен для Begin, если тот стоит в конструкции IF'а, но это только в том случае, если в условии нужно выполнить несколько операторов, а у тебя один:

 if i = '100' then
                     writeln('Время');

А вот несколько

 if i = '100' then begin
                     writeln('Время');
                     writeln('и кое что еще');
          end;

их тут более одного, тогда нужен Begin, которому нужен End;