[malekskv]

Загружаются строки из текстового файла. Нужно рандомно добавить в лейбл 1,4,7,10.....34,37 (1+3).. (пока делаю хотя бы с 3 строками 1,4,7)


код

Код:

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

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, Math;   type   TForm1 = class(TForm)     Label1: TLabel;     procedure FormCreate(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   var f1:TextFile; i,n,j,k:integer; chislo:String; vop:array[1..9] of String; a:array[1..9] of integer; implementation   {$R *.dfm}     procedure TForm1.FormCreate(Sender: TObject); begin n:=1; randomize; assignfile(f1,'Test.txt'); reset(f1); for i:=1 to 9 do begin readln(f1,chislo); vop[i]:=chislo; for j:=1 to 3 do begin a[j]:=a[j]+n; n:=n+3; begin k:=RandomRange(1, 3); Label1.Caption:=vop[a[k]]; end; CloseFile(F1); end; end; end;

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

[Asinkrit]

с end-ами напутал, по твоему вариант CloseFile(F1) - у тебя отыгрывается большое кол-во раз, на нем скроее всего и вылетает ошибка..,
скорее всего должно было быть:

Код:

1 2 3 4 5 6 7

...   for j:=1 to 3 do     begin     a[j]:=a[j]+n;     n:=n+3;     end; ...

Оформляй код с отступами, и будет намного легче его читать.

[malekskv]

Код:

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

procedure massiv; begin a[1]:=1; n:=0; for j:=1 to 3 do begin a[j]:=a[1]+n; n:=n+3;   end; end;   procedure randomnoe; begin randomize; k:=RandomRange(1, 4); end;   procedure TForm1.FormCreate(Sender: TObject); begin   assignfile(f1,'Test.txt'); reset(f1); for i:=1 to 9 do begin readln(f1,chislo); vop[i]:=chislo; Massiv; Randomnoe; Label1.Caption:=vop[a[k]]; end; CloseFile(F1); end;   end.

Сделал не много по другому. все отлично работает )


Возможно ли как то упростить код?

[Asinkrit]

Куда уж проще)

[lmikle]

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

Куда уж проще)

Конечно, можно проще.
Собственно, если не ошибаюсь, ты грузишь некоторый список строк, потом просто выводишь в лабел случайную строку с 1 через 3.

Код:

1 2 3 4 5 6 7 8 9 10 11 12

procedure Form1.LoadLabel; var   S :TStringList;   K : Integer; begin   Randomize;   S := TStringList.Create;   S.LoadFromFile('file.txt');   K := Round(Random(S.Count / 3));   Label1.Caption  := S[K * 3];   S.Free; end;

Все.
1. Инициализируем генератор случайных чисел.
2. Создаем экземпляр класса списка строк.
3. Загружаем в него содержимое файла.
4. Вычисляем случайную строку, где максимальный номер = кол-во / 3 (у нас выдаются строки через 3).
5. Загружаем в метку нужную строку (строки через 3, начинаем с первой, нулквой в списке).
6. "Убиваем" созданный объект.

[malekskv]

Помогите еще кое-чем.
Нужно в массив a:array[1..10] присвоить числа рандомно от 1 до 10 и что бы елементы масивва не повторялись.. как такое сделать? )

[Kapitoshka438]

Код:

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

const   N = 10;   var   A: array [1..N] of Integer;   function Exists(X: Integer): Boolean; var   I: Integer; begin   Result := False;   for I := 1 to N do     if A[i] = X then     begin       Result := True;       Exit;     end; end;   procedure BuildArray; var   I, T: Integer; begin   for I := 1 to N do     A[i] := 0;   for I := 1 to N do   begin     repeat       T := Random(N) + 1     until       not Exists(T);     A[i] := T;   end; end;