Объявите массив от 1 до N и заполните его вещественными числами, используя функцию random

@RusKey96 · Регистрация: 13.10.2013

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

1 Задача.Введите массив с использованием текстового поля Memo. Выведите на форму в диалоговое окно InputBox.Как в дельфи реализовать.
2.Задача.И почему это не работает?
Объявите массив от 1 до N и заполните его вещественными числами, используя функцию random. Выведите на форму в текстовое поле Memo.

Delphi

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
const N=4;
var
A: array [1..N] of real;
i: integer;
begin
randomize;
  memo1.Clear;
  for i:=1 to N do
    A[i]:= random(20);
  for i:=1 to N do
   begin
    memo1.lines.Add(FloatToStr(a[i]));
  end;
end;
end.

@ZfoxAK · 12.12.2013, 13:15

Объявите массив от 1 до N и заполните его вещественными числами, используя функцию random

@RusKey96 · 12.12.2013, 14:04 **[ТС]**

спасибо,но что то у меня не выходит,видимо мемо не моё,буду преподавателя доставать

@ZfoxAK · 13.12.2013, 07:54

вот проект

@RusKey96 0 / 0 / 0 Регистрация: 13.10.2013 Сообщений: 26
	12.12.2013, 14:04 [ТС]	22
	спасибо,но что то у меня не выходит,видимо мемо не моё,буду преподавателя доставать 0

@ZfoxAK 669 / 559 / 242 Регистрация: 26.11.2012 Сообщений: 2,191
	12.12.2013, 13:15	21
	0

	13.12.2013, 07:54