Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.04.2018, 18:19   #1
Maksym Yevtusenko
Новичок
Джуниор
 
Регистрация: 25.04.2018
Сообщений: 1
По умолчанию 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.


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

Последний раз редактировалось Serge_Bliznykov; 25.04.2018 в 19:28.
Maksym Yevtusenko вне форума Ответить с цитированием
Старый 25.04.2018, 18:59   #2
Pavia
Лис
Старожил
 
Аватар для Pavia
 
Регистрация: 18.09.2015
Сообщений: 2,409
По умолчанию

Точку с запятой потеряли.
Код:
procedure TForm1.Button3Click(Sender: TObject);
 var i : Integer;
 begin
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
У дзен программиста программа делает то что он хотел, а не то что он написал .
Pavia вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Убрать папки "Pictures", "Music", "Видео", "Downloads" из "МОЙ КОМПЬЮТЕР" Бахтиёр1916 Windows 1 05.04.2017 12:53
lazarus, выдёт ошибку, Fatal: Syntax error, "BEGIN" expected but "end of file" found. Артём14 Lazarus, Free Pascal, CodeTyphon 3 12.11.2016 18:35
Нужно пояснить/прокомментировать код программы, или коды функций "Добавить" "Удалить" "Обновить(редактировать" "Поиск" "Период") ZIRASS PHP 4 15.06.2016 14:23
Синтаксическая ошибка ")" expected but "(" found WebbMan Паскаль, Turbo Pascal, PascalABC.NET 3 30.09.2012 21:16