แบบฝึกหัดตัวอย่าง PASCAL ที่หลายๆคนขอมาครับ

โปรแกรม เลือกแบบเมนู หลังใช้โปรแกรมเส็ด มีถามก่อนออก

หลังใช้โปรแกรมเสร็จ จะมีถามก่อนออก หุหุ จะออกก็ต่อเมื่อกด 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.

โปรแกรม หาร 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.

โปรแกรม คำนวณหาปี 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.

ช่วยหน่อยนะคะ
 ถ้าเราต้องการแปลงหน่วยที่ดินจากตารางวาเป็นตารางเมตร
ขอบคุณคะ

ช่วยหน่อยนะคะ
 ถ้าเราต้องการแปลงหน่วยที่ดินจากตารางวาเป็นตารางเมตร
ขอบคุณคะ

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

อืมขอโทษด้ยนะตัวเองก้อยังงงอยู่เลยไม่รู้ทำไงดีเลยขอให้ช่วย
สูตรแบบนี้หรือเปล่า
  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  ไร่
ขอโทษด้วยนะถ้าไม่ถู้

อันนี้ได้หรือเปล่าคะหน้าจะเป็นแนวให้ได้
จงคำนวณหาความยาวของพื้นที่แปลงหนึ่งซึ่งมีพื้นที่ 120 ตารางวา กว้าง 10 ตารางวา
คำนวณความยาวของพื้นที่ = พื้นที่/ความกว้าง
ช่วยอีกครั้งนะคะ่ส่งวันจันนี้แล้วต้องตายแน่ๆเลย
ขอบคุณล้วงหน้าเลย

อยากได้ ตัวอย่างการเขียนโปรแกรม ที่ เกี่ยว กับ  stack อะคับได้ป่าว จาเอาไปเขียนโปรเจ๊ก

ช่วยเขียนโปรแกรม ร้านขายเสื้อผ้าให้น่อยได้ไหมค่ะ

ช่วยหน่อยคิดไม่ออกครับ
-โปรแกรมแสดงผลค่าตัวเลขสูงสุด ที่ได้จากการรับข้อมูลค่าตัวเลขจำนวนเต็ม
 เข้าทางแป้นพิมพ์ จำนวน 3ชุด

อยากทำแบบว่า.. คำนวณเลขบัตรประชาชนอ่ะครับ ทำยังไงหรอครับ

อยากทำแบบว่า.. คำนวณเลขบัตรประชาชนอ่ะครับ ทำยังไงหรอครับ

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

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

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

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

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

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

อยากทำแบบว่า.. คำนวณเลขบัตรประชาชนอ่ะครับ ทำยังไงหรอครับ

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

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