Hàm Random - Sinh Số Ngẫu Nhiên Trong Pascal - Kiến Thức 24h

Trang chủ » Câu Lệnh Random Trong Pascal » Hàm Random - Sinh Số Ngẫu Nhiên Trong Pascal - Kiến Thức 24h

Có thể bạn quan tâm

Toggle navigation Kiến Thức 24h
  • Trang chủ
  • Series
    • Học lập trình hướng đối tượng OOP
    • Lý thuyết đồ thị căn bản
    • Cơ sở dữ liệu
  • Thuật toán
    • Đồ thị
      • BFS - DFS
      • Cặp ghép
      • Cầu
      • Cây khung
      • Floyd - Dijkstra
      • Khớp
      • Liên thông
      • Luồng
    • Cấu trúc dữ liệu
      • Binary Indexed Tree
      • Hash
      • Interval Tree
      • Queue
      • Stack
    • Duyệt
      • Hình học
      • Nhân ma trận
      • Sắp xếp
      • xử lí xâu
      • Số học
      • Xử lí số lớn
    • Bitmask
    • Heap
    • Đệ quy & quay lui
    • Quy hoạch động
    • Tìm kiếm nhị phân
  • Ngành CNTT
    • CTDL & Giải thuật
    • LTHĐT - OOP
    • Nhập môn lập trình
    • Cơ sở dữ liệu
  • Ngôn ngữ
    • C++
    • Pascal
  • Máy chủ - VPS
  • Webmaster
    • Mã nguồn HTML
    • Mã nguồn JS
    • Mã nguồn PHP
    • Mã nguồn wordpress
  • Contact

1. Hướng dẫn sinh số ngẫu nhiên trong pascal

Để sinh số ngẫu nhiên trong pascal đầu tiên bạn phải đặt câu lệnh ” randomize; ” ở đầu chương trình. câu lệnh này có chức năng sinh ra số khác với lần sinh trước đó. nếu không có nó bạn sẽ thường xuyên thấy nó giống với lần chạy trước đó.

sử dụng sử dụng random:

Random(N);  { kết quả sẽ trả về là 1 số nguyên trong đoạn từ [0..N-1] }.

Như vậy VD nếu bạn muốn sinh ra số ngẫu nhiên trong khoảng [0..25] chẳng hạn thì phải viết như sau:

begin randomize; writeln(random(26)); readln; end.

và tùy theo bạn muốn ngẫu nhiên trong đoạn nào. thì bạn có thể dùng repeat until để chặn điều kiện hoặc có thể dùng phép cộng trừ 😀 các bạn cứ comment phía dưới. mình sẽ viết code cho.

2. Bài tập cơ bản minh họa về ứng dụng hàm random

BT cơ bản ứng dụng hàm random pascal

Đối với các bạn chuyên tin: thì Hàm random đôi lúc cũng giải quyết được các bài toán lớn. random kết hợp với xác xuất có thể giải quyết từ 70% -> 100% test. đôi lúc độ phức tạp thuật toán quá lớn bạn có thể áp dụng kỹ thuật này để xử lí.

Post navigation

SUBSTR spoj – Xâu conBLGEN spoj – Chuỗi gen đặc trưng

101 thoughts on “Hàm random – sinh số ngẫu nhiên trong pascal”

  1. Bạn ơi thế nếu mình muốn gán random vào 1 biến thì sao? Mình dùng code sau thì báo lỗi: var a: integer; begin randomize; a:=random(100); write(a); readln; end.

    Bình luận

    • code này ko có lỗi và chạy bình thường mà ta? http://ideone.com/E6MCLG ko biết bạn đang dùng turbo pascal hay free pascal nhỉ? bạn có thể dùng FPC tại đây https://kienthuc24h.com/download-free-pascal/

      Bình luận

      • Mơn bạn nhiều ^^ Code của mình lỗi chính tả -_- Gõ nhanh nên random -> ramdom, gặp toàn màu vàng nên chả thấy =))

        Bình luận

        • ukm, chúc bạn học tốt 😀

          Bình luận

          • Bạn ơ làm sao để random cái hình tam giác sao ra nhiều màu ạ.

          • Nhập số nguyên N Tạo dãy A

          • Không biết còn ai ở đây không, giúp mình với, hông liên quan lắm, nhưng mà mình hông biết cách khai báo biến file trong pascal nếu nó là input,output rồi thì mình khai báo text đc hông dậy?

    • Cho mình hỏi muốn tạo ra n số Nguyên tố khác nấu trong a b ta làm như thế nào?

      Bình luận

      • Bạn tạo một mảng chứ các số nguyên tố. Sau đó dùng random để lấy ngẫu nhiên nha.

        Bình luận

        • Em tạo được mảng nguyên tố rồi mà không biết cách random ngẫu nhiên từ mảng nó.! Anh chỉ em cái

          Bình luận

          • Chào bạn, đây là code bạn cần nhé.

            Program taotest; Const maxn=5000; Var f1:text; A:array[1..5000] of longint; KT, dd: array[1..maxn] of boolean; spt,i,x,n,j,m:longint; Procedure sangnt; Begin fillchar(KT, sizeof(kt),True); kt[1]:= false; for i:=2 to trunc(sqrt(maxn)) do if KT[i] then for j:= 2 to maxn div i do kt[i*j]:= false; end; BEGIN randomize; n:=1000; sangnt; spt:=0; // so luong snt trong doan 1->n for i:= 1 to N do if KT[i] then begin inc(spt); A[spt]:=i; end; m:= 10; // 10 so ngau nhien fillchar(dd, sizeof(dd),false); for i:= 1 to m do begin repeat x := random(spt)+1; if dd[x]=false then begin dd[x]:=true; write(a[x], ' '); break; end; until (true); end; END.

    • Bạn phải khai báo thư viện crt uses crt;

      Bình luận

      • Thư viện crt để nhập xuất từ bàn phím nha ban, ở trên mình không có nhập xuất nên không cần dùng vẫn không sao.

        Bình luận

    • ban chua khai bao thu vien roi uses crt; nha 🙂

      Bình luận

      • ? Chắc ko?

        Bình luận

    • minh làm vẫn ngon mà program chedorandom; uses crt; var n : integer;

      begin writeln(‘tên’); readln; randomize; n:=(random(3));

      if n=1 then writeln(‘đẹp trai vô đối’); if n=2 then writeln(‘ óc chos vô cùng’); if n=3 then writeln(‘Bị Bê Đê’); if n=0 then writeln(‘Thông minh’);

      readln; end.

      Bình luận

    • a:=(random(100));

      Bình luận

    • uses crt nha bn

      Bình luận

    • Bạn kiểm tra lại đi tớ vẫn chạy được mà

      Bình luận

  2. Bạn ơi mình muốn random từ 1 đến 100 hay 1 đến n số nào đó thì sao bạn?? bạn cho mình ví dụ cụ thể được không. thanks

    Bình luận

    • begin randomize; writeln(random(99)+1); // Để random từ 1-> 100; // ngoài ra để random từ 1 ->N bạn viết writeln(random(n-1)+1); nhớ khai báo N. end.

      // Bạn thay đổi email trong profile để nhận dc thông báo khi có phản hồi nhé. Thân

      Bình luận

      • Mình đã làm y như vậy nhưng chỉ xuất ra 1 số chứ không phải n số

        Bình luận

      • Mình đã làm y như vậy nhưng cũng chỉ ra đc 1 số chứ không phải n số

        Bình luận

      • thank bạn:> Comment hữu dụng nhất :>

        Bình luận

      • anh ơi random từ 1..6 thì làm như thế nào

        Bình luận

        • Không biết còn ai ở đây không giúp mình với, khôg liên quan lắm nhưng mà không biết khai báo biến của file input,output là kiểu dữ liệu nào?

          Bình luận

  3. Mình đã làm y như vậy nhưng cũng chỉ ra đc 1 số chứ không phải n số

    Bình luận

  4. neu minh muon sinh ngau nhien tu 50->60 thi sao ha ban? ban chi cho minh cach lam di

    Bình luận

    • bạn có thể viết begin randomize; writeln(random(10+1)+50+1); end.

      Random(10+1) sẽ cho bạn giá trị từ 0->10, bạn cộng 50 lên sẽ được 50->60 Hoặc bạn cũng có thể dùng repeat until để cài nhé

      var z:longint; begin randomize; repeat z:=ranom(60+1); until (z>=50) and (z7 thì đơn giản là bạn gọi hàm random 5 lần thôi 😀 tuy nhiên là câu hỏi thì sẽ k trùng lại đúng ko? Nên bạn phải thêm mảng đánh dấu. Mình sẽ viết thử cho bạn Var i,x:longint: Dd:array[1..7] of boolean; Begin Fillchar(dd,sizeof(dd),false); For i:=1 to 5 do Begin Repeat X:=random(7)+1; Until dd[x]=false; Dd[x]:=true; Writeln(x); End; Readln; End. Với code này, các số sẽ dc chọn ko trùng nhau và chọn 5 lần. Các số được chọn sẽ ghi ra màn hình. Chúc bạn học tốt.

      Bình luận

  5. minh muon random tu -49999 den 50000 thi phai lam sao ban

    Bình luận

    • begin randomize; writeln(random(100000)-49999); end.

      Bình luận

  6. giúp mình giải bài này nha , tạo 100 số ngẫu nhiên từ 0 đến 99 , các số không được trùng nhau nha , cảm ơn bạn nhiều .

    Bình luận

    • Var i,x:longint: Dd:array[0..99] of boolean; Begin Fillchar(dd,sizeof(dd),false); For i:=1 to 100 do Begin Repeat X:=random(100); Until dd[x]=false; Dd[x]:=true; Writeln(x); End; Readln; End. Dạng này ở trên mình có làm r á bạn :d

      Bình luận

      • cho minh hoi fillchar,sizeof la gi zay

        Bình luận

        • Chào bạn, fillchar thủ tục để bạn điền tất cả đối tượng trong mảng bằng 1 giá trị nhất định. sizeof là giới hạn của cái mảng, thông thường dùng fillchar thì phải dùng nó.

          Góp ý bạn 1 tí: sau này comment hỏi thì bạn vui lòng điền đúng địa chỉ email và có văn hóa một tí giúp mình nhé ([email protected]) cả các thông tin khác nữa. Nếu lần sau vẫn tiếp tục như thế mình có quyền không hỗ trợ.

          Thân mến

          Bình luận

  7. giúp minh nha : tạo 100 số ngẫu nhiên từ 0 đến 99 , các số không được trùng nhau nha , cảm ơn bạn nhiều

    Bình luận

  8. A[i] := random(301)- random(301); no nghia la ji ?

    Bình luận

    • Như mình đã nói ở trên, random(a) với a là 1 biến sẽ cho miền giá trị từ 0 đến a-1. Như vậy, random(301) có giá trị từ 0 den 300. Giả sử phần đầu đạt min=0, và phần sau đạt max 300 thì a[i] là -300. Và phan dau max=300 va phan sau min=0. Như vậy a[i,j] nhận miền giá trị từ -300…300

      Bình luận

  9. bạn ơi chỉ mình cách khai báo mảng hai chiều có sử dụng randomize đi

    Bình luận

    • Chào bạn, mảng 2 chiều, một chiều hay biến thì đều khai báo bình thường thôi. randomize có chức năng tạo số ngẫu nhiên khác với số ngẫu nhiên trước đó. bạn chỉ cần bỏ nó ở trước khi gọi hàm random là được. còn hàm random bạn gọi nó thì nó sẽ trả về giá trị, bạn muốn sinh giá trị ngẫu nhiên trên mảng 2 chiều thì duyệt 2 dòng for cho a[i,j]:=random(….. như vậy thôi bạn. nếu bạn không hiểu thì gửi đề bài mình xem giúp cho.

      Bình luận

  10. bạn cho mình hỏi tại sao khi dùng random để tạo 1 dãy số ngẫu nhiên thì số đầu tiên luôn là 0 vậy

    Bình luận

    • Hi bạn, bạn cho mình hỏi là ban đã viết thêm hàm randomize ở đầu chương trình chưa ạ? và để chắc chắn vấn đề bạn đang gặp hãy up code lên ideone rồi send link qua đây để mình xem giúp cho

      Bình luận

      • thank, đúng là mình chưa viết randomize ở đầu, mình sắp thi tin học trẻ nên chắc nhờ ad giúp đỡ nh` nha!!

        Bình luận

        • 🙂 hi, thời gian này mình cũng bận ôn thi ĐH nên chưa biết có giúp được bạn không. Nhưng nếu mình tl dc gì thì mình sẽ reply 🙂

          Bình luận

          • z chúc ad thi tốt nha

  11. ad giúp em bài này dc ko Tìm ra một dãy con gồm nhiều nhất các phần tử nằm liền kề nhau có giá trị tăng dần khi duyệt từ đầu đến cuối dãy ban đầu.

    Bình luận

    • Bài này dễ mà bạn, nhưng hiên tại mình rất bận, khoảng 1, 2 tháng nữa nhé bạn.

      Bình luận

      • Tạo một dãy gồm n (3 < n < 20) số nguyên nhận các giá trị ngẫu nhiên từ 1 đến 99. Xuất dãy và xuất ra vị trí các số nguyên tố của dãy. Dữ liệu vào: Số nguyên n có giới hạn theo đề. Kết quả ra: Mảng a ngẫu nhiên và vị trí các số nguyên tố trong mảng. aad giúp vs ms nghĩ ra ý tưởng chứ chưa biết viết kiểu j

        Bình luận

  12. ko sao, chỉ là đề thi năm trước nên mình hỏi lại thôi

    Bình luận

  13. ad ơi giúp vs ms nghỉ ra ý tưởng chưa biết viết sao Tạo một dãy gồm n (3 < n < 20) số nguyên nhận các giá trị ngẫu nhiên từ 1 đến 99. Xuất dãy và xuất ra vị trí các số nguyên tố của dãy. Dữ liệu vào: Số nguyên n có giới hạn theo đề. Kết quả ra: Mảng a ngẫu nhiên và vị trí các số nguyên tố trong mảng.

    Bình luận

    • Hiện tại em đã giải được bài này chưa?

      Bình luận

      • ad up code lên tham khảo luôn đi

        Bình luận

      • ad up code lên tham khảo đi

        Bình luận

  14. Viết chương trình thực hiện sinh n (n<100) số nguyên dương ngẫu nhiên bé hơn 1000, in ra màn hình tổng các số chia hết cho 5

    Bình luận

    • var n,i,s:longint; a:array[1..100] of longint;

      begin s:=0; randomize; readln(n); for i:=1 to n do a[i]:=random(1000)+1; for i:=1 to n do if a[i] mod 5 =0 then s:=s+1; writeln(s); end.

      đề của bạn chưa rõ ràng, “in ra màn hình tổng các số chia hết cho 5” là số lượng số? ở trên mình làm theo số lượng. nhưng câu b ghi là tổng. đề này chưa thật sự rõ ràng

      Bình luận

  15. Ad ơi ! nếu muốn in ra mảng 2 chiều n số ngẫu nhiên nhưng chỉ là chẳn ( hoặc lẻ ) thôi thì làm thế nào ?

    Bình luận

  16. Ad ơi ! nếu muốn in ra mảng 2 chiều n số ngẫu nhiên Toàn chẳn ( hoặc lẻ ) thì làm sao ?

    Bình luận

    • một mảng 2 chiều vuông phải k bạn?

      Bình luận

      • mảng hai chiều có cột và dòng nhập vào từ bàn phím ạ

        Bình luận

        • dễ thôi

          // số chẳn var n,i,j,s:longint; a:array[1..100,1..100] of longint; begin s:=0; randomize; readln(m,n); for i:=1 to m do begin for j:=1 to n do begin repeat s:=random(100000); until s mod 2=0; write(s,’ ‘); end; writeln; end; end.

          // số chẳn var n,j,i,s:longint; a:array[1..100,1..100] of longint; begin s:=0; randomize; readln(m,n); for i:=1 to m do begin for j:=1 to n do begin repeat s:=random(100000); until s mod 20; write(s,’ ‘); end; writeln; end; end.

          Bình luận

          • ~ oh ~ mơn ad

  17. Chao b co ham sinh ngau nhien so thuc trong pham vi tu 0 den 1 k? Chi m cach lam voi.thank b nhiu nhiu

    Bình luận

    • chào bạn 😀 Trong pascal không hỗ trợ random số thực nha bạn, nhưng nếu bạn giỏi thì có thể thừa sức viết được hàm random số thực bằng cách sinh 1 số nguyên thông thường, rồi chèn phẩy vô là thành số thực rồi 😀 Tuy nhiên bạn phải cố định số chữ số có nghĩa. Thân mến

      Bình luận

  18. random(100000) sao ko được ad?

    Bình luận

    • được chứ bạn? bạn gửi code bị lỗi lên đây. mình sẽ chỉnh cho

      Bình luận

  19. ad ơi giúp em với ạ viết chương trình phát sinh n phần tử số nguyên, n>=100 nhập từ bàn phím, thực hiện. a) in mảng b) Kiểm tra xem mảng có tăng dần hay ko, nếu ko thì sắp xếp tăng dần, in mảng vừa sắp xếp c) tạo mảng 1 chiều B có k phần tử chẵn có trong mảng A …mong ad giúp giùm ạ…

    Bình luận

  20. ad ơi, giúp mình bài này liền được không ạ: tạo một dãy số nguyên bất kì từ hàm random gồm n số (n nhập vào từ bàn phím). tìm tất cả các số âm trong dãy trên và in kết quả ra màn hình. thanks

    Bình luận

    • uses crt; var n,i:integer; a:array[1..100] of integer; begin clrscr; write(‘ Nhap so phan tu: ‘);readln(n); for i:=1 to n do a[i]:=(random(200)-50); write(‘ Day so nguyen ngau nhien: ‘); for i:=1 to n do write(a[i]:4); writeln; write(‘ Cac so am:’); for i:=1 to n do if a[i]<0 then write(a[i]:4); readln; end.

      Bình luận

  21. mình có bài lập trình kiểu trả lời câu hỏi như kiểu ai là triệu phú ý,nhưng đơn giản chỉ cần chữ thôi chứ ko cần đồ họa. mình tạo 1 file câu hỏi rồi…nhưng ko biết cách lấy ngẫu nhiên câu hỏi ra và ngẫu nhiên sắp xếp đáp án ad giúp mình với ạ! thanks ad!!! <3

    Bình luận

  22. làm cho mình bài này với Có 12 hòn bi giống hệt nhau về kích thước, hình dáng và khối lượng. Tuy nhiên trong chúng lại có đúng một hòn bi kém chất lượng: hoặc nhẹ hơn hoặc nặng hơn bình thường. Dùng một cân bàn hai bên, bạn hãy dùng 3 lần cân để tìm ra được viên bi đó. Cần chỉ rõ rằng viên bi đó là nặng hơn hay nhẹ hơn. Viết chương trình mô phỏng việc tổ chức cân các hòn bi trên. Dữ liệu về hòn bi kém chất lượng do người sử dụng chương trình nắm giữ. Yêu cầu trình bày chương trình đẹp và mỹ thuật.

    Bình luận

  23. giúp mình với tạo một file văn bản có tên songuyen.txt trên ổ đĩa c dòng đầu ghi một số nguyên dương N(N<= 100) vào từ bàn phím dòng 2 trở đi ghi N số nguyên dương (có phạm vi 0 đến 49) hai số cách nhau 2 dấu cách (sử dụng hàm random(n) nhé) thank các bạn nhìu

    Bình luận

  24. cho em hỏi: trong tubopascal em dùng lệnh gán random nó báo lỗi là sao anh

    randomize; a:=random(100);

    Bình luận

    • nó báo lỗi gì vậy em?

      Bình luận

  25. Bạn code giúp mình bài này với? Nhập 100 số nguyên rồi in ra ngẫu nhiên 10 số khác nhau?

    Bình luận

  26. Viết chương trình trò chơi “thử vận may” theo mô tả như sau: Đầu tiên máy tính sinh một số ngẫu nhiên n để biểu diễn số lượt chơi Ở mỗi lượt chơi, máy tính sẽ sinh một số ngẫu nhiên. Trước khi thông báo số này, người chơi sẽ đoán đó là số chẵn (bằng cách nhập số 0) hay lẻ (bằng cách nhập số 1). Kết thúc n lượt chơi, máy tính sẽ thông báo số lần đoán đúng và tỷ lệ đoán đúng của người chơi và thông báo về “sự may mắn” của người chơi, nếu tỷ lệ đoán đúng là: + Từ 80% trở lên thì thông báo “rất may mắn” + Từ 65% đến dưới 80% thì thông báo “may mắn” + Từ 50% đến dưới 65% thì thông báo “bình thường” + Dưới 50% thì thông báo “không may mắn”.

    Bình luận

  27. muốn lấy một số ngẫu nhiên mà loại trừ số 2 thì làm sao hả ah?

    Bình luận

    • mk xin thay mặt ad trả lời câu hỏi này vd program random; uses crt; var a:integer; {mk k khai báo n vì đó là số bạn có thể thay vào} begin a:=2; while a = 2 do begin randomize; a:=random(n); end; a:=n end;

      giải thích: cho tới khi a = 2 mà sai thì sẽ k thực hiện gán a nữa tức là a phải khác 2 mới kết thúc

      Bình luận

  28. ad ơi mình muốn hỏi mình muốn sinh ngẫu nhiên các phép toan +, -, *, / trong pascal thì làm thế nào ạ

    Bình luận

    • Bạn có thể sử dụng random ra số từ 0->3 bạn quy ước 0 là +,1 là -, 2 là *, 3 là /, sau đó bạn có thể dùng lệnh if hoặc switch case để thực hiện ý đồ của mình. Chúc bạn thành công

      Bình luận

  29. Bây giờ mình muốn viết 1 chương trình mở khóa bằng các phép tính ngẫu nhiên với các số ngẫu nhiên (số nguyên á bạn) như sau: nếu nhập kết quả đúng thì mở khóa,sai thì khóa lun đén khi tính đún thì thui ,bạn ưi bạn viết giúp mình vs mình dùng Free Pascal loại mới nhất nha bạn..trong chương trình phãi có câu lệnh lưu mật khẩu nha bạn

    Bình luận

    • Bạn muốn làm kiểu như captcha phải không bạn? Hiện bây giờ mình không còn code pascal nữa, nhưng mình sẽ gợi ý bạn cách làm như sau:

      Mình sẽ làm dạng A+B = ??? vậy đầu tiên bạn dùng Hàm random sinh ra 2 biến A B, như vậy nhiệm vụ còn lại là bạn random phép tính + – hay nhân thôi. Bạn có thể random từ số 0 đến số 2 và coi 0 là cộng, 1 là trừ, 2 là nhân, sau đó xử lí if else , vòng lặp, v.v… để giải quyết bài này nhé. Chúc bạn thành công.

      Bình luận

  30. ad chỉ cách sắp xếp ngâu nhiên cả chữ và số xuất ra thành từng dòng gồm 20 ký tự đi thank ad

    Bình luận

  31. em ms hk pascal a có tài liệu nào về ma trận thì cho e xin ạ

    Bình luận

  32. em ms hk pascal a có tài liệu nào về ma trận thì cho e xin với ạ

    Bình luận

  33. random + xác xuất 🙂

    Bình luận

    • Hi bạn, không biết có vấn đề gì không bạn?

      Bình luận

  34. Bạn ơi mình dùng hàm random(n); kèm theo với randomize; mà sao mình vẫn ra cùng một kết quả? giúp mình với

    Bình luận

    • Bạn gửi code lên đi, mình sẽ xem thử

      Bình luận

      • Thôi, khỏi cần đâu. Do mình nhập lệnh random(1) nên nó cứ cho ra số 0 hoài. Cảm ơn vì đã trả lời mình nhé 😀

        Bình luận

        • Oke bạn. 😀

          Bình luận

  35. Bạn ơi!, sap sep các số cua lệnh random tăng dần thì sao ?

    Bình luận

  36. Bạn ơi!, sap sep các số cua lệnh random tăng dần thì sao ? Mình ko biết, giúp mình với

    Bình luận

  37. gan cho a:=(6) duoc ko anh

    Bình luận

  38. Nhập số nguyên N Tạo dãy A gồm N số nguyên ngẫu nhiên trong khoang [0..100] Tính tổng các số trong dãy Tìm số lớn nhất ,nhỏ nhất của dãy số Dưc ra màn hình các giá trí tìm được

    Bình luận

  39. Nhập số N nguyên cho mảng hai chiều có chiều dài và rộng bằng nhau. Random sau cho các cột và các hàng không trùng nhau.

    Bình luận

  40. cho mk hỏi random từ -100 đến 100 lm thế nào vậy?

    Bình luận

  41. ko liên quan lắm mà cho mình hỏi, fillchar để làm j vậy ạ và cách dùng như thế nào ?

    Bình luận

  42. bạn ơi mình muốn viết chương trình random bốc ra 5 số ngẫu nhiên từ một mảng có n chữ số có thể giống, có thể khác nhau, rồi lấy chữ số lớn nhất trừ số nhỏ nhất trong 5 số ngẫu nhiên đó liên tục sao cho kết quả thu được là nhỏ nhất. Bạn giúp mình với được không?

    Bình luận

  43. ad ơi random từ 1..7 thì làm như thế nào

    Bình luận

Để lại một bình luận Hủy

Email của bạn sẽ không được hiển thị công khai. Các trường bắt buộc được đánh dấu *

Bình luận *

Tên *

Email *

Trang web

Lưu tên của tôi, email, và trang web trong trình duyệt này cho lần bình luận kế tiếp của tôi.

Δ

  • Popular
  • Recent
  • Sử dụng Click để tạo command-line interface (CLI) trong Python Th2 16, 2023
  • Setup VPN server v2ray vmess + websocket + no TLS port 80  Th2 13, 2023
  • Sử dụng docker compose để chạy nukeviet Th1 11, 2023
  • [Nhập môn Phát triển game] Cách làm cầu thang trong game Th12 4, 2018
  • Kết nối thiết bị đến Android Studio thông qua Wifi Th11 23, 2018
  • phát on Tả một cây bóng mát mà em yêu thích ( tả cây bàng)
  • Do Van on [C++ Quay lui] Liệt kê hoán vị các số từ 1 đến n

    #include using namespace std; int main(){ int (...)

  • ANH QUĂN GIÓ TAI on [CSDL] BT Thực hành 1 truy vấn SQL – Phần 2

    CHUẨN R EM IU ƠI. FB EM TÊN

  • bảo on Hàm random – sinh số ngẫu nhiên trong pascal

    ad ơi random từ 1..7 thì làm như thế

  • Võ Tá Nam on Themis web v2.1 Design by CBHT Group

    Xin nhờ ad hướng dẫn để sử dụng themis web (...)

Từ khóa » Câu Lệnh Random Trong Pascal