LA Pascal III

Contoh Program Case
 

uses crt;
label menu;
var i,j,n,pil : integer;
    kota : string;
procedure jalan_kanan;
begin
clrscr;
     for i :=1 to 70 do
     begin
         gotoxy (i,1);
         write(kota);
         textcolor(7);
         delay(50);
     end;
end;
procedure jalan_kiri;
begin
clrscr;

LP Pascal II

1. Apa yg kamu ketahui tentang statement perullangan pada pascal ?
2. Sbutkan dan jelaskan bentuk umum dari perulangan pada pascal ?
3. Contoh program perulangan sederhana ?


Jawab

1. Perulangan (iterasi) adalah proses yang berulang. Iterasi selalu ada dalam bahasa pemrograman apapun, karena disinilah letak kelebihan komputer dibanding manusia, yaitu mampu melakukan hal yang sama berulang kali tanpa kesalahan akibat bosan atau lelah. Dengan perulangan, program menjadi lebih pendek dan sederhana. Dalam Pascal dikenal tiga macam perintah (statement) perulangan, yaitu statement for…do, repeat…until dan while…do. Perulangan for…do adalah perulangan dengan penghitung (counter), perulangan repeat…until adalah perulangan dengan syarat akhir sedang perulangan while…do adalah perulangan dengan syarat awal.

2. Sbutkan dan jelaskan bentuk umum dari perulangan pada pascal ?

LA Pascal II

Program 2 (Bil Ganjil Genap)

uses crt;
var
        a:integer;
        b:string;
begin
repeat
clrscr;
write('Masukan Angka = ');readln(a);
if (a=0) then writeln(a ,' adalah kosong') else
if (a mod 2 =0) then writeln(a,' adalab bilangan genap') else
writeln(a,' adalah bilangan ganjil');
writeln;
write('Coba angka lain (y/n) : ');readln(b);
until (b='N') or (b='n');
end.

Output :

Program 2 (Bilangan Prima)

uses crt;

LA Pascal I

Program I

program Penjumlahan;
uses crt;
var
   a,b,hasil:integer;
begin
     writeln('   Program Penjumlahan   ');
     writeln('-------------------------');
     write('Masukan bilangan ke 1 : ');readln(a);
     write('Masukan Bilangan ke 2 : ');readln(b);

     hasil:=a+b;

     writeln;
     write('Hasilnya adalah : ',hasil);
end.

Output :

LP Pascal I

1. Sebutkan dan jelaskan macam-macam statement kondisi pada pascal ?

2. Buat contoh program sederhana menggunakan pascal ?

Jawab

1. If ….. Then …. Else …..
Pernyataan percabangan/kendali/bersyarat merupakan pernyataan yang akan mengeksekusi suatu pernyataan yang mengikutinya bila suatu persyaratan dipenuhi. Salah satu pernyataan kendali untuk pengambilan keputusan dalam Pascal adalah pernyataan If … Then … Else …

Bentuk umum :

IF kondisi THEN
Statemen 1
ELSE
Statemen 2