Chào bạn! Rất vui vì bạn đã vào thăm blog của tôi: -)

Danh sách bài đã đăng

Sửa Đóng
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.
  • Báo cáo

    tambuithe 19:18 19-11-2009

    Vào Blog của mình xem ảnh 20/11
  • Đây là lời bình riêng
  • Báo cáo

    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?????

     

 

R H
G S
B V

#