Нужно рассчитать доход, но вылезает ошибка

@Lightenson · Регистрация: 21.02.2018

Author24 — интернет-сервис помощи студентам

Пробую уже в который раз написать программу, но постоянно вылезает ошибка "Expected "+" but received LABEL at line 11(11:13);
и еще одна "Expected integer but received ";" at line 11(11:18);
В целом я все уже доработала, написала действия, но мучаюсь с вводом переменных. Объясните, пожалуйста.

Delphi

unit Unit2;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;
 
type
  TForm2 = class(TForm)
    Label1: Label;
    Label2: Label;
    Label3: Label;
    Button1: Button;
    Edit1;
    Edit2;
    procedure TLabel1Click(Sender: TObject);
    procedure TButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.dfm}
 
procedure TForm2.TButton1Click(Sender: TObject);
begin
 sum,pr: real;
 srok: integer;
 dohod,sum2: real;
 begin
   if (Length(TEdit1.Text)=0) or (Length(TEdit2.Text)=0) then  begin
   Tlabel3.Font.Color:=clMaroon;
   end
   else begin
     sum:=strtofloat(TEdit1.Text);
     srok:=strtofloat(TEdit2.Text);
     case srok of
     1..3: pr:=9.5;
     4..6: pr:=11;
     7..12: pr:=12.5;
     13..24: pr:=14;
     else pr:=18;
     end;
     dohod:= sum * (pr/100/12)*srok;
     sum2:= sum + dohod;
    TLabel3.Font.Color:=clNavy;
    TLabel3.Caption:='Сумма: '+ FloattostrF(sum,ffcurrency,6,2)+#10+
    'Процент годовых'+ Floattostrf(pr,ffNumber,2,2)+#10+
    'Доход:'+ Floattostrf(dohod,ffCurrency,6,2)+#10+
    'Сумма в конце срока: '+ Floattostrf(sum2,ffCurrency,6,2);
 
   end;
 end;
end;

@Ivandur · 21.02.2018, 22:02

Переменная srok - целая, а присваивается ей вещественное число. Либо делать StrToInt, либо округлить.

@qwertehok · 21.02.2018, 22:04

Сообщение от Lightenson

TEdit1.Text

ты не понимаешь что такое TEdit и Edit?

@northener · 22.02.2018, 02:06

Сообщение от Lightenson

В целом я все уже доработала, написала действия, но мучаюсь с вводом переменных.

Ну если мучения только со вводом переменных, то 33 строка вышеприведенного кода должна выглядеть как

Delphi

var

, а не

Delphi

begin

.
Но и замечания предыдущих ответивших учти.

@D1973 · 22.02.2018, 05:40

Вот это вообще что за красота в объявлении класса формы?
Label1: Label;
Label2: Label;
Label3: Label;
Button1: Button;
Edit1;
Edit2;

Добавлено через 2 минуты
Lightenson, Вы вообще откуда это взяли? И дальше в коде полный бред...

@Lightenson · 22.02.2018, 09:17 **[ТС]**

D1973, я изучаю все по книге Delhi XE и там написано вот так , как сделано у меня (я немного перековеркала, потому что я пробовала вводить программу с книжки , она с ошибками (я не знаю , что не так , потому что я новичок в этом ..)

@qwertehok · 22.02.2018, 09:17

Сообщение от Lightenson

и там написано вот так

не правда, ТАК там точно не может быть написано

@Lightenson · 22.02.2018, 09:21 **[ТС]**

qwertehok, но так он выдаёт ошибку

@Arik100 · 22.02.2018, 09:34

Какую ошибку?

@Lightenson · 22.02.2018, 09:38 **[ТС]**

Arik100, типо : не объявлена переменная Label1 или типо того; я конркретно это попозже скажу ;

@D1973 · 22.02.2018, 09:39

Lightenson, вот в книжке Вашей все правильно написано... Но то, что там написано - не надо тупо переписывать руками: надо на форме размещать компоненты, а их объявления сами пропишутся...

@qwertehok · 22.02.2018, 09:46

Lightenson,
и еще там объявлена переменная Edit, а в коде?

@Lightenson · 22.02.2018, 10:21 **[ТС]**

qwertehok, да , я не понимаю TEdit и Edit; я новичок

@qwertehok · 22.02.2018, 10:46

Не по теме:

ну раз новичок, так и читай что в книжке написано

исправил код? работает?

@Lightenson · 22.02.2018, 13:32 **[ТС]**

northener, спасибо, это чуть уменьшило количество ошибок .

Добавлено через 8 минут
qwertehok, да , доканала программу , спасибо огромное за все замечания и предложения !)

Добавлено через 4 минуты
qwertehok, единственное , после того, как программа рассчитала мне данные , после не получается рассчитать новые данные. Что я могу в этом случае сделать ?

@qwertehok · 22.02.2018, 13:46

Lightenson, без кода я не могу сказать что не так

@Lightenson · 22.02.2018, 13:57 **[ТС]**

qwertehok,

Delphi

unit Unit2;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 
type
  TForm2 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit ;
    procedure TButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.dfm}
 
procedure TForm2.TButton1Click(Sender: TObject);
     var
sum, pr,dohod,sum2: real;
 srok: integer ;
 begin
   if (Length(Edit1.Text)=0) or (Length(Edit2.Text)=0) then  begin
   label3.Font.Color:=clMaroon;
   end
   else begin
     sum:=strtofloat(Edit1.Text);
     srok:=strtoint(Edit2.Text);
     case srok of
     1..3: pr:=9.5;
     4..6: pr:=11;
     7..12: pr:=12.5;
     13..24: pr:=14;
     else pr:=18;
     end;
     dohod:= sum * (pr/100/12)*srok;
     sum2:= sum + dohod;
    Label3.Font.Color:=clNavy;
    Label3.Caption:='Сумма: '+ FloattostrF(sum,ffcurrency,6,2)+#10+
    'Процент годовых'+ Floattostrf(pr,ffNumber,2,2)+#10+
    'Доход:'+ Floattostrf(dohod,ffCurrency,6,2)+#10+
    'Сумма в конце срока: '+ Floattostrf(sum2,ffCurrency,6,2);
 
   end;
 end;
 end.

@qwertehok · 22.02.2018, 14:22

Сообщение от Lightenson

if (Length(Edit1.Text)=0) or (Length(Edit2.Text)=0) then *begin

у тебя повторно кнопка сработает если размер текста в эдитах будет 0

@Lightenson · 22.02.2018, 14:36 **[ТС]**

qwertehok, она все равно не работает :/

@qwertehok · 22.02.2018, 14:37

что значит "не работает"????

@Lightenson 0 / 0 / 1 Регистрация: 21.02.2018 Сообщений: 28
	22.02.2018, 13:32 [ТС]	15
	northener, спасибо, это чуть уменьшило количество ошибок . Добавлено через 8 минут qwertehok, да , доканала программу , спасибо огромное за все замечания и предложения !) Добавлено через 4 минуты qwertehok, единственное , после того, как программа рассчитала мне данные , после не получается рассчитать новые данные. Что я могу в этом случае сделать ? 0

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,130 Записей в блоге: 3
	22.02.2018, 13:46	16
	Lightenson, без кода я не могу сказать что не так 0

@Ivandur 691 / 5405 / 265 Регистрация: 11.08.2016 Сообщений: 3,355
	21.02.2018, 22:02	2
	Переменная srok - целая, а присваивается ей вещественное число. Либо делать StrToInt, либо округлить. 0

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,130 Записей в блоге: 3
	21.02.2018, 22:04	3
	Сообщение от Lightenson TEdit1.Text ты не понимаешь что такое TEdit и Edit? 0

@D1973 Модератор 9261 / 6039 / 2379 Регистрация: 21.01.2014 Сообщений: 25,803 Записей в блоге: 3
	22.02.2018, 05:40	5
	Вот это вообще что за красота в объявлении класса формы? Label1: Label; Label2: Label; Label3: Label; Button1: Button; Edit1; Edit2; Добавлено через 2 минуты Lightenson, Вы вообще откуда это взяли? И дальше в коде полный бред... 0

@Lightenson 0 / 0 / 1 Регистрация: 21.02.2018 Сообщений: 28
	22.02.2018, 09:17 [ТС]	6
	D1973, я изучаю все по книге Delhi XE и там написано вот так , как сделано у меня (я немного перековеркала, потому что я пробовала вводить программу с книжки , она с ошибками (я не знаю , что не так , потому что я новичок в этом ..) 0

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,130 Записей в блоге: 3
	22.02.2018, 09:17	7
	Сообщение от Lightenson и там написано вот так не правда, ТАК там точно не может быть написано 0

@Lightenson 0 / 0 / 1 Регистрация: 21.02.2018 Сообщений: 28
	22.02.2018, 09:21 [ТС]	8
	qwertehok, но так он выдаёт ошибку Миниатюры 0

@Arik100 59 / 60 / 37 Регистрация: 24.07.2015 Сообщений: 224
	22.02.2018, 09:34	9
	Какую ошибку? 0

@Lightenson 0 / 0 / 1 Регистрация: 21.02.2018 Сообщений: 28
	22.02.2018, 09:38 [ТС]	10
	Arik100, типо : не объявлена переменная Label1 или типо того; я конркретно это попозже скажу ; 0

@D1973 Модератор 9261 / 6039 / 2379 Регистрация: 21.01.2014 Сообщений: 25,803 Записей в блоге: 3
	22.02.2018, 09:39	11
	Lightenson, вот в книжке Вашей все правильно написано... Но то, что там написано - не надо тупо переписывать руками: надо на форме размещать компоненты, а их объявления сами пропишутся... 0

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,130 Записей в блоге: 3
	22.02.2018, 09:46	12
	Lightenson, и еще там объявлена переменная Edit, а в коде? 0

@Lightenson 0 / 0 / 1 Регистрация: 21.02.2018 Сообщений: 28
	22.02.2018, 10:21 [ТС]	13
	qwertehok, да , я не понимаю TEdit и Edit; я новичок 0

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,130 Записей в блоге: 3
	22.02.2018, 10:46	14
	Не по теме: ну раз новичок, так и читай что в книжке написано исправил код? работает? 0

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,130 Записей в блоге: 3
	22.02.2018, 14:22	18
	Сообщение от Lightenson if (Length(Edit1.Text)=0) or (Length(Edit2.Text)=0) then *begin у тебя повторно кнопка сработает если размер текста в эдитах будет 0 0

@Lightenson 0 / 0 / 1 Регистрация: 21.02.2018 Сообщений: 28
	22.02.2018, 14:36 [ТС]	19
	qwertehok, она все равно не работает :/ 0

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,130 Записей в блоге: 3
	22.02.2018, 14:37	20
	что значит "не работает"???? 0