Линейный алгоритм: что не так в моём коде?

@ka4eLu · Регистрация: 21.05.2016

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

доброго времени суток. что не так в моём коде?

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, math;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
     private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 
var
A: integer ;  //входные данные
B: extended ; //результат
begin
A := strtoint (Edit1.Text);         // Считывается значение A
 // Memo1.Lines.Add(' A = '+Edit1.Text);   // Вывод A в окно Memo1
 // Вычисляем арифметическое выражение
B :=  A / 1024;
   // Выводим результат в окно Memo1
   //Memo1.Lines.Add(' Результат B = '+FloatToStrF(B,fffixed));
 
end;
 
 
 
end.

@northener · 02.06.2016, 00:24

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

что не так в моём коде?

Строки с 34 по 42. Их не должно быть в коде стандартного модуля Дельфи.

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,252
	02.06.2016, 00:24	2
	Сообщение от ka4eLu что не так в моём коде? Строки с 34 по 42. Их не должно быть в коде стандартного модуля Дельфи. 1