IT4X เทคนิคคอมพิวเตอร์ โน๊ตบุค ข่าว IT
ข่าวสาร / ความรู้ => คนเขียนโปรแกรม => ข้อความที่เริ่มโดย: By MisS ที่ ธันวาคม 22, 2009, 18:28:59
-
คือผมอยากรบกวนพี่ๆช่วยแปล ความหมายของ
Program เช็คว่าคุณแก่หรือยังโดย pascal ของพี่adminที่เคยลงเอาไว้อะคับบ (ที่ละบรรทัด)
เอาหมดเลยนะคับ
เช่น program t4; หมายความว่าไง ....................
uses crt; ,, ....................
ปล. ขอบคุณล่วงหน้าคับบ ลงไว้ที่เวปหรือไม่ก็ส่งมาื่ทางอีเมล์ก็ได้คับบ ผมแอดเมล์ไปแล้ว
[email protected] (เอาทั้งสองแบบเลยนะคับ if/case) :-* :-*"
โปรแกรม เช็คว่าอายุคุณแก่หรือยัง
--------------------------
โดยรับค่า ชื่อ สกุล และ อายุของคุณ จากนั้นใช้เงื่อนไขโดย
กำหนดว่า ถ้าอายุ น้อยกว่า 0 = "ERROR"
ถ้าอายุ 0-10 = "Baby" = เด็กน้อย
ถ้าอายุ 11-18 = "teens" = วัยรุ่น
ถ้าอายุ 19-30 = "Workers" = วัยทำงาน
ถ้าอายุ 31-60 = "Elderly" = วัยทอง
มากกว่า 60 = "Geezer" = คนแก่
จะสามารถทำได้ 2 รูปแบบนะครับ แบบแรกคือ ทำโดยใช้ IF แบบที่สอง คือทำโดยใช้ Case
แบบแรก If
program it4x;
uses crt;
var name,surname:string;
old:integer;
begin
clrscr;
write('Input Your Name = ');
readln(name);
write('Input Your SurName = ');
readln(surname);
write('How Old Are You ? = ');
readln(old);
clrscr;
writeln('Your name = ',name,' ',surname);
if old<=0 then
writeln('Your old Error')
else
if old<=10 then
writeln('Your old Baby')
else
if old<=18 then
writeln('Your old Teens')
else
if old<=30 then
writeln('Your old Workers')
else
if old<=60 then
writeln('Your old Elgerly')
else
if old>=61 then
writeln('Your old Workers');
;;;;;;
readln;
end.
ลอง Copy ไปรันดูครับ
แบบที่สองแบบ Case
program it4x;
uses crt;
var name,surname:string;
old:integer;
begin
clrscr;
write('Input Your Name = ');
readln(name);
write('Input Your SurName = ');
readln(surname);
write('How Old Are You ? = ');
readln(old);
clrscr;
writeln('Your name = ',name,' ',surname);
case old of
0..10:writeln('Your Old Baby');
11..18:writeln('Your Old Teens');
19..30:writeln('Your Old Workers');
31..60:writeln('Your Old Elderly');
61..100:writeln('Your Old Geezer');
else
writeln('Your Old ERROR');
end;
readln;
end.
นี้อะึัคับ ช่วยผมที !! ด่วนมาก
-
ขุดๆ ช่วยหน่อยคับบ ๆจำเป็นจิงๆ คับบ บบ บ บ
ปล. พี่ๆ ที่มีน้ำใจช่วยล่วงหน้าคับบบ
-
แบบ IF ก่อนนะครับ
program it4x; --- > ชื่อโปรแกรม it4x
uses crt; --- > เรียกฟังก์ชั่น crt เพื่อใช้ล้างหน้าจอ
var name,surname:string; --- > ประกาศตัวแปร name และ surname เป็นแบบ ข้อความ string
old:integer; --- > ประกาศตัวแปร old เป็น ตัวเลขจำนวนเต็ม integer
begin --- > เริ่มโปรแกรม
clrscr; --- > ล้างหน้าจอ
write('Input Your Name = '); --- > แสดงคำว่า Input Your name ออกทางหน้าจอ
readln(name); --- > รับค่าเค้าตัวแปร name
write('Input Your SurName = '); --- > แสดงคำว่า Input Your Surname ออกทางหน้าจอ
readln(surname); --- > รับค่าเค้าตัวแปร surname
write('How Old Are You ? = '); แสดง ** เหมือนเดิม
readln(old); รับค่าเหมือนเดิม
clrscr; ล้างหน้าจอ
writeln('Your name = ',name,' ',surname); แสดงคำว่า Your name = และดึงค่าในตัวแปร name , surname มาแสดง
if old<=0 then ถ้า ตัวแปร old น้อยกว่า หรือ = 0 ให้ทำ
writeln('Your old Error') อายุ เอ๋อ
else ถ้าไม่ใช่ให้ทำ
if old<=10 then ถ้า ตัวแปร old น้อยกว่า หรือ = 10 ให้ทำ
writeln('Your old Baby') คุณเด็กน้อย ที่เหลือก็เหมืิอนเดิม
else
if old<=18 then
writeln('Your old Teens')
else
if old<=30 then
writeln('Your old Workers')
else
if old<=60 then
writeln('Your old Elgerly')
else
if old>=61 then
writeln('Your old Workers');
;;;;;;
readln; รับค่าเพื่อให้ Enter ครั้งสุดท้าย
end. จบโปรแกรม
Case
program it4x; หัวเหมือนเดิม ทุกอย่างเหมือนเดิม
uses crt;
var name,surname:string;
old:integer;
begin
clrscr;
write('Input Your Name = ');
readln(name);
write('Input Your SurName = ');
readln(surname);
write('How Old Are You ? = ');
readln(old);
clrscr;
writeln('Your name = ',name,' ',surname);
case old of เลือก อายุ เป็นคำสั่ง ตัวแปล เหมือน If แต่ให้เขียนสั้นกว่า
0..10:writeln('Your Old Baby'); ถ้าอายุ 0-10 ให้แสดง = เด็กน้อย
11..18:writeln('Your Old Teens'); ถ้าอายุ 11-18 ให้แสดง = วัยรุ่น ต่อเอา
19..30:writeln('Your Old Workers');
31..60:writeln('Your Old Elderly');
61..100:writeln('Your Old Geezer');
else ถ้าไม่ใช่ในเงื่อนไชทั้งหมด
writeln('Your Old ERROR'); แสดงว่า error
end;
readln;
end.