دخول

Ra3ch

السلام عليكم واجهت مشكلة اثناء ملئ مصفوفة بارقام عشواية Random

فمثلا تعلمت في السي ++ ان الملئ يكون هكذا

كود :
#include <iostream>
#include <ctime>
#include <cstdlib>

using namespace std;

void FillAray(int Arra[], int N){

srand(time(0));

for (int i = 0; i < N; i++)
    Arra[i] = rand() % 100;

}


int main()
{
const int Size = 10;
int Array[Size];

FillAray(Array, Size);

for (int i = 0; i < Size; i++)
    cout << Array[i] << " ";

    return 0;
}

في الدلفي يختلف الأمر كثيرا وليس قليلا

اريت تكوين ارقام عشوائية من في مصفوفة حجمها 10

و الملئ يكون عن طريق الدالة rand الناتج يوضع في Edit الاول

عن طريق الزر مثلا Fill

وان شاء الله اكون خفيف الضل عليكم لاني سوف اكثر من الأسئة في هاته اللغة

***محمد عبد العزيز*** · 13-10-2019, 03:18 PM

كود :
program Project1;
{$APPTYPE CONSOLE}

uses
  SysUtils;
const Size = 10;
var
 arra:Array[0..Size] of integer;

Procedure FillAray(Var Arra : array of integer; N:integer);
var
i: integer;
begin
 randomize;
 for i :=0 to N-1 do
     Arra[i] := random(100);
end;

var
i: integer;
begin
FillAray(Arra, Size);
for i:=0 to Size-1 do
     Write(Arra[i],' ');
Readln;
end.

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة