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


CHUYỂN ĐỘNG THEO CHUỘT




TÍNH TOÁN
Tính tổng hai số




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


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


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

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






















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.



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 );
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.


program bt;
uses crt;
var a,