Yengo News
ถูกใจอย่าลืม Like Fanpage
แบบฝึกหัดตัวอย่าง PASCAL ที่หลายๆคนขอมาครับ
แสดงแล้ว 87524 ครั้ง /
กันยายน 14, 2009, 21:25

Moshi

ออฟไลน์
กระทู้ : 16,996
คะแนนขอบคุณ : 45
it4x สังคมแห่งการเรียนรู้
โปรแกรม เลือกแบบเมนู หลังใช้โปรแกรมเส็ด มีถามก่อนออก

หลังใช้โปรแกรมเสร็จ จะมีถามก่อนออก หุหุ จะออกก็ต่อเมื่อกด Y  โปรแกรมนี้โดนขอมาอีกตามเคย หุหุ

program it4x;
uses crt;
var x,ans:char;
begin
repeat
clrscr;
writeln('Select Choice');
writeln('-------------');
writeln('1.');
writeln('2.');
writeln('3.');
writeln('4.Exit');
write('Please Select Choice = ');readln(x);
clrscr;
case x of
'1' : writeln('1');
'2' : writeln('2');
'3' : writeln('3');
end;

Write('Do you want to Exit (Y/N) = '); readln(ans);
ans:=upcase(ans);
until ans ='Y';
end.

Moshi

ออฟไลน์
กระทู้ : 16,996
คะแนนขอบคุณ : 45
it4x สังคมแห่งการเรียนรู้
กันยายน 27, 2009, 16:27
โปรแกรม หาร 3 ลงตัวโดยกำหนดเอง และ วนซ้ำได้

ถูกขอมาจากนี่นะครับ http://www.it4x.com/forum/index.php?topic=1825.0

โค๊ดโปรแกรม  อันนี้ผมยังไม่ได้ลองนะครับ ผิดพลาดไงรายงานผลด้วยเพราะผมยังไม่ได้ลง PASCAL ไว้

Program it4x;
uses crt;
var i,x,loop:integer;
begin
   repeat
      clrscr;
      writeln('Input Your Start Num = ');readln(i);
      writeln('Input Your End Num = ');readln(x);
        loop:=1;
        writeln('Program 5 cut 100');
        writeln('*****************');
        writeln;
         while i<=x  do
            begin
               i:=i+1;
               if i mod 3 = 0 then
                      begin
                              writeln(loop,')' ,i,' ');
                              loop:=loop+1;
                      end;
            end;
   writeln('Do you Want To Counting (Y/N)');readln(ans);
   ans:=upcase(ans);
   until ans ='N';

end.
« แก้ไขครั้งสุดท้าย: กันยายน 27, 2009, 16:34 โดย admin »

Moshi

ออฟไลน์
กระทู้ : 16,996
คะแนนขอบคุณ : 45
it4x สังคมแห่งการเรียนรู้
ธันวาคม 15, 2009, 22:27
โปรแกรม คำนวณหาปี Leaf Year

ปี Leaf Year ก็คือ ปีที่เดือนกุมภาพันธ์มี 29 วันครับ


Program it4x_leafyear;
uses crt;
var year:integer;
begin
     clrscr;
     write('In Put Your Year = ');readln(year);
     clrscr;
     if (Year mod 4 = 0)
     and ((Year mod 100 <> 0)
     or (Year mod 400 = 0)) then
        writeln ('Leaf Year')
else
        writeln ('Not Leaf Year');
        readln;
end.
« แก้ไขครั้งสุดท้าย: ธันวาคม 15, 2009, 22:30 โดย admin »

alist

ออฟไลน์
กระทู้ : 3
คะแนนขอบคุณ : 0
สิงหาคม 23, 2010, 13:31
ช่วยหน่อยนะคะ
 ถ้าเราต้องการแปลงหน่วยที่ดินจากตารางวาเป็นตารางเมตร
ขอบคุณคะ

Moshi

ออฟไลน์
กระทู้ : 16,996
คะแนนขอบคุณ : 45
it4x สังคมแห่งการเรียนรู้
สิงหาคม 23, 2010, 18:01
ช่วยหน่อยนะคะ
 ถ้าเราต้องการแปลงหน่วยที่ดินจากตารางวาเป็นตารางเมตร
ขอบคุณคะ

เอาสูตรมาดิครับ

alist

ออฟไลน์
กระทู้ : 3
คะแนนขอบคุณ : 0
สิงหาคม 25, 2010, 11:53
อืมขอโทษด้ยนะตัวเองก้อยังงงอยู่เลยไม่รู้ทำไงดีเลยขอให้ช่วย
สูตรแบบนี้หรือเปล่า
  1  ไร่                          =  4  งาน  หรือ  400  ตารางวา

    1  วา                          =  2  เมตร

    1  ตารางวา                  =  4  ตารางเมตร

    1  ไร่                          =  1,600  ตารางเมตร

    1  เมตร                       =  100  เซนติเมตร

    1  ตารางเมตร               =  10,000  ตารางเซนติเมตร

    1  ลูกบาศก์เมตร            =  1,000,000  ลูกบาศก์เซนติเมตร

    1  กิโลเมตร                  =  1,000  เมตร

    1  ตารางกิโลเมตร          =  1,000,000  ตารางเมตร

    1  ตารางกิโลเมตร          =  625  ไร่

    1  เอเคอร์                    =  2.53  ไร่  หรือ  4,046.86  ตารางเมตร

    1  เมตร                       =  39.37  นิ้ว

    1  ฟุต                         =  30.48  เซนติเมตร

    1  หลา                        =  91.44  เซนติเมตร

    1  ไมล์                        =  1,609.34  เมตร

    1  เฮกตาร์                   =  10,000  ตารางเมตร  =  6.25  ไร่
ขอโทษด้วยนะถ้าไม่ถู้

alist

ออฟไลน์
กระทู้ : 3
คะแนนขอบคุณ : 0
สิงหาคม 26, 2010, 18:35
อันนี้ได้หรือเปล่าคะหน้าจะเป็นแนวให้ได้
จงคำนวณหาความยาวของพื้นที่แปลงหนึ่งซึ่งมีพื้นที่ 120 ตารางวา กว้าง 10 ตารางวา
คำนวณความยาวของพื้นที่ = พื้นที่/ความกว้าง
ช่วยอีกครั้งนะคะ่ส่งวันจันนี้แล้วต้องตายแน่ๆเลย
ขอบคุณล้วงหน้าเลย

isin

ออฟไลน์
กระทู้ : 3
คะแนนขอบคุณ : 0
กันยายน 05, 2010, 20:50
อยากได้ ตัวอย่างการเขียนโปรแกรม ที่ เกี่ยว กับ  stack อะคับได้ป่าว จาเอาไปเขียนโปรเจ๊ก

party02

ออฟไลน์
กระทู้ : 2
คะแนนขอบคุณ : 0
กันยายน 13, 2010, 16:16
ช่วยเขียนโปรแกรม ร้านขายเสื้อผ้าให้น่อยได้ไหมค่ะ

killers

ออฟไลน์
กระทู้ : 4
คะแนนขอบคุณ : 0
กันยายน 27, 2010, 17:12
ช่วยหน่อยคิดไม่ออกครับ
-โปรแกรมแสดงผลค่าตัวเลขสูงสุด ที่ได้จากการรับข้อมูลค่าตัวเลขจำนวนเต็ม
 เข้าทางแป้นพิมพ์ จำนวน 3ชุด

ɹǝʞɔɐɹɔ-[ɹ]ǝuunƃ

ออฟไลน์ ( กันเนอร์-แคร็กเกอร์ )
กระทู้ : 34
คะแนนขอบคุณ : 1
GN194 - This is my Codename
สิงหาคม 25, 2011, 21:09
อยากทำแบบว่า.. คำนวณเลขบัตรประชาชนอ่ะครับ ทำยังไงหรอครับ

Moshi

ออฟไลน์
กระทู้ : 16,996
คะแนนขอบคุณ : 45
it4x สังคมแห่งการเรียนรู้
สิงหาคม 25, 2011, 21:42
อยากทำแบบว่า.. คำนวณเลขบัตรประชาชนอ่ะครับ ทำยังไงหรอครับ

Javascripts เถิดคับ Pascal ไม่ค่อยทำกันแล้วอ่ะครับ

สมาชิกไม่มีภาพ

Pornurai22

ออฟไลน์
กระทู้ : 1
คะแนนขอบคุณ : 0
สิงหาคม 25, 2011, 22:47
ถึงเจ้าของกระทู้  คืออยากจะรบกวนหน่อยนะคะว่าช่วยเขียนปาสคาล1โปรแกรมหลักแล้รมีห้าโปรแกรมย่อยอยู่ในนั้นน่ะค่ะ  ขอเป็นเรื่องการหาพ.ท.สี่เหลี่ยมอะไรก็ได้ค่ะ  รบกวนด้วยนะค่ะ  อันนี้ด่วนจริงๆ ขอบคุณมากมากนะคะ :)
 :'( :-*

Moshi

ออฟไลน์
กระทู้ : 16,996
คะแนนขอบคุณ : 45
it4x สังคมแห่งการเรียนรู้
สิงหาคม 26, 2011, 10:02
ถึงเจ้าของกระทู้  คืออยากจะรบกวนหน่อยนะคะว่าช่วยเขียนปาสคาล1โปรแกรมหลักแล้รมีห้าโปรแกรมย่อยอยู่ในนั้นน่ะค่ะ  ขอเป็นเรื่องการหาพ.ท.สี่เหลี่ยมอะไรก็ได้ค่ะ  รบกวนด้วยนะค่ะ  อันนี้ด่วนจริงๆ ขอบคุณมากมากนะคะ :)
 :'( :-*


เอาจากกระทุ้นี้ไงครับ

โปรแกรม คำนวณ สี่เหลี่ยม สามเหลี่ยม วงกลม แบบเลือก Choice ใช้ Case นะครับ

อันนี้ครับ แล้วเพิ่มอีก 2 โปรแกรมเอง ลองดูครับ

ɹǝʞɔɐɹɔ-[ɹ]ǝuunƃ

ออฟไลน์ ( กันเนอร์-แคร็กเกอร์ )
กระทู้ : 34
คะแนนขอบคุณ : 1
GN194 - This is my Codename
สิงหาคม 27, 2011, 06:54
อยากทำแบบว่า.. คำนวณเลขบัตรประชาชนอ่ะครับ ทำยังไงหรอครับ

Javascripts เถิดคับ Pascal ไม่ค่อยทำกันแล้วอ่ะครับ

จำเป็นต้องใช้ในการสอบอ่ะครับผม

 

ด้วยฟังค์ชั่น ตอบด่วน คุณสามารถใช้โค๊ดและ เครื่องหมายแสดงอารมณ์ได้ เหมือนการตั้งกระทู้ธรรมดา แต่สามารถทำได้สะดวกกว่า

ระวัง: หัวข้อนี้ไม่มีการอัพเดทมานานถึง 120 วัน

แจ้งเตือน: โพสของคุณจะไม่แสดงจนกว่าผู้ดูแลจะอนุมัติ.
ชื่อ: อีเมล์: