PROGRAM FORI Uses wincrt VAR COUNT INTEGER BEGIN
ตวอยางคำสง PROGRAM FOR_I; Uses wincrt; VAR COUNT : INTEGER; BEGIN {MAIN} FOR COUNT : = 1 TO 5 DO WRITELN(COUNT); END.
������� PROGRAM FOR_II; Uses wincrt; VAR COUNT : INTEGER; BEGIN {MAIN} FOR COUNT : = 1 TO 5 DO WRITELN(‘COMPUTER’); END.
ตวอยางคำสง PROGRAM FOR_iii; Uses wincrt; VAR Count : INTEGER; BEGIN FOR Count : = 1 TO 10 DO BEGIN Write(Count); Writeln(‘Computer’); END. for
PROGRAM FOR_N; Uses wincrt; VAR COUNT : INTEGER; BEGIN FOR COUNT : = 1 TO 5 DO BEGIN Write(COUNT, ’ ‘); Write(‘CHANTRA, ’ ‘); Write(‘ 4370280028‘); END.
โปรแกรมแสดงเลข 1 ถง จำนวนใดกได PROGRAM FOR_N; Uses wincrt; VAR K, N : INTEGER; BEGIN Write(‘Please input last number’); readln(N); FOR K : = 1 TO N DO Write(K, ’ ‘); END.
PROGRAM FORDOWN; Uses wincrt; VAR B : INTEGER; BEGIN FOR B : = 5 DOWNTO 1 DO BEGIN Write(B, ’*’, B, ‘= ‘, B*B); END.
PROGRAM ztoa; Uses wincrt; VAR ch : char; BEGIN FOR ch : = ‘Z’ DOWNTO ‘A’ DO write(ch, ’ ‘); END.
Program for_sum; Uses wincrt; Var K, sum : Integer; Begin Sum : = 0; For K : = 1 to 10 Do Begin Sum: =Sum+K; write(K, ’ ‘); End; Writeln(‘result sum 1… 10=’, sum); End. การหาคาผลบวก 1 -10 ������ 12 3 4 5 6 7 8 9 10 result sum 1… 10= 55
การหาคาผลบวก 1 -10 และหาคาเฉลยชวงตวเลข Program for_average; Uses wincrt; Var K, sum, N: Integer; Average : Real; Begin Sum : = 0; N: =0; For K : = 1 to 10 Do Begin Sum: =Sum+K; write(K, ’ ‘); N : = N+1; {นบจำนวนรอบ } End; Writeln(‘result sum 1… 10=’, sum); Average : = Sum/N; Writeln(‘result average 1… 10=’, Average: 6: 2); End. ผลการรนคอ 2 3 4 5 6 7 8 9 10 result sum 1… 10= 55 result Average 1… 10= 5. 5
PROGRAM DEMO_FOR; Uses wincrt; VAR I, J : INTEGER; BEGIN FOR I : = 1 TO 3 DO BEGIN Write(I, ‘ ‘); FOR J : = 1 TO 2 DO Write(j, ‘ ‘); END.
Program rightriangle; Uses wincrt; Var row, column : integer; Begin For row : = 1 to 5 do Begin For column : = 1 to row do Write(‘*’); write. Ln; End.
- Slides: 18