program for2;
uses wincrt;
var
   a,b,c: integer;
begin
    write('sembarang bilangan: ');readln(c);
    for a:=1 to c do;
begin
    for b:=1 to a do
    write(' ',a:b)
    writeln;
    end;
end.

mohon maaf jika terjadi kesalahan...
semangat!!!!!!!!!!

For , While, dan Repeat

   Pengulangan Proses Dalam Turbo Pascal

Seringkali kita harus melakukan pengulangan terhadap suatu proses.,ya kalau kita harus ngulang misalnya 1000x bisa gempor tangan kita...hehehehe..Untuk itu saya akan memberi tau beberapa macam perulangan dalam turbo pascal dan pastinya lebih simple dan easy...donk...hahaha

1.             1.FOR_TO_DO

Pernyataan ini biasanya digunakan untuk melakukan pengulangan yang jumlahnya sudah kita ketahui...

Contoh Deklarasinya adalah Sbb:

FOR  variable := nilai awal TO nilai akhir DO

                        Pernyataan     

Untuk contoh programnya jangan kawatir pasti saya kasih,..masak saya Cuma ngasih teori aja..ne contoh programnya..:

program for1;

uses wincrt;

var

pencacah:integer;

begin

for pencacah:= 1 to 100 do

writeln('hore aku bisa');

end.

program for2;

uses wincrt;

var

pencacah,x:integer;

begin

write('masukan angka :');readln(x);

for pencacah:=1 to x do

writeln(pencacah);

            end.

Untuk program diatas hasil eksekusinya(maksudnya setelah di RUN) adlh kayak gini:

Masukan angka : 8

1

2

3

4

5

6

7

8

Hasilnya adalah urut....

         2.    FOR_DOWNTO_DO

Deklarasinya...

FOR variable := nilai awal DOWNTO nilai akhir DO

Program ini sama kayak program diatas namun beda...hehehe..perbedaanya..kalau yang atas kan urut tapi kalo yg ini juga urut.,.,hehehe tapi urutnya dari bawah keatas..langsung saja ini contoh programnya..biar gax mumet...hehehe,.cekidot..,,??

program fordown;

uses wincrt;

var

pencacah,x:integer;

begin

write('masukan angka :');readln(x);

for pencacah:=x downto 1 do

writeln(pencacah);

     end.

Hasilnya....coba sndiri ya...

3.                          3.    WHILE_DO

Pernyataan ini biasanya digunakan untuk melakukan pengulangan yang jumlahnya blm diketahui.

Contoh Deklarasinya ..,,di cermati..OK

WHILE kondisi DO

     pernyataan

Untuk lebih jelasnya lihat contoh programnya berikut ini :

program while1;

uses wincrt;

var

pencacah:integer;

begin

pencacah:= 1 ;

while pencacah <= 10 do

begin

writeln(pencacah);

pencacah:=pencacah + 1;

end;

end.

Hasilnya sama kayak program for2

4.             4.   REPEAT

Deklarasinya....

REPEAT

            Pernyataan 1;

            Pernyataan 2;

            ................

            Pernyataan n;

UNTIL kondisi

           

Pada dasarnya REPEAT bz digunakan untk smua mslh yg dpt ditangani oleh FOR ataupun WHILE..sbg contoh:

for pencacah:= 1 to 100 do

writeln('hore aku bisa');

dapat disajikan menggunakan REPEAT sbb:

pencacah:=1;

REPEAT

writeln('hore aku bisa');

pencacah:=pencacah + 1;

UNTIL pencacah >10;

Berikut contoh REPEAT yang agak rumit tapi keren...hehehehe,..,untuk pembelajaran..contoh ini digunakan untuk membentuk table ekuivalensi derajat antara Celcius, Reamur dan farenheit...

Rumusnya : F = 9/5 x C +32

                     R = 4/5 x C

program repeat1;

uses wincrt;

var

C,R,F:real;

begin

writeln('Celcius':12,'Reamur':12,'Farenheit':12);

writeln('======================================');

C:=0;

repeat

F:=9/5*C+32 ;

R:=4/5*C;

writeln(C:12:2,R:12:2,F:12:2);

C:=C+0.5;

until C>10;

writeln('======================================');

end.

.....sebenarnya untuk FOR,WHILE dan REPEAT itu pada hakeketnya sama tapi hanya beda penyampaian saja...hehehe...dan disini butuh kekreatifitasan kalian2...huhuhuhu,,

Selamat mencoba ya ...semoga bermanfaat....

Tunggu postingan berikutnya...jangan lupa comment....

Thankz...

“jangan mengeluh tapi mengolah”...tetap semangat!!!!