dem so ky tu
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (523.07 KB, 10 trang )
<span class='text_page_counter'>(1)</span>VẼ HÌNH bằng scrat 2.0 (Bằng thủ tục). Thêm ÂM THANH Thay đổi NHÂN VẬT Thay đổi NỀN THAO TÁC ĐIỀU KHIỂN bằng chùm phím mũi tên hoặc chuột PHÍM MŨI TÊN ĐIÊU KHIỂN MÈO CÓ CẢ ÂM THANH.
<span class='text_page_counter'>(2)</span> CHUYỂN ĐỘNG THEO CHUỘT. TÍNH TOÁN Tính tổng hai số.
<span class='text_page_counter'>(3)</span> Tương tự cho các phép tính khác Tính chu vi hình vuông có diện tích là S ( S nhập từ bàn phím). Tham khảo tính UCLN & BCNN của 2 số a và b.
<span class='text_page_counter'>(4)</span> NHẬP SỐ N CHO BIẾT SỐ N CÓ BAO NHIÊU KÝ TỰ TỔNG CÁC KÝ TỰ LÀ BAO NHIÊU.
<span class='text_page_counter'>(5)</span> Hàm FLOOR giống như DIV. Số đảo ngược của số n nhập từ bàn phím. VÒNG LẶP REPEAT…. UNTIL GIẢI BÀI TOÁN.
<span class='text_page_counter'>(6)</span> Vừa gà vừa chó 36 con bó lại cho tròn đếm đủ 100 chân hỏi bao nhiêu gà bao nhiêu chó?. Giải bằng scart 2.0.
<span class='text_page_counter'>(7)</span> Trăm bó cỏ trăm con trâu trâu đứng ăn năm trâu nằm ăn ba lụ khụ trâu già 3 con 1 bó, Hỏi bao nhiêu trâu đứng, trâu nằm, trâu già?. Có 100 con gà giá 100 đồng. Gà trống 5 đồng một con, gà mái 3 đồng một con, gà con 2 con một đồng. Tính số gà trống, gà mái và gà con..
<span class='text_page_counter'>(8)</span> THAM KHẢO CHƯƠNG TRÌNH PASCAL program bt1; uses crt; var a,b:integer; begin clrscr; for a:=1 to 36 do for b:=1 to 36 do if (a+b=36) and (a*2+b*4=100) then writeln (' so ga',a,' so cho la',b); readln end.. program bt2; uses crt; var a,b:integer; begin clrscr; a:=1; repeat b:=1; repeat b:=b+1; if (a+b=36) and (a*2+b*4=100) then writeln (' so ga',a,' so cho la',b); until b >=36; a:=a+1; until a>=36; readln end. Trăm bó cỏ trăm con trâu trâu đứng ăn năm trâu nằm ăn ba lụ khụ trâu già 3 con 1 bó, Hỏi bao nhiêu trâu đứng, trâu nằm, trâu già? program bt3; uses crt; var a,b, c:integer; begin clrscr; for a:=1 to 100 do for b:=1 to 100 do for c:=1 to 100 do if (a+b+c=100) and (a*5+b*3+ c div 3=100) and ( c mod 3=0) then writeln (' trau dung ',a,' trau nam ',b, ' trau gia ', c );.
<span class='text_page_counter'>(9)</span> readln end.. Program bt; uses crt; var a,b, c:integer; begin clrscr; a:=1; repeat b:=1; repeat c:=1; repeat c:=c+1; if (a+b+c=100) and (a*5+b*3+ c div 3=100) and ( c mod 3=0) then writeln (' trau dung ',a,' trau nam ',b, ' trau gia ', c ); until c>=100; b:=b+1; until b>=100; a:=a+1; until a>=100; readln end. Có 100 con gà giá 100 đồng. Gà trống 5 đồng một con, gà mái 3 đồng một con, gà con 2 con một đồng. Tính số gà trống, gà mái và gà con.. program bt; uses crt; var a,b, c:integer; begin clrscr; for a:=1 to 100 do for b:=1 to 100 do for c:=1 to 100 do if (a+b+c=100) and (a*5+b*3+ c div 2=100) and ( c mod 2=0) then writeln (' Ga trong ',a,' ga mai ',b, ' ga con ', c ); readln end..
<span class='text_page_counter'>(10)</span> program bt; uses crt; var a,b, c:integer; begin clrscr; a:=1; repeat b:=1; repeat c:=1; repeat c:=c+1; if (a+b+c=100) and (a*5+b*3+ c div 2=100) and ( c mod 2=0) then writeln (' Ga trong ',a,' Ga mai ',b, ' Ga con ', c ); until c>=100; b:=b+1; until b>=100; a:=a+1; until a>=100; readln end. BÀI TRĂM CỎ TRĂM TRÂU VỚI 2 VÒNG LẶP VÀ SCRAT 2.0 program bt; uses crt; var a,b,c:byte; begin clrscr; a:=1; repeat b:=1; repeat c:=100-a-b; if (a*5+b*3+ c div 3=100) and (c mod 3 =0)then writeln ('trau dung', a, 'trau nam',b,' trau gia', c); b:=b+1; until b=33; a:=a+1; until a=20; readln end..
<span class='text_page_counter'>(11)</span>
