VCT làm 1 phần mềm bảng cửu chương
pascal nghe
có hiệu ứng âm thanh ánh sáng
menu là tiếng anh nghe vòn lại tiếng việt
cho nhập số(bảng cửu chương mấy: (nhập 1 hoặc 2, 3,4,…..)
VCT làm 1 phần mềm bảng cửu chương
pascal nghe
có hiệu ứng âm thanh ánh sáng
menu là tiếng anh nghe vòn lại tiếng việt
cho nhập số(bảng cửu chương mấy: (nhập 1 hoặc 2, 3,4,…..)
program bcc;
uses crt;
var a, b, c, d, i, n: integer;
begin
clrscr;
textcolor (lightblue+blink);
writeln (‘WELCOME TO THE MULTIPLICATION TABLE PROGRAM’);
textcolor (yellow);
writeln (‘1.Start’);
writeln (‘2.Huong Dan’);
writeln (‘3.Exit’);
write (‘Ban chon (1, 2, 3): ‘);
readln (i);
if i=1 then
begin
clrscr;
writeln (‘nhap bang cuu chuong (1, 2, 3,…): ‘);
readln (n);
for i:=1 to 10 do
begin
textcolor (lightblue);
writeln (n,’x’,i,’=’,n*i);
delay (50);
end;
delay (2500);
textcolor (green+blink);
writeln (‘PRESS ENTER TO EXIT’);
readln;
exit;
end;
if i=2 then
begin
clrscr;
writeln (‘ HUONG DAN’);
writeln (‘ban hay chon start de bat dau. Va sau do se co dong chu’);
writeln (‘”nhap bang cuu chuong (1, 2, 3,…):” va ban se nhap vao’);
writeln (‘bang cuu chuong minh can tim. VD: Neu ban chon bang cuu’);
writeln (‘chuong 2 th ban chi can nhap “2” vao cho nhu o tren day’);
writeln (‘ CHUC BAN THANH CONG !!!’);
readln;
end;
if i=3 then
exit;
if (i<1) or (i>3) then
begin
clrscr;
sound (1963);
textcolor (lightred+blink);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (lightblue);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (yellow);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (white);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (lightred);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (lightblue);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (green);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (lightgray);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (white);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (lightred+blink);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (lightblue);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (yellow);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (white);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (lightred);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (lightblue);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (green);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (lightgray);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (white);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (lightred+blink);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (lightblue);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (yellow);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (white);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (lightred);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (lightblue);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (green);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (lightgray);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (white);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (lightred+blink);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (lightblue);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (yellow);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (white);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (lightred);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (lightblue);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (green);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (lightgray);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (white);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (lightred+blink);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (lightblue);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (yellow);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (white);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (lightred);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (lightblue);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (green);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (lightgray);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (white);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (lightred+blink);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (lightblue);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (yellow);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (white);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (lightred);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (lightblue);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (green);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (lightgray);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (white);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (lightred+blink);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (lightblue);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (yellow);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (white);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (lightred);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (lightblue);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (green);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (lightgray);
writeln (‘yeu cau khong hop le’);
delay (100);
textcolor (white);
writeln (‘yeu cau khong hop le’);
delay (100);
nosound;
writeln (‘PRESS ENTER TO EXIT’);
readln;
exit;
end;
end.