Hàm Random( N) Của Pascal Cho Giá Trị Là Một Số Nguyên Ngẫu Nhiên ...

Có thể bạn quan tâm

Tìm×

Tìm kiếm với hình ảnh

Vui lòng chỉ chọn một câu hỏi

Tìm đáp án

- Đăng nhập
- |
- Đăng ký

Hoidap247.com Nhanh chóng, chính xác

Hãy đăng nhập hoặc tạo tài khoản miễn phí!

Đăng nhậpĐăng ký

Đặt câu hỏi

logo

Lưu vào

+
Danh mục mới

Lưu

nguyenthao6650
Chưa có nhóm

Trả lời
0
Điểm
70
Cảm ơn
0

Tin Học
Lớp 8
10 điểm
nguyenthao6650 - 16:50:49 10/04/2020

Hàm random( n) của Pascal cho giá trị là một số nguyên ngẫu nhiên thuộc khoảng rìu 0 đến n-1 để a là một số ngâu nhiên trong khoảng thừa một đến sáu ta sủi dụng lệnh a:=random( 6)+1; Với lênh này , ta có thể viết chúng trình mô phẩm việc gieo một con súc sắc giống như ta gieo một sú sắc thật .Một lần gieo , mặt ngửa của súc sắc là mặt có a chấm Hãy lập trình mô phỏng việc gieo súc sắc trong n lần , số nguyên n nhập từ bàn phím . Sau mỗi lần gieo súc sắc , chuông trình đều thông báo mặt ngửa của súc sắc . Sau n lần gieo ,Chương trình cho biết hệ số mày mán bằng K/ n trong đó K là số lần mặt ngửa là 6 chắm .

Hỏi chi tiết
Báo vi phạm

Hãy luôn nhớ cảm ơn và vote 5* nếu câu trả lời hữu ích nhé!

TRẢ LỜI

nguyenthao6650 rất mong câu trả lời từ bạn. Viết trả lời

TRẢ LỜI

NinhNinh1603
Chưa có nhóm

Trả lời
777
Điểm
8785
Cảm ơn
338

NinhNinh1603

Đây là một chuyên gia không còn hoạt động

24/05/2023

Đây là câu trả lời đã được xác thực

Câu trả lời được xác thực chứa thông tin chính xác và đáng tin cậy, được xác nhận hoặc trả lời bởi các chuyên gia, giáo viên hàng đầu của chúng tôi.

*Chương trình:

program GieoSucSac;uses crt;var n, K, i, a: integer; heSoMayMan: real;begin randomize; // Khởi tạo ngẫu nhiên cho hàm random // Nhập số lần gieo súc sắc từ bàn phím writeln('Nhap so lan gieo suc sac (n): '); readln(n); K := 0; // Số lần mặt ngửa là 6 chấm // Gieo súc sắc n lần và tính số lần mặt ngửa là 6 chấm for i := 1 to n do begin a := random(6) + 1; // Gieo súc sắc, giá trị a là mặt ngửa của súc sắc writeln('Lan gieo thu ', i, ': Mat ngua cua suc sac: ', a); if a = 6 then K := K + 1; // Tính số lần mặt ngửa là 6 chấm end; // Tính hệ số may mắn K/n heSoMayMan := K / n; writeln('He so may man: ', heSoMayMan:0:2); readln;end.

-> Trong chương trình trên, ta sử dụng vòng lặp for để gieo súc sắc n lần. Trong mỗi lần lặp, ta sử dụng lệnh random(6) + 1 để gieo súc sắc và lưu giá trị mặt ngửa của súc sắc vào biến a. Sau đó, ta in ra màn hình mặt ngửa của súc sắc tương ứng với lần gieo.

Trong quá trình gieo, ta đếm số lần mặt ngửa của súc sắc là 6 chấm và lưu vào biến K. Cuối cùng, ta tính hệ số may mắn K/n và in ra màn hình.

Lưu ý: Để sử dụng lệnh random trong Pascal thì cần phải sử dụng lệnh uses crt; và randomize; để khởi tạo ngẫu nhiên trước khi sử dụng hàm random.

Hãy giúp mọi người biết câu trả lời này thế nào?