Ошибка "Fatal: Syntax error, "BEGIN" expected but "END" found" - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Ввожу
 unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Windows;
var x, y, z, u, xy, xz: integer;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
procedure Muving;  //Движение
begin
  x:=x+xy;
  y:=y+xz;
  z=z+xy;
  u:=u+xz;
end;
 
end.
Выдает ошибку Компиляция проекта, цель: project1.exe: Код завершения 1, ошибок: 2 unit1.pas(37,9) Error: Illegal expression unit1.pas(41,1) Fatal: Syntax error, "BEGIN" expected but "END" found Помогите, меня загнала эта ошибка в ступор.

Решение задачи: «Ошибка "Fatal: Syntax error, "BEGIN" expected but "END" found"»

textual
Листинг программы
var
  Form1: TForm1;
  x, y, z, u, xy, xz: integer;
implementation
 
{$R *.lfm}
 
{ TForm1 }
procedure Muving;  //Движение
begin
  x:=x+xy;
  y:=y+xz;
  z:=z+xy;
  u:=u+xz;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Muving;
end;

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4.091 из 5
Похожие ответы