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

Ошибка "Fatal: Syntax error, ";" expected but "." found"

07.02.2018, 04:52. Просмотров 7486. Ответов 14

звучит задание: создай программу, в которой можно преподнести введенное пользователем число к указанному степеню.

покапавшись на всяких форумах и тп, написал код. вроде бы все ок. но при компиляции выдает ошибку в 41 строке unit1.pas(42,17) Fatal: Syntax error, ";" expected but "." found

ниже код:

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
unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    E1: TEdit;
    E2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
  x, n, y: extended;
 
implementation
              function Power(const Base, Exponent: Extended): Extended;
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
begin;
   x:=strtofloat(e1.text);
   n:=strtofloat(e2.text);
   y:=Power(n, x);
   label2.caption:=floattostrf(s, ffFixed, 5,2);
end;
 
end.
ps. уже сам нашел несколько ошибок, но все равно проблема осталась

Добавлено через 8 минут
*СТРОКА 37, А НЕ 41
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.02.2018, 04:52
Ответы с готовыми решениями:

Ошибка "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...

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

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

Ошибка Fatal: Syntax error, ";" expected but "is" found
Не могу нигде прописать часть кода вот эт type tproc = procedure is...

14
Заводной мандарин
1055 / 617 / 239
Регистрация: 05.05.2015
Сообщений: 3,464
Записей в блоге: 2
07.02.2018, 05:48 2
Цитата Сообщение от stkapler Посмотреть сообщение
implementation function Power(const Base, Exponent: Extended): Extended;
Директива implementation означает раздел реализации, а не описания. Вы не реализовали функцию Power, а просто ее описали (нету begin end). Кстати, переименуйте как-нибудь, а то функция Power уже есть в паскале
0
Модератор
6194 / 3913 / 1728
Регистрация: 21.01.2014
Сообщений: 16,440
Записей в блоге: 3
07.02.2018, 06:04 3
Цитата Сообщение от stkapler Посмотреть сообщение
НЕ ЗНАЮ ЧТО ДЕЛАТЬ!
 Комментарий модератора 
1. Создавать темы в нужном разделе
2. Создавать темы с осмысленным названием
3. Не дублировать свои темы!!!

Это официальное предупреждение: Ваши действия - это нарушение правил форума, а именно пп 4.2, 5.4 и 5.5

3. В секции uses подключить модуль Math
4. Удалить к чертовой матери строку 32
5. В строке 42 заменить переменную внутри FloatToStr(...) Вы присвоили результат возведения в степень в переменную Y, а там у Вас какая-то, не пойми откуда взявшаяся, S...
0
0 / 0 / 0
Регистрация: 07.02.2018
Сообщений: 19
07.02.2018, 12:22  [ТС] 4
сделал все как вы сказали
но теперь выдает ошибку в сроке 39 и 40

unit1.pas(39,25) Error: Incompatible type for arg no. 1: Got "TTranslateString", expected "Int64"


unit1.pas(39,25) Error: Incompatible type for arg no. 1: Got "TTranslateString", expected "Int64"

сами строки

Pascal
1
2
   x:=FloatToStr(E1.Text);
   n:=FloatToStr(E2.Text);
у меня есть готовый ответ на это задание, даже 2. но все таки хочу найти решение самостоятельно, пусть даже при помощи форумчан)
0
Модератор
6194 / 3913 / 1728
Регистрация: 21.01.2014
Сообщений: 16,440
Записей в блоге: 3
07.02.2018, 12:35 5
stkapler, Вы строку переводите в число, поэтому функция StrToFloat()

Добавлено через 7 минут
В стартовом посте все правильно ведь было написано!
0
0 / 0 / 0
Регистрация: 07.02.2018
Сообщений: 19
07.02.2018, 12:36  [ТС] 6
все хорошо, спасибо! проект компилируется и запускается

НО!! при вводе чисел и после нажатия кнопки - ничего не происходит. а должен быть результат

visible включен. шрифт норм, цвет отличный от фона. ничего не понимаю
0
Модератор
6194 / 3913 / 1728
Регистрация: 21.01.2014
Сообщений: 16,440
Записей в блоге: 3
07.02.2018, 12:41 7
А Вы этот обработчик создавали, или так просто написали?
0
0 / 0 / 0
Регистрация: 07.02.2018
Сообщений: 19
07.02.2018, 12:43  [ТС] 8
нет, не создавал
но в планах для красивого оформления программы это есть
но сейчас просто функционал кода
и результат не отображается
0
Модератор
6194 / 3913 / 1728
Регистрация: 21.01.2014
Сообщений: 16,440
Записей в блоге: 3
07.02.2018, 14:48 9
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Не по теме:

Цитата Сообщение от D1973 Посмотреть сообщение
А Вы этот обработчик создавали
Цитата Сообщение от stkapler Посмотреть сообщение
нет, не создавал но в планах для красивого оформления программы это есть
:scratch:


stkapler, возьмите любую книжку по самым-самым азам создания программ в среде Delphi/Lazarus и обязательно прочтите ее... Ну или программирование бросайте прямо сейчас...
Все, что от Вас требовалось - это положить на форму кнопку, сделать на этой кнопке двойной клик и в получившейся заготовке обработчика события написать код.
0
0 / 0 / 0
Регистрация: 07.02.2018
Сообщений: 19
07.02.2018, 19:11  [ТС] 10
спасибо, теперь все ок!
мне тут пол года учиться осталось, до сдам эти проекты - и буду гулять
вообще не пойму, зачем в 2018 дают учить паскаль
но за помощь - огромное спасибо!
0
Hretgir
07.02.2018, 20:01
  #11

Не по теме:

Цитата Сообщение от stkapler Посмотреть сообщение
зачем в 2018 дают учить паскаль
действительно, ребята учатся на начальников Била Гейтса, а их Паскаль учить заставляют, маразм да и только.

0
0 / 0 / 0
Регистрация: 07.02.2018
Сообщений: 19
07.02.2018, 20:08  [ТС] 12
орнул. ну считайте что у меня узкое мировоззрение, ваше право
но смысла в этом я действительно не вижу. мое мнение и никому его не прививаю
0
Hretgir
07.02.2018, 20:37
  #13

Не по теме:

а что-бы вы хотели учить в 2018? просто интересно...
вот я-бы хотел учить нейросети, а получается что по факту мне нужен паскаль, на настоящий момент.
хотя можете не отвечать, я только мешаю.

0
stkapler
07.02.2018, 20:58  [ТС]
  #14

Не по теме:

я себе сейчас спокойно учу видеомонтаж в свое свободное время, но учить паскаль - навязывает школьная программа

0
Cyborg Drone
08.02.2018, 09:25     Ошибка "Fatal: Syntax error, ";" expected but "." found"
  #15

Не по теме:

Да не спорьте. Не нужно знать язык программирования - значит, не нужно. Личное дело каждого. С другой стороны, те, кто всерьёз занимается программированием, как правило, знает несколько языков программирования, и выучить ещё один, как правило, никакая не проблема.

0
08.02.2018, 09:25
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.02.2018, 09:25
Привет! Вот еще темы с ответами:

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

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

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

Unit1.pas(66,4) Fatal: Syntax error, ";" expected but "." found
unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms,...


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

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

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