Turbo Pascal 2

Minggu kedua (21 Maret 2012)

   1.Sebutkan dan jelaskan statement perulangan pada pascal ?

     2.Tuliskan bentuk umum dari perulangan pada pascal ?

   3.Tuliskan contoh program dari perulangan dari soal no 2 ?

Jawaban :

1.  For...Do : Mengulang pernyataan berulang kali dengan jumlah yang telah ditentukan

While...Do : Melakukan proses pengulangan suatu pernyataan secara terus menerus selama kondisi logika pada While masih bernilai logika positif

Repeat...Until : Mengulang pernyataan sampai kondisi yang diseleksi di Until tidak terpenuhi

2.  For...Do
Begin

For variabel control:=nilai awal To nilai akhir Do statemen End

While...Do

Begin

While ungkapan logika Do statement

End.

Repeat...Until

Begin

Repeat statement Until ungkapan

End.

3.  For...Do                While...Do        Repeat...Until   

   Uses crt;               Uses crt;         Uses crt;

Var I:integer;          Var I:nteger;     Var I:Integer;

Begin                   Begin             Begin

For I:1 to 10 do        I:=0;             I:=0;

Begin                   While I<5 Do      Repeat

Write(1);               Begin             I:=I+1

Writeln(‘Pascal’);    Writeln(I);       Writeln(I);

End;                    I:=I+1;           Until I=5

End.                    End;              End.

                        End.

Turbo Pascal

Minggu pertama (14 Maret 2012)

1.  Apa yang anda ketahui tentang kondisi pascal ?

2.  Tuliskan bentuk umum kondisi pada pascal ?

3.  Buatlah contoh program sederhana pascal ?

Jawaban

1.  Kondisi pada pascal adalah kondisi yang digunakan untuk mengatur suatu program dengan memberikan statement, jika syarat terpenuhi maka program akan berlanjut.

2.  If Kondisi Then

Statement 1

Else

Statement 2

3.  Uses crt;

Var  a,b:Integer;

Begin

Clrscr;

Write(‘a=’), read(a);

Writeln;

Writeln(‘Nilai b=x+3’);

y:=x+3;

Write(‘y=’,y);

Read(x);

End.

1.Koding

Uses crt;

Begin

Clrscr;

Writeln(‘Selamat Datang di LAB SI’);

Readln;

End.

Output

Selamat Datang di LAB SI

2.Koding:

Uses crt;

Var nm,npm,kls:string;

Begin

Clrscr;

Write(‘Masukkan Nama:’); readln(nm);

Write(‘Masukkan NPM:’); readln(NPM);

Write(‘Masukkan Kelas:’); readln(kls);

Writeln(‘Nama Saya’,nm, ‘dengan NPM’,npm,’Berada di Kelas’,kls);

Readln;

End.

Output:

Masukkan Nama:

Masukkan NPM:

Masukkan Kelas:

Nama Saya(inputan)dengan NPM(inputan)Berada di Kelas(inputan)

3. Koding:

Uses crt;

Var nilai:Integer;

Begin

Clrscr;

Writeln(‘Masukkan Nilai:’);

Readln(Nilai);

If Nilai >70 Then

Write(‘Lulus’);

Else

Write(‘Gagal’);

Readln;

End.

Output:

Masukkan Nilai: