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

Unit1.pas(66,4) Fatal: Syntax error, ";" expected but "." found

17.11.2018, 21:43. Просмотров 1108. Ответов 6
Метки нет (Все метки)

Delphi
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
 
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
var x, y : real;
begin
  x := StrToInt(Edit1.Text);
  y := StrToInt(Edit2.Text);
  begin
    if ( x < y )then
    begin
      x:=(x+y)/2;
      y:= 2*y ;
      Memo1.Text:=FloatToStr(x);
      Memo1.Text:=FloatToStr(y);
    end;
 
  end;
  begin
   if (x>y) then
   begin
     x:= 2*x;
     y:= (x+y)/2;
     Memo1.Text:=FloatToStr(x);
     Memo1.Text:=FloatToStr(y);
   end;
end;
 
 
end.
Добавлено через 3 минуты
Помогите найти ошибку
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.11.2018, 21:43
Ответы с готовыми решениями:

Unit1.pas(41,5) Fatal: Syntax error, ";" expected but "identifier Y" found
Привет всем.Сделал программу,вроде как должна работать,не пойму в чем проблема(программа вся...

Unit1.pas(57,4) Fatal: Syntax error, ";" expected but "." found
вот фулл прога unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils,...

Ошибка "project1.lpr(35,0) Fatal: Syntax error, "BEGIN" expected but "end of file" found"
type tarray= array of integer; var a:tarray; m,s,k:integer; procedure...

Ошибка "Fatal: Syntax error, ";" expected but "." found"
звучит задание: создай программу, в которой можно преподнести введенное пользователем число к...

6
5326 / 2038 / 439
Регистрация: 20.11.2009
Сообщений: 6,761
Записей в блоге: 1
17.11.2018, 22:01 2
Цитата Сообщение от is17k Посмотреть сообщение
Delphi
1
2
3
4
5
6
7
8
begin
if (x>y) then
begin
x:= 2*x;
y:= (x+y)/2;
Memo1.Text:=FloatToStr(x);
Memo1.Text:=FloatToStr(y);
end;
куда это вот относится???
0
60 / 46 / 20
Регистрация: 01.09.2017
Сообщений: 359
17.11.2018, 22:31 3
в конце поставь ещё одну end; так как у тебя в середине есть ещё один begin, но логику всё равно не понимаю. Memo ловит сразу два значения из 2 переменных одновременно

Delphi
1
2
3
4
5
6
7
Memo1.Text:=FloatToStr(x);
Memo1.Text:=FloatToStr(y);
end;
end;
end;
 
end.
0
5326 / 2038 / 439
Регистрация: 20.11.2009
Сообщений: 6,761
Записей в блоге: 1
17.11.2018, 22:35 4
да фиг с тем мемо.. куда блок бегинов эндов относится? это скрещивание консольного приложения с оконным. где точка запуска является begin ... end. а тут видать тоже самое имеется в виду..
0
60 / 46 / 20
Регистрация: 01.09.2017
Сообщений: 359
17.11.2018, 22:40 5
Вообще то действительно, begin в середине там лишний, его убрать и все.
0
Модератор
Эксперт Pascal/Delphi
6263 / 4221 / 4610
Регистрация: 05.06.2014
Сообщений: 20,797
18.11.2018, 10:25 6
Цитата Сообщение от is17k Посмотреть сообщение
$mode objfpc}{$H+}
И вообще это Lazarus?
0
1 / 1 / 0
Регистрация: 15.10.2017
Сообщений: 8
19.11.2018, 15:01  [ТС] 7
Да, этот lazarus
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.11.2018, 15:01

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Ошибка: project1.lpr(1,1) Fatal: Syntax error, "BEGIN" expected but "end of file" found
project1.lpr(1,1) Fatal: Syntax error, &quot;BEGIN&quot; expected but &quot;end of file&quot; found выдает эту ошибку...

Ошибка: Fatal: Syntax error, ";" expected but "identifier Mas" found.
Где здесь синтаксическая ошибка( &quot;mas:=A2;&quot; )? procedure TForm1.Button1Click(Sender: TObject); ...

Fatal: Syntax error, "BEGIN" expected but "identifier BITMAP" found
Добрый день! пишу программу по методичке, выдает вот такие ошибки: unit1.pas(78,1) Fatal: Syntax...

Fatal: Syntax error, "BEGIN" expected but "end of file" found
Доброго времени суток! Вот простой код, который, по идее, находит корни квадратного уравнения....


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.