PROGRAM PASCAL

FOR-TO-DO, DOWN TO & IF-THEN

Program Pengulangan;

Usescrt;

Var

a,b,n := integer ;

Begin

Write (‘Masukkan jumlah bintang : ‘), readln (n);

FOR a := 1 TO n DO

            Begin

            FOR b := 1 TO a DO

            Write (‘  *  ’);

            Writeln;

            IF  (a=n) THEN

                        Begin

                        FOR a := (n-1) DOWN TO 1 DO

                                    Begin

                                    FOR b :=  1 TO a DO

                                    Write (‘  *  ‘);

                                    Writeln;

                        End;

            Readkey;

Exit;

End;

End;

End.

Output :

Masukkan jumlah bintang : 5

*

*          *

*          *          *

*          *          *          *

*          *          *          *          *

*          *          *          *

*          *          *

*          *

*

PROGRAM PASCAL

FOR-DOWN TO-DO

Program Perulangan;

Usescrt;

Var

x,y : integer;

Begin

Clrscr;

Writeln (‘Kelompok 2 : Izatul Putri Sonya        , 131128815’);

Writeln (‘                          Nareswari Pradipta N,  15112248  ‘);

Writeln (‘                          Rizma Nur Fatiyah      ,  16112634  ‘);

Write;

Writeln (‘LATIHAN KE 6’);

Write;

Writeln (‘-------------------------------------------------------------‘);

Begin

FOR x := 4 down to 1 do

            Begin

            FOR y := 4 down to x do

            Write (y, ‘   ‘);

Writeln;

Readln;

End;

End;

End.

Output :

Kelompok 2 : Izatul Putri Sonya         , 131128815

                           Nareswari Pradipta N ,  15112248  

                              Rizma Nur Fatiyah       ,  16112634                 

4

4              3

4              3              2

4              3              2              1

RESEP

Bola-bola Cokelat

Bahan :

2 Bungkus biscuit malkist.

2 Kaleng susu kental manis Frisian Flag cokelat .

1 bungkus meses  cokelat (sesuai selera)

Cara Pembuatan :                 

            

1.      Siapkan wadah untuk menghancurkan biscuit hingga halus.

2.      Masukkan 2 kaleng susu dan aduk  sampai rata dengan menggunakan sarung tangan plastik.

3.      Jika adonan sudah tercampur rata, siapkan meses .

4.      Bentuk adonan seperti bola, dan masukkan kedalam meses, gulung hingga semua bagian permukaan bola terkena meses .

5.      Setelah semua selesai. Masukkan kedalam kulkas hingga membeku .

6.      Bola-bola cokelat siap dihidangkan dan disantap

RESEP

AYAM TEPUNG HOT SPICY

Bahan :

30gr Daging ayam

1 bungkus Bumbu Racik fried chiken spicy (Tepung)

2sdm air

½ liter minyak sayur

Bumbu :

5 cabai rawit merah (diiris).

2 siung bawang putih (potong hingga menjadi dadu kecil).

Lada putih secukupnya

2sdm minyak sayur

Cara Pembuatan :

1.      Potong daging ayam seperti dadu agak besar.

2.      Siapkan 2sdm air dan sedikit tepung bumbu fried chiken spicy, aduk rata.

3.      Masukkan potongan ayam kedalam tepung yang sudah campurkan dengan air, aduk hingga semua potongan ayam  rata dengan bumbu dan diamkan agar bumbu meresap.

4.      Masukkan potongan ayam kedalam tepung (kering) sampai menempel kesemua bagian daging.

5.      Panaskan  2sdm minyak sayur dan masukkan semua bumbu hingga wangi.

6.      Panaskan ½ liter minyak sayur untuk menggoreng ayam.

7.      Setelah ayam berwarna kecokelatan, angkat dan masak kembali bersama bumbu yang sudah wangi.

Setelah bumbu meresap, ayam tepung hot spicy dadu siap disajikan dan disantap.

PUISI

CINTA YANG HALAL

Sebuah cinta manis yang bernama halal..

Terlahir dalam setiap diri manusia..

Anugerah yang tak pantas untuk dihujat..

Karena cinta adalah anugerah Allah kepada hambanya..

                                    Takkan mampu fikiran ini untuk menalarkannya..

                                    Karena makna cinta yang sesungguhnya..

                                    Hanya Sang Maha Cinta yang mengetahuinya..

Ketika cinta merasuk kalbu..

Denyut nadipun berdenyut merdu..

Membasahi semua penyakit hati..

Hingga kurasakan kedamaian yang hakiki..

PUISI

KESEMPATAN HIDUP

Hari kecil kembali datang ..

Seakan menatap semua yang ada..

Memberikan hal baru yang tersedia..

Dan berikan kesempatan, Bagi orang yang menyadarinya..

                        Detik demi detik terus berjalan..

                        Semuanya bangkit secara perlahan,

                        Menyambut kesempatan kehidupan yang ada..

Sudah seharusnya..

Semua umat menghadap kiblat…

Menyeluruh mensyukuri tersedianya umur jiwa..

                        Yang masih dapat  menanam amal..

                        Akan meraih kebahagiaan,

                         Kebahagiaan yang datang dari Sang Khaliq..

PROGRAM PASCAL

PROGRAM PASCAL  “SUHU”

PROGRAM SUHU;

            Var

            Celcius : integer;

            Fahrenheit : real;

            Begin

            Writeln (‘---------------------------------------------‘);

            Writeln (‘Celcius *************** Fahrenheit’);

            Writeln (‘---------------------------------------------‘);

            Celcius := 0 ;

            FOR Celcius := 5 DOWN TO 0 DO

                        Begin

                                    Fahrenheit :=  1.8 * Celcius + 32;

                                    Writeln (Celcius:8, Fahrenheit:14:2);

                                    Readln;

                        End;

            Writeln (‘--------------------------------------------‘);

End.

Output :

---------------------------------------------

Celcius *************** Fahrenheit

---------------------------------------------

            5                                  41.00

            4                                  39.20

            3                                  37.40

            2                                  35.60

            1                                  33.80

            0                                  32.00

--------------------------------------------