admin ดูโปรแกรมให้ผมหน่อยคับ ขอบคุนมากคับ

ไม่ต้องตั้งกระทู้ใหม่เร่ื่อยๆ ก็ได้นะครับ กระทู้เดิมผมก็ไปตอบ

คนใหม่ที่มาดูเค้าจะงง ละก็ตั้งกันมั่วซั่ว

http://www.it4x.com/forum/index.php?topic=1138.15

เนี่ยครับ หน้านี้ก็มีโปรแกรมเป็นเมนู

จากนั้นตรงโค๊ด

'1' : writeln('1');
'2' : writeln('2');
'3' : writeln('3');

ก็เปลี่ยนเป็น writeln('1'); เป็น Begin กับ end; แล้วก็ละเลงโปรแกรมเลยครับ

ขอโทดแบบรู้สึกผิดสุดุคับ

พี่คับ ผมเอาไปทำดูแล้ว  แต่มัน คอมไพล์ ไม่ได้อ่ะคับ

ไม่รู้ว่ามันผิดตรงไหน  (โปรแกรมอันนี้ ยังไม่เสร็จนะคับ ยังต้องเขียนอีกเยอะ)

อันที่จริงผมก้ออยู่ ปวช. เหมือนกันนะคับ

program test01;
uses    crt;
var    num:byte;
        chr,ans:char;
        a,b:real;
begin
    repeat
    clrscr;
    textcolor(red);
    writeln ('welcom to my program');
    writeln;
    textcolor(yellow);
    writeln ('please select manu');
    writeln;
    textcolor(blue);
    writeln('1.manu temperature');
    textcolor(green);
    writeln('2.manu money');
    textcolor(red);
    writeln('3.manu triangle');
    textcolor(blue);
    writeln('4.manu year');
    textcolor(red);
    writeln('5.manu left year');
    textcolor(blue);
    writeln('6.game');
    writeln;
    write('enter your choice:');
    readln(num);
    writeln;
    case num of
    1:begin
            write('select tump c ro f');
            readln(chr);
            case chr of
                'C','c' : begin
                          write('temp in c');
                          read(a);
                          b:=a*9/5+32;
                          writeln('temp in faren',b:2:2);
                          end;
                'F','f' : begin
                          write('temp in c');
                          read(a);
                          a:=b*9/5+32;
                          writeln('temp in faren',a:2:2);
                          end;
            end;
   

    write('continue Y or N');
    ans:=readkey;
    ans:=upcase(ans);
    until ans='N';
    readln;
    end;
end.

อันนี้แค่ทดสอบเฉยๆนะคับ ย้ำ แค่ทดสอบเฉยๆคับ

อย่าหัวเราะเยอะนะคับ

แก้ให้แล้วนะครับ ดูเอานะว่าผิดตรงไหน

program test01;
uses    crt;
var    num:integer;
        chr,ans:char;
        a,b:real;
begin
    repeat
    clrscr;
    textcolor(red);
    writeln ('welcom to my program');
    writeln;
    textcolor(yellow);
    writeln ('please select manu');
    writeln;
    textcolor(blue);
    writeln('1.manu temperature');
    textcolor(green);
    writeln('2.manu money');
    textcolor(red);
    writeln('3.manu triangle');
    textcolor(blue);
    writeln('4.manu year');
    textcolor(red);
    writeln('5.manu left year');
    textcolor(blue);
    writeln('6.game');
    writeln;
    write('enter your choice: ');
    readln(num);
    clrscr;

case num of
    1 : begin
                        write('select tump c ro f : ');
            readln(chr);
            case chr of
                'C','c' : begin
                        write('temp in c :');
                          readln(a);
                          b:=a*9/5+32;
                          writeln('temp in faren',b:2:2);
                                  end;
'F','f' : begin
                          write('temp in c : ');
                          readln(a);
                          a:=b*9/5+32;
                          writeln('temp in faren',a:2:2);
                            end;
end;
                    end;
        end;


    write('continue Y or N');
    ans:=readkey;
    ans:=upcase(ans);
    until ans='N';
end.

ขอบคุนคับ