Bài in ra A b C d E.....z

by **Admin** Mon Apr 06, 2009 8:03 pm

Đề: Viết chương trình in ra A b C d E f G.......z

Giải

uses crt;

var i:byte;

begin

       clrscr;

       For i:=65 to 90 do

           Begin

           If i mod 2=1 then write(chr(i):2)

           Else write(chr(i+32):2);

           End;

readln;

end.

Chỉ biết làm cách này ai biết cách # post lên cho Ae học hỏi. Thú thực là nghỉ mãi mới ra.

by **utluapc** Wed Apr 08, 2009 4:10 pm

ạc như vậy là tốt rồi có suy nghĩ còn hơn chờ cô giải rồi chép . nhưng theo mình cho chạy vòng lặp For là tốt nhất chỉ gán 1 biết thôi
begin
for i =1 to 255 do
i=i+1
end
như vậy đơn giản hơn nhiều đoá.

by **Admin** Thu Apr 09, 2009 6:53 am

Viết nguyên bài ra cho coi đi

by **baby_vit** Sat Apr 11, 2009 6:29 pm

Nói thiệt nhé! Admin có cái hình sexy wá Bài in ra A b C d E.....z 52192

by **utluapc** Sat Apr 11, 2009 7:30 pm

thì ngưởi ta thích vậy mà . mà nói thật sexy ah , làm mất đi tính văn hoá của đại gia đình quản trị cơ sở dữ liệu rồi. buồn thay cho các mem Bài in ra A b C d E.....z 66857

by **baby_vit** Sat Apr 11, 2009 8:42 pm

Tui thấy sao thì nói vậy à hổng biết, tui còn ngây thơ lém nên cái gì cũng thành thật Bài in ra A b C d E.....z 372532

by **vmquan** Mon Apr 13, 2009 5:22 pm

utluapc đã viết:ạc như vậy là tốt rồi có suy nghĩ còn hơn chờ cô giải rồi chép . nhưng theo mình cho chạy vòng lặp For là tốt nhất chỉ gán 1 biết thôi
begin
for i =1 to 255 do
i=i+1
end
như vậy đơn giản hơn nhiều đoá.

utluapc hoc lop nao the? da hoc lap trinh pascal chua vay ha? sao lai viet vong lap For nhu the. Nguyen tac cua vong lap nay la kg dc thay doi bien chay.