Встречено 'end', а ожидалось begin

@PABC907 · Регистрация: 15.04.2016

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

Не могу найти ошибку.

Pascal

uses
  GraphABC, ABCObjects;
 
var
  a: ABCObjects.PictureABC; b: ABCObjects.PictureABC; c: ABCObjects.PictureABC; k: ABCObjects.PictureABC;
 
var
  x, v, s, y, l, p, o, e: integer;
 
procedure KeyDown(Key: integer);
begin;
 
 
  x := 300;
  y := 100;
  s := 500;
  v := 100;
  l := 100;
  p := 100;
  b := ABCObjects.PictureABC.Create(x, y, 'C:\Users\Lenovo\Desktop\Самолетик Паскаль\pic_78.jpg');;
  c := ABCObjects.PictureABC.Create(s, v, 'C:\Users\Lenovo\Desktop\Самолетик Паскаль\pic_78.jpg');;
  k := ABCObjects.PictureABC.Create(l, p, 'C:\Users\Lenovo\Desktop\Самолетик Паскаль\pic_78.jpg');;
  case key of
    VK_Left: if a.Left >= 5 then a.Left := a.Left - 5; 
    VK_Right: if a.Left + a.Width <= 895 then a.Left := a.Left + 5;
    VK_Up: if a.Top >= 5 then a.Top := a.Top - 5; 
    VK_Down: if a.Top + a.Height <= 695 then a.Top := a.Top + 5; 
  end;
  end.

Пишет, Встречено 'end', а ожидалось begin. Помогите, пожалуйста найти ошибку.

@Puporev · 19.07.2016, 06:40

Так программы нет, только процедура.

Pascal

uses
  GraphABC, ABCObjects;
 
var
  a: ABCObjects.PictureABC; b: ABCObjects.PictureABC; c: ABCObjects.PictureABC; k: ABCObjects.PictureABC;
  x, v, s, y, l, p, o, e: integer;
 
procedure KeyDown(Key: integer);
begin;
  x := 300;
  y := 100;
  s := 500;
  v := 100;
  l := 100;
  p := 100;
  b := ABCObjects.PictureABC.Create(x, y, 'C:\Users\Lenovo\Desktop\Самолетик Паскаль\pic_78.jpg');;
  c := ABCObjects.PictureABC.Create(s, v, 'C:\Users\Lenovo\Desktop\Самолетик Паскаль\pic_78.jpg');;
  k := ABCObjects.PictureABC.Create(l, p, 'C:\Users\Lenovo\Desktop\Самолетик Паскаль\pic_78.jpg');;
  case key of
    VK_Left: if a.Left >= 5 then a.Left := a.Left - 5; 
    VK_Right: if a.Left + a.Width <= 895 then a.Left := a.Left + 5;
    VK_Up: if a.Top >= 5 then a.Top := a.Top - 5; 
    VK_Down: if a.Top + a.Height <= 695 then a.Top := a.Top + 5; 
  end;
 end;
begin
onkeydown:=keyDown;
end.

@Rio_77 · 19.07.2016, 14:49

Нужно убрать точку с запятой после слова begin

Pascal

uses
  GraphABC, ABCObjects;
 
var
  a: ABCObjects.PictureABC; b: ABCObjects.PictureABC; c: ABCObjects.PictureABC; k: ABCObjects.PictureABC;
  x, v, s, y, l, p, o, e: integer;
 
procedure KeyDown(Key: integer);
begin;

@volvo · 19.07.2016, 16:08

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

Нужно убрать точку с запятой

Точек с запятой после begin-а может быть сколько угодно, это не ошибка.

@Rio_77 · 19.07.2016, 18:23

Проверила, действительно, это не ошибка. Не знала. Спасибо за поправку

@volvo Супер-модератор 32764 / 21109 / 8139 Регистрация: 22.10.2011 Сообщений: 36,363 Записей в блоге: 8
	19.07.2016, 16:08	4
	Сообщение от Rio_77 Нужно убрать точку с запятой Точек с запятой после begin-а может быть сколько угодно, это не ошибка. 0

@Rio_77 2 / 2 / 0 Регистрация: 14.07.2016 Сообщений: 8
	19.07.2016, 18:23	5
	Проверила, действительно, это не ошибка. Не знала. Спасибо за поправку 0

Опции темы

Встречено 'end', а ожидалось begin

Решение