PASCAL PROGRAM TEKNIK PENGULANGAN satu

 

PROGRAM PASCAL TEKNIK PENGULANGAN 

(BAGIAN 1)

SOAL:

1. Buatlah program yang menerima masukan batas awal dan batas akhir dan menampilkan perkalian deret dari bilangan yang telah dibatasi!

 
2. Buatlah program yang akan menampilkan deretan bilangan ganjil seperti ini : (1 3 5     7 9 11 13 15) menggunakan pengulangan for!

3. Buatlah program pengulangan for bersarang yang menampilkan tampilan seperti berikut!
*
**
***
****
*****

 
 JAWABANNYA:

 1. program perkalian_deret; uses crt;
var
   i : integer;
   batas_awal, batas_akhir, perkalian : integer;
begin
  
     clrscr;
     write('Masukan batas awal :'); readln(batas_awal);
     write('Masukan batas akhir :'); readln(batas_akhir);
     for i := batas_awal to batas_akhir do
     begin
     perkalian := batas_awal * i;
     writeln(batas_awal,' * ',i,' = ',perkalian);
     end;
     readln;
end.

 

2. program ganjil;
uses crt;
var
   bilangan, i : integer;

begin
     clrscr;
     for i := 1 to 15 do
     begin
     if (i mod 2 <> 0) then
     writeln(i);
     end;
     readln;

end.

 

3. program nested_for;
uses crt;
var
    baris, kolom, batas : integer;
begin

clrscr;
     for baris := 1 to 5 do
     begin
     for kolom := 1 to baris do
     write('*':2 );
     writeln;
     end;
     readln;

End.

 

SEKIAN SOBAT, SEMOGA BERMANFAAT JANGAN LUPA KOMENTAR DAN LIKE FB FANSPAGE..  

 

Tweet