program structure

title 夹肈

program CircleArea;
variable declaration 砞﹚跑计

const   pi = 3.1416;
var     r, area : real;
main body 祘

begin
      r:=5;
      area:=pi *r*r;
end.






Looping

FOR..... DO REPEAT... UNTIL WHILE  ... DO
program A;
var I : integer;
begin
    for I := 1 to 5 do
         writeln(I)
end.                                 
 program A;
var I:integer;
begin     
       I:=0;
       repeat
              I :=I+1;
              writeln(I);
        until I = 5;
end.		 program A;
var I : integer;
begin
        I := 0;
        while I <> 5 do
        begin
               I := I +1;
              writeln(I);
        end;
end.
program A;
var I, mark : integer;
begin
     for I := 1 to 5 do
          readln(mark)
end.  		 program A;
var I, mark : integer;
begin
       I:=0;
       repeat
               readln(mark);
               I :=I+1;
        until I = 5;
end.  		 program A;
var I,mark: integer;
begin
        I := 0;
        while I <> 5 do
        begin
               readln(mark);
              I := I +1;
        end;
end.
program A;
var I, mark : integer;
begin
       I:=0;
       repeat
             readln(mark);
             if mark >= 0 then
                    I:=I+1
       until I=5;
end.		 program A;
var I, mark : integer;
begin
       I:=0;
       while I<>5 do
       begin
              readln(mark);
              if mark >= 0 then
                    I:=I+1
        end;  
end.
program A;
var mark: integer;
begin
      repeat
             readln(mark);
      until mark > 0;
end.		 program A;
var N : integer;
begin
      readln(mark);
      while mark < 0 do
            readln(mark);
end.
program A;
var mark: integer;
begin
      repeat
             readln(mark);
      until mark < 0;
end.		 program A;
var N : integer;
begin
      readln(mark);
      while mark >=0 do
            readln(mark);
end.
program A;
var I, mark : integer;
begin
      I:=0;
     repeat
            readln(mark);
            if mark >= 0 then
                I:=I+1
     until mark< 0;
     writeln(I, ' times correct');
end.		 program A;
var I, mark : integer;
begin
       I:=1;
       readln(mark);
       while mark >=0 do
       begin
              readln(mark);
              if mark >=0 then 
                    I:=I+1;
       end;
       writeln(I, ' times correct');
end.
program A;
var I, mark : integer;
begin
       I:=0;
      repeat
              readln(mark);
             if (mark >= 0) and (mark <= 100) then
                   I:=I+1;
      until not((mark >= 0) and (mark <=100));
      writeln(I,' times');
end.		 program A;
var I, mark : integer;
begin
       I:=1;
       readln(mark);
       while (mark >=0) and (mark <=100) do
       begin
             readln(mark);
             if (mark >= 0) and (mark <= 100) then
                       I:=I+1;
       end;
       writeln(I, ' times');
end.
program A;
var I, mark : integer;
begin
       I:=0;
       repeat
             readln(mark);
             if mark >= 0 then
                 I:=I+1
       until (mark< 0) or (I=5);
       writeln(I, ' times');
end.		 program A;
var I, mark : integer;
begin
       I:=1;
       readln(mark);
       while (mark >=0) and (I<>5) do
       begin
              readln(mark);
              if mark >= 0 then
                    I:=I+1
       end;
       writeln(I, ' times');
end.
program A;
var I, mark : integer;
begin
       I:=0;
       repeat
              readln(mark);
               if (mark >= 0)and (mark <=100) then
                      I:=I+1
       until (mark< 0) or (mark > 100) or (I=5);
       writeln(I, ' times');
end.		 program A;
var I, mark : integer;
begin
       I:=1;
       readln(mark);
       while (mark >=0) and (mark <=100) and (I <> 5) do
       begin
             readln(mark);
             if (mark >=0) and (mark <=100) then
                     I:=I+1;
       end;
       writeln(I, ' times');
end.
program A;
var  sum,mark : integer;
begin
       sum:=0;
       repeat
              readln(mark);
              if  mark >= 0 then
                    sum:=sum+mark;
       until mark< 0;
       writeln('total mark:', sum);
end.		 program A;
var sum,mark : integer;
begin
       sum:=0;
       readln(mark);
       sum:=mark;
       while mark >=0 do
       begin
             readln(mark);
             if mark >= 0 then
                   sum:=sum+mark;
       end;
       writeln('total mark:', sum);
end.
program A;
var I, sum,mark : integer;
begin
      sum:=0;
      I:=0;
      repeat
             readln(mark);
             if (mark >= 0)and (mark <=100) then
             begin
                     I:=I+1;
                    sum:=sum+mark;
             end;
      until (mark< 0) or (mark > 100) or (I=5);
      writeln(I, ' times');
      writeln('total mark:', sum);
end.		 program A;
var I,sum, mark : integer;
begin
        I:=1;
        readln(mark);
       sum:=mark;
       while (mark >=0) and (mark <=100) and (I <> 5) do
       begin
              readln(mark);
              if (mark >=0) and (mark <=100) then
              begin
                      I:=I+1;
                     sum:=sum+mark;
              end;
      end;
      writeln(I, ' times');
      writeln('total mark:',sum);
end.
program A;
var sum,I,number : integer;
begin
       I:=0;
       sum:=0;
       repeat
               readln(number);
              sum:=sum+number;
       until sum >=100;
       writeln('the total of numbers are ', sum);
end.		 program A;
var sum,I,number : integer;
begin
      I :=0;
      sum:=0;
      while sum < 100 do
      begin
            readln(number);
            sum:=sum+number;
      end ;
      writeln('the total of numbers are ', sum);
end.
program A;
var sum,I : integer;
begin
      I:=0;
     sum:=0;
     repeat
             I:=I+1;
            sum:=sum+I;
      until sum >=100;
      writeln('the total number of terms to be added are ', I);
       writeln('the total sum of terms: ', sum);
end.		 program DrinkMachine;
var sum,I : integer;
begin
      I:=0;
      sum:=0;
      while sum < 100 do
      begin
            I:=I+1;
            sum:=sum+I;
      end;
      writeln('the total number of terms to be added are ', I);
      writeln('the total sum of terms: ', sum);
end.
program DrinkMachine;
var sum : real;
coin: integer;
begin
       writeln('Coke is $9 per can.Please insert coins');
       sum:=0;
       repeat
              readln(coin);
              case coin of
                   1,5,10,20: sum:=sum+coin;
              else
                    writeln('Coins not accepted')
              end;
        until sum >=9 ;
        writeln('change is:$', sum-9:0:2);
end.		 program DrinkMachine;

var sum : real;
coin: integer;
begin
      writeln('Coke is $9 per can.Please insert coins');
      sum:=0;
      while sum < 9 do
      begin
           readln(coin);
           case coin of
                 1,5,10,20: sum:=sum+coin;
           else
                 writeln('Coins not accepted')
           end;
      end ;
      writeln('change is:$', sum-9:0:2);
end.
program A;
var  ans : char;
       mark:integer;
begin
      repeat
              write('Enter mark');
              readln(mark);
              write('Continue? Y/N');
              readln(ans);
      until ans='N';
end.		 program A;
var ans : char;
      mark:integer;
begin
       ans:='Y';
       while ans='Y' do
      begin
             write('Enter mark');
             readln(mark);
             writeln('Continue? Y/N');
             readln(ans);
     end;
end.
Find 1*2*3*...5
Program DisplayMultiply;
var I,M : integer;
begin
       M:=1;
       for I := 1 to 5 do
             M:=M*I;
        writeln(M);
end.
 Find 1*2*3*...5  
Program DisplayMultiply;
var I,M : integer;
begin
        I:=0;Ω计砞﹚1秨﹍
       M:=1;计縩计砞﹚1秨﹍
       repeat
               I:=I+1; Ω计
              M:=M*I; 盢Ω计仓縩辅计縩计
       until I=5;Ω计きΩ
       writeln(M);
end.		 Find 1*2*3*...5  
Program DisplayMultiply;
var I,M : integer;
begin
        I:=0;
        M:=1;
        while I <> 5 do
        begin
               I:=I+1;
               M:=M*I;
        end;
        writeln(M);
end.
program TwoToThePowerN;
var
      M,N, I : integer;
begin
      write('Enter the power:');
      readln(N);
      M:=1;
     For I := 1 to N do
          M:=M*2;
     writeln('2 to the power ', N, '=', M);
end.		 program TwoToThePowerN;
var
      M,N, I : integer;
begin
      write('Enter the power:');
      readln(N);
      I:=0;
      M:=1;
      repeat
              I :=I+1;
             M:=M*2;
      until I=N;
     writeln('2 to the power ', N, '=', M);
end.		 program TwoToThePowerN;
var
      M,N, I : integer;
begin
      write('Enter the power:');
      readln(N);
      I:=0;
     M:=1;
     while I <> N do
     begin
            I:=I+1;
            M:=M*2;
     end;
     writeln('2 to the power ', N, '=', M);
end.
program FindPower;
var
      M,N, I : integer;
begin
      write('Enter the number:');
      readln(N);
      I:=0; 
     M:=1;
     repeat
             I :=I+1;
            M:=M*2;
     until M=N;
     writeln('power is ', I);
end.		 program FindPower;
var
      M,N, I : integer;
begin
      write('Enter the number:');
      readln(N);
      I:=0;
     M:=1;
     while M <> N do
     begin
            I:=I+1;
            M:=M*2;
     end;
     writeln('power  is ', I);
end.
Find amount compounded from the principal p at r% p.a. after  n years
Program FindAmount;       A=P(1+R)N
var I,N : integer;
      P,R,A : real;
begin
    writeln('Enter principal, annual interest rate and number of years.');     
    readln(P,R,N);            块セ,瞯㎝戳
    A:=P;                          –セ㎝:=秨﹍セ
    for I := 1 to N do         璸ìきΩ(き)
            A:=A*(1+R/100); –セ㎝=セ㎝*(1+瞯)
    writeln('The amount is $', A:0:2);  きセ㎝
    writeln('The interest is $',A-P:0:2);き
end.

Program FindAmount;  
var I,N : integer;
      P,R,A : real;
begin
    writeln('Enter principal, annual interest rate and number of years.');     
    readln(P,R,N);         
  I:=0;        
   A:=P;        
    repeat        
            A:=A*(1+R/100); 
           I:=I+1;
     until I = N;
    writeln('The amount is $', A:0:2); 
    writeln('The interest is $',A-P:0:2);
end.

 

 Program FindAmount;  
var I,N : integer;
      P,R,A : real;
begin
    writeln('Enter principal, annual interest rate and number of years.');     
    readln(P,R,N);         
  I:=0;        
   A:=P;        
    while I <> N do              
    begin       
            A:=A*(1+R/100); 
           I:=I+1;
     end;
    writeln('The amount is $', A:0:2); 
    writeln('The interest is $',A-P:0:2);
end.
Example  块,盢ダ︽︽陪ボ
program DisplayLettersInaSentenceOnePerLine;
var I : integer;
     S : string;
begin
      WRITELN('ENTER A SENTENCE:');
      READLN(S);
      for I := 1 to LENGTH(S) do
            writeln(S[I]);
end.		 program DisplayLettersInaSentenceOnePerLine;
var I : integer;
      S : string;
begin
       WRITELN('ENTER A SENTENCE:');
       READLN(S);
       I:=0;
       REPEAT
                I:=I+1;
                writeln(S[I])
        UNTIL I=LENGTH(S);
end.		 program DisplayLettersInaSentenceOnePerLine;
var I : integer;
      S : string;
begin
       WRITELN('ENTER A SENTENCE:');
       READLN(S);
       I:=0;
       WHILE I <> LENGTH(S) DO
       begin
           I:=I+1;
           writeln(S[I])
       end;
end.