Rabu, 29 Oktober 2014

Soal Looping 2

3.Buatlah algoritma dan program untuk menampilkan angka seperti berikut:
Contoh inputan :


Jumlah angka : 5
1   5
 2 4
  3 
 2 4
1   5
Jumlah angka : 6
1    6
 2  5
  34 
  34 
 2  5
1    6
Jumlah angka : 9
1       9
 2     8
  3   7 
   4 6  
    5   
   4 6  
  3   7 
 2     8
1       9

PROGRAM PASCAL NYA :

program no3;
uses crt;

var
   i, j , k , l : integer ;
begin
    clrscr;
    write('Inputkan Jumlah Angka:');
    readln(i);
    j := i ;
    for k := 1 to i do
    begin
       for l := 1 to i do
       begin
         if ((l=j)or (l=k)) then
         begin
           write (l);
         end
         else
          write (' ');
       end;
       j := j - 1;
       writeln();
     end;
     readln();
end.

ouputan jika kita inputkan 5 :

jika kita inputkan 6 :
jika kita inputkan 9 :

Tidak ada komentar:

Posting Komentar