Tin học Chương trình kiểm tra toán dùng hàm random

Thảo luận trong 'Tin học cấp II' bắt đầu bởi khanhduy2311, 17 Tháng sáu 2021.

Lượt xem: 51

  1. khanhduy2311

    khanhduy2311 Học sinh mới Thành viên

    Bài viết:
    9
    Điểm thành tích:
    6
    Nơi ở:
    Bình Định
    Trường học/Cơ quan:
    Trường Trung học cơ sở An Hòa
    Sở hữu bí kíp ĐỖ ĐẠI HỌC ít nhất 24đ - Đặt chỗ ngay!

    Đọc sách & cùng chia sẻ cảm nhận về sách số 2


    Chào bạn mới. Bạn hãy đăng nhập và hỗ trợ thành viên môn học bạn học tốt. Cộng đồng sẽ hỗ trợ bạn CHÂN THÀNH khi bạn cần trợ giúp. Đừng chỉ nghĩ cho riêng mình. Hãy cho đi để cuộc sống này ý nghĩa hơn bạn nhé. Yêu thương!

    Tính các phép tính cộng,nhân,chia,trừ
    CT:
    uses crt;
    var i,j,d:byte;
    b:string;
    a,c:array[1..100] of integer;
    s:integer;
    f:array[1..10] of boolean;
    begin
    clrscr;
    d:=0;
    randomize;
    textmode(co40);
    textbackground(0);
    gotoXY(14,whereY);
    textcolor(yellow);
    write('M');delay(200);
    write('A');delay(200);
    write('T');delay(200);
    write('H');delay(200);
    write('S');delay(200);
    write(' ');delay(200);
    write('T');delay(200);
    write('E');delay(200);
    write('X');delay(200);
    write('T');delay(200);
    writeln;
    writeln;
    textcolor(10);
    textbackground(0);
    for j:=1 to 10 do
    begin
    f[j]:=true;
    a[j]:=random(10);
    a[j+1]:=random(10);
    c[j]:=a[j]+a[j+1];
    write(a[j],'+',a[j+1],'=');readln(s); {Có thể thay bằng dấu -,*,/}
    if s=a[j]+a[j+1] then d:=d+1 else f[j]:=false;
    end;
    writeln;
    textcolor(14);
    writeln('Your points:',d);
    if d>=7 then writeln('Good!') else writeln('Bad!');
    for j:=1 to 10 do if f[j]=false then
    begin
    textcolor(12);
    writeln('Question ',j,' uncorrect');
    textcolor(10);
    writeln('Correct anwer: ',c[j]);
    end;
    readln
    end.
     
    Duy Quang Vũ 2007quân pro thích bài này.
Chú ý: Trả lời bài viết tuân thủ NỘI QUY. Xin cảm ơn!

Draft saved Draft deleted

CHIA SẺ TRANG NÀY