Tin học Thi tin

Thảo luận trong 'Tin học cấp II' bắt đầu bởi thuongloan1697, 6 Tháng năm 2018.

Lượt xem: 268

  1. thuongloan1697

    thuongloan1697 Học sinh chăm học Thành viên

    Bài viết:
    208
    Điểm thành tích:
    76
    Nơi ở:
    Kiên Giang
    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!

    Bài 1: Viết chương tìm ước số chung lớn nhất của hai số nguyên a và b khác 0, với a, b được nhập từ bàn phím.
    Bài 2: Viết chương trình nhập vào một mảng gồm n phần tử (n<=100). Kiểm tra và in ra màn hình các số là số nguyên tố sắp xếp theo thứ tự tăng dần.
    Bài 3: Trăm Trâu, trăm cỏ
    Trâu đứng ăn năm
    Trâu nằm ăm ba
    Lụ khụ Trâu già
    Ba con một bó
    Viết chương tìm số Trâu đứng, Trâu nằm, Trâu già?

    Giúp mk với mọi người ơi!!!!! Mk sắp thi rồi!!!
     
    dương đại uyển thích bài này.
  2. trà nguyễn hữu nghĩa

    trà nguyễn hữu nghĩa Cựu Phó Nhóm Vật Lí |Cây bút Thơ|Thần tượng VH Thành viên

    Bài viết:
    2,900
    Điểm thành tích:
    569
    Nơi ở:
    Phú Yên
    Trường học/Cơ quan:
    Trường THPT Lương Văn Chánh

    1)
    Các thao tác nhập dữ liệu và khai báo biến bạn tự làm nha :)
    Mã:
    if a > b then begin c := a;a := b; b := c;end; {hoan doi a va b}
    if (a > 0) and (b > 0) then
    begin
    for i := a downto 1 do
    if b div i = 0 then begin UCLN := i;break;end;
    write('UCLN la: ',UCLN);
    end
    else write('a hoac b am!');
    2)
    Mã:
    function NguyenTo(n: integer): Boolean;
    begin
    NguyenTo := True;
    if n > 1 then
    begin
    for i := 2 to trunc(sqrt(n)) do
    if n div i = 0 then begin NguyenTo := False;break;end;
    end
    else NguyenTo := False;
    end;
    
    Procedure SapXep;
    var i,j: integer;
    Begin
    for i := 1 to m do
    for j := m-1 downto i do
    if ngto[j] > ngto[j + 1] then begin tam := ngto[j];
    ngto[j] := ngto[j+1]; ngto[j + 1]:= tam;end;
    End;
    
    BEGIN
    ..... {bạn tự viết đoạn này nha}
    m := 0;
    for i := 1 to N do
    begin
    if NguyenTo(A[i]) then begin inc(m); ngto[m] : = A[i];end;
    end;
    SapXep;
    for i := 1 to m do write(ngto[i],'  ');
    END.
     
  3. Trương Hoài Nam

    Trương Hoài Nam Học sinh chăm học Thành viên

    Bài viết:
    723
    Điểm thành tích:
    146
    Nơi ở:
    Quảng Ngãi
    Trường học/Cơ quan:
    THCS Nguyễn Trãi

    uses crt;
    var a,b: longint;
    begin
    clrscr;
    write('Nhap hai so a, b:');readln(a,b);
    while a<>b do
    if a>b then a:=a-b else b:=b-a;
    write('UCLN la:',b);
    readln;
    End.
     
  4. ka1412

    ka1412 Học sinh chăm học Thành viên

    Bài viết:
    887
    Điểm thành tích:
    121
    Nơi ở:
    Hà Nội
    Trường học/Cơ quan:
    CNN | Life

    3)
    Mã:
    uses crt;
    var i,j,k:integer;
    begin
        clrscr;
        for i:=0 to 20 do
        for j:=0 to 33 do
        begin
            k := 100-i-j;
            if k mod 3 <>0 then continue;
            if 5*i+j*3+(k div 3)=100 then writeln('Co ',i,' trau dung, ',j,' trau nam, ',k,' trau gia');
        end;
        readln
    end.
     
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

-->