ได้รับ mail จากคุณ ditthapong itthiwatthawong <ryojung@samart.co.th>
ว่าเขียน ปิรามิดด้วย pascal แบบเลือกตัวอักษรได้ เขียนอย่างไร ผมจึงเขียนไว้ให้ดูเป็นตัวอย่างดังข้างล่างนี้
โปรแกรมนี้รอรับตัวอักษรจากแป้นพิมพ์ แล้วนำไปใช้กำหนดเงื่อนไขในการพิมพ์
เช่น ส่งอักษร D ก็จะพิมพ์บรรทัด A ถึง บรรทัด D และถ้าส่งอักษร E ก็จะพิมพ์บรรทัด A ถึง บรรทัด E เป็นต้น
รหัสต้นฉบับ (Source Code) ผลลัพธ์ (Output)
var
i,j : integer;
c : char;
begin
writeln ('What is your english character?');
readln (c);
c := upcase(c);
writeln ('======');
for i := 65 to ord(c) do
begin
for j := 65 to i do write(chr(j));
writeln;
end;
readln;
end.
What is your english character?
F
======
A
AB
ABC
ABCD
ABCDE
ABCDEF
เมื่อเช้านี้น้องเค้า mail ถึงผมอีกว่า ใช้ function ที่ครูยังไม่สอน
ผมจึงเขียนใหม่แบบที่ไม่ต้องใช้ function รู้สึกง่ายกว่าเดิมอีกครับ
รหัสต้นฉบับ (Source Code) ผลลัพธ์ (Output)
var c,d,g : char;
begin
writeln ('What is your english character?');
readln (g);
for c := 'A' to g do
begin
for d:= 'A' to c do write(d);
writeln;
end;
readln;
end.
What is your english character?
D
A
AB
ABC
ABCD
ไม่มีความคิดเห็น:
แสดงความคิดเห็น