Syntax error expected but begin found

Syntax error expected but begin found

Привет, ребята. Я новичок в программировании.

Я действительно начал программировать вчера вечером :D!

Но не это я хочу сказать вам, ребята.

Я написал программу для сложения чисел вместе.

Я знаю, что это не имеет большого значения, но я хочу это сделать.

Это моя программа:

программный проект1;

{$mode objfpc}{$H +}

использует

{$IFDEF UNIX}{$IFDEF UseCThreads}

cthreads,

{$ENDIF}{$ENDIF}

Классы

{ вы можете добавлять единицы после этого };

имя переменной: строка

begin

writeln(‘Пожалуйста, напишите свое имя’);

readln(имя);

writeln(‘Привет’, имя,’!’);

writeln(‘какие числа вы хотите сложить вместе? ‘);

write(‘первое число = ‘);

readln(первое число);

write(‘второе число =’);

readln(второе число);

writeln( ,name,’ ,сумма = ‘,a + b);

writeln(‘Пока’,name,);

writeln(‘Нажмите <ENTER>, чтобы выйти’);

readln;

конец

Я не знаю, что с этим не так, но когда я хочу запустить его, я получаю это сообщение:

project1.lpr(15,1) Fatal: Syntax error, “;” expected but “BEGIN” found

Мне очень нужна ваша помощь.

Спасибо, если вы мне помогаете.

я знаю, что я новичок в программировании, но каждый начинает это один раз.

Спасибо.

Ответ

Вам не хватает точки с запятой:

Код: [Выбрать]

Masodikszam:integer;

Для каждого завершенного оператора Pascal требуется разделитель для обозначения конца этого оператора, который почти всегда является точкой с запятой (‘;’).

В конце другой строки также отсутствует точка с запятой.

Также строка

Код: [Выбрать]

writeln(nev, ‘Az osszeged = ‘, a+b);

не будет компилироваться, пока вы не удалите лишние запятые (как сделано выше) и предварительно не объявите переменные a и b. Вам также необходимо предоставить какой-либо способ присвоения начальных значений a и b. В противном случае они будут содержать случайные значения мусора, которые могут привести к сбою программы.

unit1.pas(44,1) Fatal Syntax Error “.” expected but “BEGIN” found

Мне выдаёт ошибку:

unit1.pas(44,1) Fatal Syntax Error “.” expected but “BEGIN” found

Ребят, подскажите что не так пожалуйста! Буду очень благодарен!

Вот код:

Код:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses

  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,

  ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)

  Button1: TButton;

  Button2: TButton;

  Button3: TButton;

  Edit1: TEdit;

  Image1: TImage;

  Image2: TImage;

  Label1: TLabel;

  procedure Button3Click(Sender: TObject);

  private

  public

  end;

var

  Form1: TForm1;

  sum : real;

  const pr: array[1..6] of Real = (11,17,18,32.5,18.5,15.5);

  nom: array[1..6] of String = (‘Січ’,’Лют’,’Бер’,’Квт’,’Трв’,’Чрв’);

  cl: array[1..6] of TColor = (clBlue, clGreen, clYellow, clRed, clNavy, clAqua);

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button3Click(Sender: TObject);

var i : Integer

begin

  sum := 0;

  for i:=1 to 6 do

  sum:= sum + pr[i];

  Edit1.Text := FloatToStr(sum);

end;

end.

Ответ

Точку с запятой потеряли.

Код:

procedure TForm1.Button3Click(Sender: TObject);

 var i : Integer;

 begin

Наталья Петрова
Оцените автора
Новости города Салавата
Добавить комментарий

Adblock
detector