ข่าว IT ล่าสุด
ถูกใจอย่าลืม Like Fanpage
ช่วยเขียนโปรแกรมPascal หน่อยคับ
แสดงแล้ว 7974 ครั้ง /
ธันวาคม 18, 2009, 17:04:19

bleachdeath

ออฟไลน์
กระทู้ : 5
คะแนนขอบคุณ : 0
ขอบคุณมากกกกกกกกกกกกกกกกกกกกกกกกกกกกคร๊าพพพพพพพพพพพพพ

« แก้ไขครั้งสุดท้าย: ธันวาคม 19, 2009, 16:58:04 โดย bleachdeath »

Moshi

ออฟไลน์
กระทู้ : 16,996
คะแนนขอบคุณ : 45
it4x สังคมแห่งการเรียนรู้
ธันวาคม 19, 2009, 08:01:33
โปรแกรมคำนวณว่า มีเงินเท่านี้ ได้ธนบัตร อะไรบ้าง กี่ใบๆ ประมาณนี้คับ

อันนี้ เป็นภาษา Pascal เลยนะครับ รันได้ ใช้แทนโค๊ดเทียมเลยก็ได้คับ

Flowchart >> Download

program it4x_thanabut;
uses crt;
var a,b,c,d,e,f,g,h,money:longint;
begin
     clrscr;
     write('Input Your Money := ');readln(money);
     repeat
     if money>=1000 then
     begin
          money := money-1000;
          a := a+1;
     end
     else
     if money>=500 then
     begin
          money := money-500;
          b := b+1;
     end
     else
     if money>=100 then
     begin
          money := money-100;
          c := c+1;
     end
     else
     if money>=50 then
     begin
          money := money-50;
          d := d+1;
     end
     else
     if money>=20 then
     begin
          money := money-20;
          e := e+1;
     end
     else
     if money>=10 then
     begin
          money := money-10;
          f := f+1;
     end
     else
     if money>=5 then
     begin
          money := money-5;
          g := g+1;
     end
     else
     if money>=1 then
     begin
          money := money-1;
          h := h+1;
     end;
     until money<=0;
     clrscr;
     writeln('Your 1000 := ',a);
     writeln('Your 500 := ',b);
     writeln('Your 100 := ',c);
     writeln('Your 50 := ',d);
     writeln('Your 20 := ',e);
     writeln('Your 10 := ',f);
     writeln('Your 5 := ',g);
     writeln('Your 1 := ',h);
     readln;
end.
« แก้ไขครั้งสุดท้าย: มกราคม 03, 2010, 22:09:28 โดย admin »

bleachdeath

ออฟไลน์
กระทู้ : 5
คะแนนขอบคุณ : 0
ธันวาคม 19, 2009, 16:52:13
ขอบคุณมากๆๆๆๆคร๊าพพพพพพพพพพพพพพพพ

 

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

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

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