Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/15: Рейтинг темы: голосов - 15, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 15.04.2016
Сообщений: 15
1

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

18.07.2016, 21:38. Показов 2858. Ответов 4
Метки нет (Все метки)

Не могу найти ошибку.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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. Помогите, пожалуйста найти ошибку.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.07.2016, 21:38
Ответы с готовыми решениями:

Встречено 'end', а ожидалось begin
Друзья спасайте В конце на последней строчке пишет Встречено 'end', а ожидалось begin не пойму в...

Встречено 'end', а ожидалось begin
uses Crt; Const MaxRec = 4; Type String11 = String; String25 = String; ...

Встречено 'End', а ожидалось begin
Что-то не так с циклами видимо, может свежий взгляд обнаружит ошибку? В строку 48 ругается. ...

Встречено 'Begin', а ожидалось выражение
Нужна помощь! При программирование у меня возникла проблема. Встречено 'Begin', а ожидалось...

4
Почетный модератор
64086 / 47495 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
19.07.2016, 06:40 2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Так программы нет, только процедура.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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.
0
2 / 2 / 0
Регистрация: 14.07.2016
Сообщений: 8
19.07.2016, 14:49 3
Нужно убрать точку с запятой после слова begin

Pascal
1
2
3
4
5
6
7
8
9
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;
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
31466 / 20513 / 7988
Регистрация: 22.10.2011
Сообщений: 35,637
Записей в блоге: 7
19.07.2016, 16:08 4
Цитата Сообщение от Rio_77 Посмотреть сообщение
Нужно убрать точку с запятой
Точек с запятой после begin-а может быть сколько угодно, это не ошибка.
0
2 / 2 / 0
Регистрация: 14.07.2016
Сообщений: 8
19.07.2016, 18:23 5
Проверила, действительно, это не ошибка. Не знала. Спасибо за поправку
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.07.2016, 18:23

Встречено end, а ожидалось ';'
в 52 строке выдаёт ошибку &quot;встречено end, а ожидалось &quot;;&quot; помогите пожалуйста :wall: var...

Встречено 'end', а ожидалось ';'
program qq; var x, y, k, i: integer; begin repeat X:= random(10)+1; y:= random(10)+1; i:=0;...

Встречено 'end', а ожидалось ';'
Помогите! В 31 строке ошибка Встречено 'end', а ожидалось ';' :wall: const n=6;m=4; var a:array...

Ошибка: Встречено 'end', а ожидалось ';'
Ребята, помогите пожалуйста. Только начал програмировать на паскале может чего то не понимаю но...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru