ข่าว IT ล่าสุด
ถูกใจอย่าลืม Like Fanpage
ช่วยเขียนโปรแกรมปาสคาลหน่อยค่ะ :))
แสดงแล้ว 5277 ครั้ง /
มกราคม 03, 2010, 21:24:30

nooknickz

ออฟไลน์
กระทู้ : 86
คะแนนขอบคุณ : 2
ช่วยหนูเขียนโปรแกรมปาสคาลหน่อยค่ะ พร้อมคำอธิบายของโปรแกรมอ่ะ ขอให้รันผ่านด้วยนะค่ะ

 :)ต้องส่งแล้วแต่ทำไม่ได้เลย จน ปัญญาช่วยหนูด้วยนะค่ะ
[/b]


Moshi

ออฟไลน์
กระทู้ : 16,996
คะแนนขอบคุณ : 45
it4x สังคมแห่งการเรียนรู้
มกราคม 03, 2010, 22:06:30
โปรแกรมอะไรคับ??

nooknickz

ออฟไลน์
กระทู้ : 86
คะแนนขอบคุณ : 2
มกราคม 05, 2010, 21:04:29
เกี่ยวกับอะไรก็ได้ค่ะ ประมาณ 50 บรรทัดอ่ะค่ะ  :)

Moshi

ออฟไลน์
กระทู้ : 16,996
คะแนนขอบคุณ : 45
it4x สังคมแห่งการเรียนรู้
มกราคม 06, 2010, 22:05:47
เอาง่ายๆเลยนะคับ อิอิ 50 บรรทัด

program line50;
uses crt;
begin
       writeln('1');
       writeln('2');
       writeln('3');
       writeln('4');
       writeln('5');
       writeln('6');
       writeln('7');
       writeln('8');
       writeln('9');
       writeln('10');
       writeln('11');
       writeln('12');
       writeln('13');
       writeln('14');
       writeln('15');
       writeln('16');
       writeln('17');
       writeln('18');
       writeln('19');
       writeln('20');
       writeln('21');
       writeln('22');
       writeln('23');
       writeln('24');
       writeln('25')
       writeln('26');
       writeln('27');
       writeln('28');
       writeln('29');
       writeln('30');
       writeln('31');
       writeln('32');
       writeln('33');
       writeln('34');
       writeln('35');
       writeln('36');
       writeln('37');
       writeln('38');
       writeln('39');
       writeln('40');
       writeln('41');
       writeln('42');
       writeln('43');
       writeln('44');
       writeln('45');
       writeln('46');
       writeln('47');
       writeln('48');
       writeln('49');
       writeln('50');
       readln;
end.

nooknickz

ออฟไลน์
กระทู้ : 86
คะแนนขอบคุณ : 2
มกราคม 07, 2010, 17:27:40
ง่ายปัยมั๊ยพี่โมชิ อ่ะ  :(

kag

ออฟไลน์
กระทู้ : 5
คะแนนขอบคุณ : 0
มกราคม 14, 2010, 17:34:00
Program WisarutATM; 
Uses Wincrt; 
Var  pw,mycode,mycode2,mycredit,cusdrw:Integer; 
     myname:String; 
Const mypw=1234; 

   Procedure  EnterPWD(var pw:integer); 
     begin 
        clrscr; 
        Write('Enter password : '); Readln(pw); 
        If pw=mypw Then 
           begin 
               clrscr; 
               writeln('**Correct password**':20); 
               write('Press Enter to continue...'); readln; 
           end 
           Else 
              begin 
                 clrscr; 
                 writeln('Incorrect password!'); 
                 write('Try again[2] : '); readln(pw); 
                 if pw=mypw then 
                 begin 
                  clrscr; 
                  writeln('**Correct password**':20); 
                  write('Press Enter to continue...'); readln; 
                 end 
                 else 
                   begin 
                    clrscr; 
                    writeln('Incorrect password!');; 
                    write('Try again[3] : '); readln(pw); 
                    if pw=mypw then 
                    begin 
                      clrscr; 
                      writeln('**Correct password**':20); 
                      write('Press Enter to continue...'); readln; 
                    end 
                    else 
                      begin 
                        clrscr; 
                        writeln('Incorrect password!'); 
                        writeln('Please contact the bank.'); 
                      end; 
                   end; 
              end; 
        end; 

   Procedure MenuChkCredit; 
      begin 
        clrscr; 
        write('Account Name : '); readln(myname); 
        write('Balance : '); readln(mycredit); 
      end; 

   Procedure Mainmenu(var mychk:integer); 
      begin 
        clrscr; 
        writeln('**{[[[ MAINMENU ]]]}**':42); 
        gotoxy(3,3); write('[1] <<-Select 1 for Deposit'); 
        gotoxy(38,3); write('Select 2 for Withdrawal ->> [2]'); 
        gotoxy(3,5); write('[3] <<-Select 3 for Cancel'); 
        gotoxy(32,7); write(']'); 
        gotoxy(30,7); write('['); readln(mychk); 
      end; 
   Procedure Menu1; 
      var sal:integer; 
      begin 
         clrscr; 
         writeln('**{[[[ Deposit ]]]}**':20); 
         write('Insert *** = '); readln(sal); 
         if sal < 0 then 
           begin 
           writeln('Cannot deposit (-)number!'); 
           write('Press Enter to continue...'); 
           readln; 
           end 
           else 
             begin 
               mycredit:=mycredit+sal; 
               writeln('Current balance = ',mycredit); 
               write('Press Enter to Mainmenu...'); readln; 
             end; 
      end; 

    Procedure MenuWithdraw(var mychk2:integer); 
      begin 
        clrscr; 
        writeln('**{[[ Withdrawal ]]}**':42); 
        gotoxy(3,3); write('[1] <<- Withdraw 500 Baht'); 
        gotoxy(35,3); write('[2] <<- Withdraw 1000 Baht'); 
        gotoxy(3,5); write('[3] <<- Withdraw 5,000 Baht'); 
        gotoxy(35,5); write('[4] <<- Withdraw 10,000 Baht'); 
        gotoxy(3,7); write('[5] <<- Withdraw 20,000 Baht'); 
        gotoxy(35,7); write('[6] <<- Customize Withdraw'); 
        gotoxy(3,9); write('Select and Press Enter ->>'); 
        gotoxy(37,9); write(']'); gotoxy(35,9); write('['); readln(mychk2); 
      end; 

    Procedure ShowDraw(drw:integer); 
      begin 
        clrscr; 
        writeln('** Withdrawal Information **'); 
        gotoxy(3,3); writeln('Withdraw = ',drw); 
        gotoxy(3,5); writeln('Curren Balance = ',mycredit); 
        gotoxy(1,7); write('Press enter to continue...'); 
        readln; 
      end; 

    Procedure OverCredit(ovr:integer); 
      begin 
       clrscr; 
       writeln('Cannot withdraw ',ovr); 
       writeln('Because Balance = ',mycredit); 
       write('Press Enter to Mainmenu...'); 
       readln; 
      end; 
    Procedure CusDraw(var cusdrw:integer); 
      begin 
        clrscr; 
        writeln('** Customize Withdraw **'); 
        gotoxy(3,3); write('Insert *** = '); readln(cusdrw); 
      end; 

Begin 
    EnterPWD(pw); 
    If pw<>mypw Then 
       readln 
    else 
    MenuChkCredit; 
    While pw=mypw do 
    begin 
    Mainmenu(mycode); 
    If mycode=1 Then 
       Menu1 
       Else If mycode=2 Then 
         begin 
           MenuWithdraw(mycode2); 
           If mycode2=1 Then 
              begin 
                if 500 > mycredit then 
                 OverCredit(500) 
                else 
                 begin 
                  mycredit:=mycredit-500; 
                  ShowDraw(500); 
                 end; 
                end 
              else if mycode2=2 then 
                begin 
                  if 1000 > mycredit then 
                   OverCredit(1000) 
                   else 
                     begin 
                      mycredit:=mycredit-1000; 
                      ShowDraw(1000); 
                     end; 
                end 
                else if mycode2=3 then 
                  begin 
                    if 5000 > mycredit then 
                      OverCredit(5000) 
                      else 
                        begin 
                          mycredit:=mycredit-5000; 
                          ShowDraw(5000); 
                        end; 
                    end 
                  else if mycode2=4 then 
                    begin 
                      if 10000 > mycredit then 
                        OverCredit(10000) 
                      else 
                        begin 
                          mycredit:=mycredit-10000; 
                          ShowDraw(10000); 
                        end; 
                    end 
                    else if mycode2=5 then 
                      begin 
                        if 20000 > mycredit then 
                          OverCredit(20000) 
                        else 
                          begin 
                            mycredit:=mycredit-20000; 
                            ShowDraw(20000); 
                          end; 
                       end 
                      else if mycode2=6 then 
                       begin 
                         CusDraw(cusdrw); 
                         if cusdrw <0 then 
                           begin 
                           writeln('Cannot withdraw (-)number'); 
                           write('Press enter to continue...'); readln; 
                           end 
                           else 
                             begin 
                               if cusdrw > mycredit then 
                               OverCredit(cusdrw) 
                               else 
                               begin 
                                mycredit:=mycredit-cusdrw; 
                                ShowDraw(cusdrw); 
                               end; 
                             end; 
                       end 
                       else 
                         begin 
                           writeln('No selected menu!'); 
                           write('Press enter to continue...'); readln; 
                         end; 

         end 
         Else If mycode=3 Then 
            EnterPWD(pw) 
            Else 
             begin 
              Writeln('No selected menu!'); 
              Write('Press Enter to Mainmenu...'); Readln; 
             end; 
       end; 

End. 



****************************************************************** 

จบคับ.....................

มาจากที่นี่ครับ
ส่วนคำอธิบาย ต้องรบกวนแอทมินแล้วละคับ ใช้ได้ไม่ได้ก้ออย่าว่ากันนะคคับ มือไหม่เหมือนัน ;D :P

nooknickz

ออฟไลน์
กระทู้ : 86
คะแนนขอบคุณ : 2
มกราคม 15, 2010, 21:55:01
555

ในห้องมีคนทำแล้ว

 

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

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

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