Sabtu, 18 Desember 2010

program pascal perulangan bilangan

Buat tampilan program dibawah ini dengan menggunakan metode perulangan  
               
       1 2 3 4                         2 2 2                            3 2 1
       1 2 3 4                         1 1 1                            3 2 1

       1 2 3 4                         0 0 0                            3 2 1
       1 2 3 4

       1                                  4 3 2 1                         1         
       1 2                               4 3 2                            3   5  
       1 2 3                            4 3                               7   9   11
       1 2 3 4                         4                                  13 15 17 19
           
Jawab:
1.         uses crt;                         
   var I,J :integer;
   begin
   clrscr;
     for I:=1 to 4 do
     begin
     for J:= 1 to 4 do
     write(J:4);
     writeln;
     end;
     readln;
   end.

2.    uses crt;
   var A, I,J: integer;
   begin
     clrscr;
     A:=2;
     for I:= 1 to 3 do
     begin
     for J:= 1 to 3 do
     write(A:4);
     A:=A-1; writeln;
     End;
     Readln;
end.


3. uses crt; var i, j: byte;
      begin
         clrscr;
         for i:= 1 to 3 do
         begin
         for j:= 3 downto 1 do
         write(j:4); writeln;
         end;
         readln;
        end.

4. uses crt;
   var i, j: integer;
   begin
     clrscr;
     for i:= 1 to 4 do
     begin
     for j:= 1 to i do
     write(j:4); writeln;
     end;
     readln;
   end.

1.  5. uses crt;
   var A, i,j:integer;
   begin
     clrscr;
     for i:= 4 downto 1 do
     begin
     A:=4;
     for j:= 1 to i do
     begin
     write(A:4);
     A:=A-1;
     end;
     writeln;
     end;
     readln;
   end.

6. uses crt;
   var A, i, j: byte;
   begin
     clrscr;
     A:= 1;
     for i:= 1 to 4 do
     begin
     for j:= 1 to i do
     begin
     write(A:4);
     A:= A+2;
     end;
     writeln;
     end;
     readln;
   end.

Tidak ada komentar:

Posting Komentar