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
