Ошибка в паскале встречено begin а ожидалось - ErrorsMaster.ru - большая энциклопедия ошибок и их решений

Program Recomend;//•Начало
Uses CRT { Подключить модуль CRT } ;
 
 var ext,f,menu,set1,e,e1,e6,h,h1,r,a,s:integer; 
 name,b,c,t:string; 
 Tit:real;
 label main,p1,n1,a1,demoend,n2,N7,21,d,d1,e1xt,next3;
 
 Begin
 main:
 clrscr;
 Gotoxy(30,1);
  write('¦DAMNUM¦');
 Gotoxy(1,3);
  write('Выбирете опцию:');
 Gotoxy(4,5);
  Write('•1.Играть');
 Gotoxy(4,7);//Не работает
  Write('•2.Параметры');// it's too
 Gotoxy(4,9);
  Write('•0.Выход');
 Gotoxy(6,11);
  Write('Ввод: ');
  Gotoxy(12,11);
 Readln(menu);
  
  Case menu of
 
 
 2:
 begin//¦¦¦¦¦¦¦¦
  clrscr;
  gotoxy(5,10);
   write('Введите секретный код.');
  gotoxy(6,11);
   write('Ввод: ');
  gotoxy(11,11);
   readln(set1);
   if set1=4324 then write('Hell yeah!!11!! You are BEST!');
  
   end;
  
  0: begin//••777MM•••777••777
    clrscr;
    Gotoxy(20,13);
     Write('Вы действительно хотите выйти?');
    Gotoxy(30,15);
     write('1.ДА   2.НЕТ');
    Gotoxy(33,17);
     readln(ext);
    If (ext=1) then exit else goto main ;
    end;
 
 1: 
    begin//¦--3---
    Tit:=16;
    Clrscr;//Cцена 1 "Где я?"
     Gotoxy(28,10);
     //FontType(Tit);
     write('"DAMNUM"');
     delay(4324);
     clrscr;
    Gotoxy(10,10);
     Write('Вы проснулись от лая собак.');
    Delay(3000);
    Gotoxy(12,12);
     Write('Вы встали с странной кровати.');
    Delay(3000);
    Gotoxy(14,14);
     Write('Головная боль не даёт вам норамально мыслить.');
    
     delay(3000);
     Clrscr;
    Gotoxy(13,13);
     Write('Вы: Где я?');
     Delay(2000);
    clrscr;
    Gotoxy(13,13);
     Write('Вы: Как я сюда попал?');
     Delay(2000);
    clrscr;
    Gotoxy(13,13);
     Write('Почему это место похоже на темницу?');
     delay(2000);
   p1: clrscr;
     gotoxy(1,18);
     Write('--------------------------------------------------------------------------------');
   Gotoxy(18,16);
     write('Нажмите "5" чтобы осмотрется.');
    Gotoxy(19,20);
     write('Ввод: ');
    
    readln(f);
    If (f=5) then goto n1 ;
    If (f>5) or (f<6) then goto p1;
    
    n1:clrscr;
    gotoxy(5,10);
    Write('Осмотрев комнату вы заметели: стол, окно, дверь.');
    gotoxy(1,18);
     Write('--------------------------------------------------------------------------------');
    gotoxy(19,19);
     write('1. Осмотреть стол');
    Gotoxy(19,20);
     write('2. Посмотреть в окно');
    Gotoxy(19,21);
     write('3. Взаимодействовать с дверью');
    Gotoxy(19,22);
     write('Ввод: ');
    Gotoxy(25,22);
     readln(e);
 
       CASE e of
       1: Begin
          clrscr;
              gotoxy(5,10);
      write('Подойдя к столу, вы замечаете оборваный лист');
      
      
          gotoxy(1,18);
      Write('--------------------------------------------------------------------------------');
         gotoxy(19,19);
      write('1.Осмотреть оборваный лист');
         gotoxy(19,20);
      write('2.ВЕРНУТСЯ');
         Gotoxy(19,21);
      write('Ввод: ');
     Gotoxy(25,21);
      readln(h);
          case h of
          1:Begin
          clrscr;
          Gotoxy(3,6);
           write('На листе было написано:');
          gotoxy(5,8);
         Write('Заключёный');
          GotoXy(5,9);
           write('Имя: hM->,5¦¦');
            gotoxy(5,10);
           write('Фамилия:O6-*152');
             gotoxy(5,11);
           write('Возраст: -');
             gotoxy(5,12);
           write('Доставлен из NORTH FOBBOS');
            gotoxy(5,13);
           write('Причина: подозрение в сговоре против власти');
            gotoxy(5,14);
           write('Камера содержания №3');
           gotoxy(5,16);
           write('Срок прибывания: Пожизнинное заключение.');
           
          
             gotoxy(1,18);
      Write('--------------------------------------------------------------------------------');
         gotoxy(19,19);
      write('1.ВЕРНУТСЯ');
      gotoxy(19,20);
      write('Ввод: ');
     Gotoxy(25,20);
      readln(r);
       case r of
       1: begin
                 clrscr;
         goto n1;
        end;
       end;
            end;
       
          2: Begin
          clrscr;
         goto n1;
       
           end;
           end;
          end;
    
//--------------
    
    2:Begin
     clrscr;
     Gotoxy(5,10);
      write('Вы посмотрели через железный прутья');
     gotoxy(5,12);
     write('Вы заметели каменную стену ,раскинувшиюся до горизонта,и домишки возле её');
      gotoxy(1,18);
     Write('--------------------------------------------------------------------------------');
      gotoxy(19,19);
      write('1.ВЕРНУТСЯ');
      gotoxy(19,20);
      write('Ввод: ');
     Gotoxy(25,21);
      readln(r);
       case r of
       1: begin
                 clrscr;
         goto n1;
         
        end;
       end;
     readkey;
     end;
   
//-------------------   
     
    3:begin
    clrscr;
 gotoxy(5,10);
 Write('Подёргав дверную ручку, дверь не открылась.');
 Gotoxy(1,18);
  Write('--------------------------------------------------------------------------------');
      gotoxy(19,19);
      write('1.Приложить силу ');
      gotoxy(19,20);
      write('2.ВЕРНУТСЯ');
      gotoxy(19,21);
      write('Ввод: ');
     Gotoxy(25,21);
      readln(r);
      if (r=2) then goto n1;
       case r of
       1:begin
 21:    clrscr;
   gotoxy(5,10);
   Write('Приложив силу, вы открыли дверь. ');
   gotoxy(5,12);
   Write('Нажмите "5" чтобы осмотрется.');
   Gotoxy(1,18);
  Write('--------------------------------------------------------------------------------');
   gotoxy(19,19);
   write('Ввод: ');
   gotoxy(25,19);
   readln(a);
    if a=5 then goto n2;
    if (a>6) or (a<5) then goto 21;
n2: 
  clrscr;
   gotoxy(5,10);
   Write('Вы заметели: большую металлическую дверь,');
   gotoxy(5,12);
   write('Kамеру содеражания №2, камеру содержания №1');
   Gotoxy(1,18);
  Write('--------------------------------------------------------------------------------');
   gotoxy(19,19);
  write('1.Открыть большую металлическую дверь.');
   gotoxy(19,20);
  write('2.Открыть камеру содеражания №2.');
   gotoxy(19,21);
  write('3.Открыть камеру содеражания №3.');
  
   gotoxy(19,23);
   write('Ввод: ');
   gotoxy(25,23);
   readln(s);
   Case s of
    1:begin
    clrscr;
     gotoxy(10,10);
    write('Открыв дверь, вас замечает охраник.');
    delay(2000);
     clrscr;
     Gotoxy(31,10);
    write('БОЙ НАЧИНАЕТСЯ!');
     delay(2000);
 d:    clrscr;
      
    Gotoxy(5,10);
    write('Охраник готовится к атаке');
    Gotoxy(1,18);
  Write('--------------------------------------------------------------------------------');
      Gotoxy(19,19);
      write('1.Атаковать');
      Gotoxy(19,20);
      write('2.Блок');
      Gotoxy(19,21);
      write('3.Уклон');
      gotoxy(19,22);
      write('Ввод: ');
      Gotoxy(25,22);
      readln(e1);
      case e1 of
       1: begin
          clrscr;
         gotoxy(5,10);
         Write('Противник увернулся и отразил атаку.');
         delay(1000);
         clrscr;
         Gotoxy(17,10);
         write('ВЫ МЕРТВЫ!');
          gotoxy(3,14);
         write('1.Продолжить');
          gotoxy(20,14);
         write('2.Выход');
          gotoxy(5,15);
         readln(h1);
         if (h1=1) then goto d else goto e1xt;
          end;
          
        2: begin
            clrscr;
         gotoxy(5,10);
         Write('Cилы были равны.');
            delay(1000);
            clrscr;
             Gotoxy(17,10);
         write('ВЫ МЕРТВЫ!');
          gotoxy(3,14);
         write('1.Продолжить');
          gotoxy(20,14);
         write('2.Выход');
          gotoxy(5,15);
         readln(h1);
         if (h1=1) then goto d else goto e1xt;
          end;
         
        3:begin
         clrscr;
         gotoxy(5,10);
         write('Уклонится не удалось.');
         delay(1000);
         clrscr;
         Gotoxy(17,10);
         write('ВЫ МЕРТВЫ!');
          gotoxy(3,14);
         write('1.Продолжить');
          gotoxy(20,14);
         write('2.Выход');
          gotoxy(5,15);
         readln(h1);
         if (h1=1) then goto d else goto e1xt;
         end;
          end;
      end;
      
      2: begin
      Clrscr;
      Gotoxy(5,10);
    write('Дверь закрыта.');
    Gotoxy(1,18);
  Write('--------------------------------------------------------------------------------');
      Gotoxy(19,19);
      write('1.ВЕРНУТСЯ');
      gotoxy(19,20);
      write('Ввод: ');
      Gotoxy(25,20);
      readln(e);
      if (e=1) then goto n2;//IOIOIOIOIOIOIOIIIOIIIIIIIIIIIIIIIIIIIII
      
      end;
      
     3:
      begin
      Clrscr;
      Gotoxy(5,10);
    write('Открыв дверь, вы видете сундук.');
    Gotoxy(1,18);
  Write('--------------------------------------------------------------------------------');
      Gotoxy(19,19);
      write('1.Открыть сундук');
      gotoxy(19,20);
      write('2. ВЕРНУТСЯ');
      gotoxy(19,21);
      write('Ввод: ');
      Gotoxy(25,21);
      readln(e6);
      if (e6=2) then goto n2;//IOIOIOIOIOIOIOIIIOIIIIIIIIIIIIIIIIIIIII
      case e6 of
      
      1:begin
      Clrscr;
      Gotoxy(5,10);
    write('Вы получили КЛЮЧ.');
    Gotoxy(1,18);
  Write('--------------------------------------------------------------------------------');
      Gotoxy(19,19);
      write('1.ВЕРНУТСЯ');
      gotoxy(19,20);
      write('Ввод: ');
      Gotoxy(25,20);
      readln(e);
      if (e=1) then goto N7;//IOIOIOIOIOIOIOIIIOIIIIIIIIIIIIIIIIIIIII
      
      end;
      
   end;
         end;
//------------
       
      end;
  end;
 
 
 
 
 end;//N•:8463458;7:96
   end;
   end;
  Begin//N7
 N7:  clrscr;
   gotoxy(5,10);
   Write('Вы заметели: большую металлическую дверь,');
   gotoxy(5,12);
  write('Kамеру содеражания №2, камеру содержания №1 ');
   Gotoxy(1,18);
  Write('--------------------------------------------------------------------------------');
   gotoxy(19,19);
  write('1.Открыть большую металлическую дверь.');
   gotoxy(19,20);
  write('2.Открыть камеру содеражания №2.');
   gotoxy(19,21);
  write('3.Открыть камеру содеражания №3.');
   
 
   gotoxy(19,23);
   write('Ввод: ');
   gotoxy(25,23);
   readln(s);
   Case s of
    1:begin
    clrscr;
     gotoxy(10,10);
    write('Открыв дверь, вас замечает охраник.');
    delay(2000);
     clrscr;
     Gotoxy(31,10);
    write('БОЙ НАЧИНАЕТСЯ!');
     delay(2000);
 d1:    clrscr;
      
    Gotoxy(5,10);
    write('Охраник готовится к атаке');
    Gotoxy(1,18);
  Write('--------------------------------------------------------------------------------');
      Gotoxy(19,19);
      write('1.Атаковать');
      Gotoxy(19,20);
      write('2.Блок');
      Gotoxy(19,21);
      write('3.Уклон');
      gotoxy(19,22);
      write('Ввод: ');
      Gotoxy(25,22);
      readln(e1);
      case e1 of
       1: begin
          clrscr;
         gotoxy(5,10);
         Write('Противник увернулся и отразил атаку.');
         delay(1000);
         clrscr;
         Gotoxy(17,10);
         write('ВЫ МЕРТВЫ!');
          gotoxy(3,14);
         write('1.Продолжить');
          gotoxy(20,14);
         write('2.Выход');
          gotoxy(5,15);
         readln(h1);
         if (h1=1) then goto d1 else goto e1xt;
          end;
          
        2: begin
            clrscr;
         gotoxy(5,10);
         Write('Cилы были равны.');
            delay(1000);
            clrscr;
             Gotoxy(17,10);
         write('ВЫ МЕРТВЫ!');
          gotoxy(3,14);
         write('1.Продолжить');
          gotoxy(20,14);
         write('2.Выход');
          gotoxy(5,15);
         readln(h1);
         if (h1=1) then goto d1 else goto e1xt;
          end;
         
        3:begin
         clrscr;
         gotoxy(5,10);
         write('Уклонится не удалось.');
         delay(1000);
         clrscr;
         Gotoxy(17,10);
         write('ВЫ МЕРТВЫ!');
          gotoxy(3,14);
         write('1.Продолжить');
          gotoxy(20,14);
         write('2.Выход');
          gotoxy(5,15);
         readln(h1);
         if (h1=1) then goto d1 else goto e1xt;
         end;
          end;
      end;
      
      2: begin//act1->next3
      Clrscr;
      Gotoxy(5,10);
    write('Дверь закрыта.');
    Gotoxy(1,18);
  Write('--------------------------------------------------------------------------------');
      Gotoxy(19,19);
      write('1.Воспользоватся ключом');
      gotoxy(19,20);
      write('2.ВЕРНУТСЯ');
      gotoxy(19,21);
      write('Ввод: ');
      Gotoxy(25,21);
      readln(e);
      if (e=2) then goto N7 else goto next3;//IOIOIOIOIOIOIOIIIOIIIIIIIIIIIIIIIIIIIII
      
      end;
      
     3:
      begin
      Clrscr;
      Gotoxy(5,10);
    write('Открыв дверь, вы видете открытый сундук.');
    Gotoxy(1,18);
  Write('--------------------------------------------------------------------------------');
      Gotoxy(19,19);
      write('1.ВЕРНУТСЯ');
      gotoxy(19,20);
      write('Ввод: ');
      Gotoxy(25,20);
      readln(e6);
      if (e6=1) then goto N7;//IOIOIOIOIOIOIOIIIOIIIIIIIIIIIIIIIIIIIII
     
      end;
      
   end;
         end;
//------------
       
   
 
 
  end;//N7
     
   Begin //next3 O                                                                                                                                                                                      dddaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaКЛАВИАТУРААААААААААААААААААА
  next3:  Clrscr;
      Gotoxy(5,10);
    write('Открыв дверь ключом, вы видете пустую комнату с деревянным люком');
    Gotoxy(1,18);
  Write('--------------------------------------------------------------------------------');
      Gotoxy(19,19);
      write('1.Открыть люк');
      gotoxy(19,20);
      write('2.ВЕРНУТСЯ');
      gotoxy(19,21);
      write('Ввод: ');
      Gotoxy(25,21);
      readln(e);
    if (e=2) then goto N7;
   end;//next3
 
 
 
 
 end;
e1xt:
 end.

Источник

Samiranol

+10

Решено

2 года назад

Информатика

Студенческий

Что делать если выдает ошибку? Пишет: встречено «Begin» а ожидалось выражение.
program Func;

var
x, y: real;integer:

Begin
ReadLn(x);
(abs(2.x — 5) + sqr(b)).sqr(x);
Writeln(‘y(x)=’, y);
end.

Смотреть ответ

Только сегодня начал учить Паскаль и заметил у вас кучу ошибок. Вы сделали очень много лишних действия, и непонятно, чему равны переменные molod и sredny? А если это строки, то b и а тоже должны быть строковыми. Я бы сделал так

program haracteristy;

uses crt;

var vozrast: Integer;

begin

clrscr;

writeln (‘Введите свой возраст’);

read (vozrast);

if (vozrast >0) and (vozrast <18) then </p>

write (‘Вы еще очень молоды’)

else if vozrast >18 then

write (‘Вы в расцвете сил’)

else

write(‘Ошибка! Возраст не может быть меншье нуля’);

end.

Источник

Форум мехмата ЮФУ

Загрузка…

Источник

исчезла? uses GraphABC; procedure Zv (x,y: integer; cl:integer); var i,k: integer; begin k:=0; for i: integer := 1 to 10 do Print(i); Println; // Здесь переменная i не доступна! for var i := 10 downto 1 do // описание с автоопределением типа Print(i); end; begin setpencolor(cl); setpenwidth(4); setbrushcolor(cl); circle(x+k div 2+k div 4,y+k div 2+k div 4,k div 2); circle(x+k div 2+k div 4,y-k div 2-k div 4,k div 2); circle(x-k div 2-k div 4,y+k div 2+k div 4,k div 2); circle(x-k div 2-k div 4,y-k div 2-k div 4,k div 2); setbrushcolor(clyellow); circle(x,y,k div 2); setbrushcolor(cl); circle(x-k,y,k div 2); circle(x+k,y,k div 2); circle(x,y-k,k div 2); circle(x,y+k,k div 2); k:=k+3; end. begin setwindowsize(360,320); setpencolor(clblack); setbrushcolor(clblack); ellipse(100,270,250,300); setpencolor(clskyblue); setbrushcolor(clskyblue); rectangle(150,150,200,250); circle(175,250,50); setpencolor(clgreen); setbrushcolor(clgreen); circle(100,150,20); circle(150,100,20); circle(220,40,20); circle(260,100,20); circle(120,50,20); circle(210,170,20); Zv (100,100,clred); Zv (170,50,clmaroon); Zv (210,80,clred); Zv (230,130,clFuchsia); Zv (160,150,clPurple); end.

В коде, который вы предоставили, есть несколько ошибок и непонятных моментов. Вот исправленная версия вашего кода:

pascal
uses GraphABC;

procedure Zv(x, y: integer; cl: integer);
var
  i, k: integer;
begin
  k := 0;
  for i := 1 to 10 do
  begin
    Print(i);
    Println;
  end;
  
  for i := 10 downto 1 do
    Print(i);

  setpencolor(cl);
  setpenwidth(4);
  setbrushcolor(cl);
  circle(x + k div 2 + k div 4, y + k div 2 + k div 4, k div 2);
  circle(x + k div 2 + k div 4, y - k div 2 - k div 4, k div 2);
  circle(x - k div 2 - k div 4, y + k div 2 + k div 4, k div 2);
  circle(x - k div 2 - k div 4, y - k div 2 - k div 4, k div 2);
  setbrushcolor(clyellow);
  circle(x, y, k div 2);
  setbrushcolor(cl);
  circle(x - k, y, k div 2);
  circle(x + k, y, k div 2);
  circle(x, y - k, k div 2);
  circle(x, y + k, k div 2);
end;

begin
  setwindowsize(360, 320);
  setpencolor(clblack);
  setbrushcolor(clblack);
  ellipse(100, 270, 250, 300);
  setpencolor(clskyblue);
  setbrushcolor(clskyblue);
  rectangle(150, 150, 200, 250);
  circle(175, 250, 50);
  setpencolor(clgreen);
  setbrushcolor(clgreen);
  circle(100, 150, 20);
  circle(150, 100, 20);
  circle(220, 40, 20);
  circle(260, 100, 20);
  circle(120, 50, 20);
  circle(210, 170, 20);
  
  Zv(100, 100, clred);
  Zv(170, 50, clmaroon);
  Zv(210, 80, clred);
  Zv(230, 130, clFuchsia);
  Zv(160, 150, clPurple);
end.

Внесенные изменения:

Добавлена открывающая и закрывающая парные инструкции begin и end в процедуре Zv.
Удалена ненужная строка k := k + 3;, так как значение k не используется в коде после этой строки.
Удалены все незнакомые и неопределенные переменные, такие как cl, clred, clmaroon, clFuchsia и clPurple. Если вы хотите использовать пользовательские цвета, вам нужно будет определить их значения самостоятельно или использовать стандартные цвета, такие как clRed, clMaroon, `

Источник

Комментарии