Lập Trình Pascal Mọi Người Giúp Mk Với

logologoTì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
    • icon_userĐăng nhập
    • |
    • Đăng ký
    icon_menu
avataricon

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ý
  • add
  • Đặt câu hỏiiconadd
  • logo

    loading

    +

    Lưu vào

    • +

      Danh mục mới

    Lưuavataravatar
    • ngocpham52215logoRank
    • Học để làm gì ?
    • Trả lời

      939

    • Điểm

      12945

    • Cảm ơn

      621

    • Tin Học
    • Lớp 8
    • 20 điểm
    • ngocpham52215 - 17:37:58 08/03/2021
    Lập trình pascal Mọi người giúp mk với 🥺imagerotate
    • Hỏi chi tiết
    • reportBá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

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

    TRẢ LỜI

    avataravatar
    • nguyenminhquan15logoRank
    • Chưa có nhóm
    • Trả lời

      2863

    • Điểm

      41637

    • Cảm ơn

      21146

    • nguyenminhquan15
    • 08/03/2021

    program trochoi;

    uses crt;

    var A:array[1..100] of integer;

    B:array[1..100] boolean;

    n,i,t,dd:byte;

    begin

    clrscr;

    ramdomize;

    n:=random(49)+1;

    writeln('So luot choi la: ',n);

    t:=0;

    for i:=1 to n do

    begin

    A[i]:=randomize(1000);

    write('Nhap du doan: ') readln(dd);

    if ((A[i] mod 2=0) and (dd=0)) or ((A[i] mod 2=1) and (dd=1)) then

    begin

    t:=t+1;

    B[i]:=true;

    end

    else B[i]:=false;

    end;

    writeln('So lan doan trung la: ',t);

    writeln('Ket qua theo thu tu la: ');

    for i:=1 to n do

    write(B[i],' ');

    writeln;

    if t/n>=0.8 then write('Rat may man')

    else if t/n>=0.65 then write('May man')

    else if t/n>=0.5 then write('Binh thuong')

    else write('Khong may man');

    readln;

    end.

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

    avatar

    starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar4starstarstarstarstar1 voteGửiHủy
    • hertCảm ơn 16
    • reportBáo vi phạm
    Đăng nhập để hỏi chi tiếtXEM LỜI GIẢI SGK, SBT LỚP 8 - TẠI ĐÂY

    Bạn muốn hỏi điều gì?

    questionĐặt câu hỏi

    Tham Gia Group Dành Cho Lớp 8 Chia Sẻ, Trao Đổi Tài Liệu Miễn Phí

    15. Hay 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 (xem cách sinh số ngẫu nhiên trong bài tập 7.17). Ở 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ẽ đ ...

    Xem thêm

    Bảng tin

    Bạn muốn hỏi điều gì?

    iconĐặt câu hỏi

    Lý do báo cáo vi phạm?

    Gửi yêu cầu Hủy

    logo

    Cơ quan chủ quản: Công ty Cổ phần Công nghệ Giáo dục Thành Phát

    • social
    • social
    • social

    Tải ứng dụng

    google playapp store
    • Hướng dẫn sử dụng
    • Điều khoản sử dụng
    • Nội quy hoidap247
    • Góp ý
    • Tin tức
    • mailInbox: m.me/hoidap247online
    • placeTrụ sở: Tầng 7, Tòa Intracom, số 82 Dịch Vọng Hậu, Cầu Giấy, Hà Nội.
    Giấy phép thiết lập mạng xã hội trên mạng số 331/GP-BTTTT do Bộ Thông tin và Truyền thông.

    Từ khóa » Thử Vận May Avatar