IT4X เทคนิคคอมพิวเตอร์ โน๊ตบุค ข่าว IT

ข่าวสาร / ความรู้ => คนเขียนโปรแกรม => ข้อความที่เริ่มโดย: party02 ที่ กันยายน 12, 2010, 16:39:56

หัวข้อ: ช่วยเขียนโปรแกรมการขายเสื้อผ้าหัยน่อยน๊ค๊า
เริ่มหัวข้อโดย: party02 ที่ กันยายน 12, 2010, 16:39:56

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

รบกวนช่วยน่อยน๊ค่ะๆ

หัวข้อ: Re: ช่วยเขียนโปรแกรมการขายเสื้อผ้าหัยน่อยน๊ค๊า
เริ่มหัวข้อโดย: dekpascal ที่ ตุลาคม 02, 2011, 21:57:22

program         dekpascal;
uses            crt;
var             store : string;
                size,color : char;
                raka,raka2 : real;
                Baht : longint;
begin
          clrscr;
          writeln('Store : ABC ');
          writeln;
          writeln('1 = Size S ');
          writeln('2 = Size L ');
          writeln('3 = Size M ');
          readln(size);
          writeln;
          case size of
          '1' : writeln('Size S');
          '2' : writeln('Size L');
          '3' : writeln('Size M');
          else
          writeln('No Size')
          end;
          writeln('1 = color red ');
          writeln('2 = color black ');
          writeln('3 = color greed ');
          readln(color);
          writeln;
          case color of
          '1' : writeln('color red ');
          '2' : writeln('color black ');
          '3' : writeln('color greed ');
          else
          writeln('No color');
          end;
          writeln('Please Baht Enter ');
          readln(Baht);
          if Baht <= 500 then
          raka := Baht * 10/100;
          raka2 := Baht - raka;
          writeln('You Pay 10% = ',raka2:2:2);
          end.
          else
          if Baht <= 1000 then
          raka := Baht * 10/100;
          raka2 := Baht - raka;
          writeln('You Pay 20% = ',raka2:2:2);
          end;
          readln;
end.