Yêu Toán nhất
Bạn ơi, Toán học là gì?
Đó là thủ thuật, đó là tinh khôn!
...
Nay Toán yêu của ta có thêm Tin cộng lực
Dù yêu Tin, ta vẫn yêu Toán nhất trên đời!
Hà Nội, 30/7/2007
Chào bạn! Rất vui vì bạn đã vào thăm blog của tôi: -)
uses crt; var i:byte; j:word; k:integer; begin textmode(c80); writeln('Xem ma cua ki tu bang nhieu cach...'); {Cach 1:} writeln('Cach 1: Dung lenh for-to-do'); for i:=0 to 255 do begin writeln(i,'=',chr(i)); if readkey=#27 then break; end; {Cach 2a:} writeln('Cach 2a: Dung repeat-until'); i:=0; repeat writeln(i,'=',chr(i)); i:=i+1; if readkey=#27 then break {Neu go Esc thi thoat ngay khoi vong lap} until i=0; {Neu until (i=256)... thi khong duoc, vi kieu byte chi den 255, them 1 don vi no lai ve 0, chu khong phai la 256. Muon duoc dung phai thay doi bien dieu khien thanh kieu lon hon} {Cach 2b:} writeln('Cach 2b: Dung repeat-until, bien dk lon hon'); j:=0; repeat writeln(j,'=',chr(j)); j:=j+1; if readkey=#27 then break until j=256; {Cach 2c:} writeln('Cach 2c: Dung repeat-until, bien dk lon hon'); k:=-1; repeat k:=k+1; writeln(k,'=',chr(k)); if readkey=#27 then break until k=255; {Cach 2d:} writeln('Cach 2c: Dung repeat-until, bien dk lon hon'); k:=-1; repeat if k<0 then continue; {Neu k<0 thi khong lam cac lenh phia sau} writeln(k,'=',chr(k)); k:=k+1; if readkey=#27 then break until k=256; {Cach 3a:} writeln('Cach 3a: Dung while-do'); i:=0; while (i<=255) do begin writeln(i,'=',chr(i)); i:=i+1; if readkey=#27 then break; end; {Vong lap thu 3 nay khong tu ket thuc duoc vi khi i=255 viet ket qua ra man hinh thi i tang them 1 no lai bang 0, lai <= 255 nen lai lap tiep. Muon duoc dung phai thay doi bien dieu khien thanh kieu lon hon} {Cach 3b:} writeln('Cach 3b: Dung while-do, bien dk lon hon'); j:=0; while (j<=255) do begin writeln(j,'=',chr(j)); j:=j+1; if readkey=#27 then break; end; {Cach 3c:} writeln('Cach 3c: Dung while-do, bien dk lon hon'); k:=-1; while (k<=255) do begin if k<0 then continue; writeln(k,'=',chr(k)); k:=k+1; if readkey=#27 then break; end; end.
thay Long oi em la Tuan hoc lop 10A3 Toan day a!Em van chua hieu lam ve cau lenh for to do voi while to do,thay co the noi ro hon mot chut duoc khong a,nhu la no duoc dung khi nao va dung nhu the nao,thay co the lay 1 vi du cu the duoc khong a?????
Sau khi download từ mạng hay copy tệp ThiThu-K54-2009.rar từ USB vào máy.
Download từ đường link sau: www.khoia0.com/ThiThu-K54-2009.rar
Bước 1. Ta giải nén thành th...
program Gian_uoc_Phan_so; {Chua dung ham/thu tuc}uses crt;var m,n,a,b,c:longint;begin clrscr; writeln('Gian uoc phan so m/n nhap tu ban phim'); repeat&...
tambuithe 19:18 19-11-2009
hoabattu_hoanglinh 23:49 14-11-2009
thay Long oi em la Tuan hoc lop 10A3 Toan day a!Em van chua hieu lam ve cau lenh for to do voi while to do,thay co the noi ro hon mot chut duoc khong a,nhu la no duoc dung khi nao va dung nhu the nao,thay co the lay 1 vi du cu the duoc khong a?????