Jumat, 11 Maret 2011

Program Pascal

Berikut ini adalah kumpulan program yang pernah saya buat saat semester satu,
silahkan :

1.   Menentukan bilangan yang diinputkan adalah bilangan positif, negatif, atau nol.

program Menentukan_Jenis_Bilangan;
uses crt;
var
x : integer;
begin
write ('Masukkan nilai = ');
readln (x);
if x > 0 then
writeln ('bilangan positif')
else
if x < 0 then
writeln ('bilangan negatif')
else
writeln ('bilangan nol');
readln;
end.

Output program :

Masukkan nilai = 2
bilangan positif

Masukkan nilai = 0
bilangan nol

Masukkan nilai = -5
bilangan negatif


2.   Menentukan nilai terbesar dari A,B, dan C.

program Menentukan_Bilangan_Terbesar;
uses crt;
var
   A,B,C : integer;
begin
write (‘Masukkan nilai A = ‘);
readln (A);
write (‘Masukkan nilai B = ‘);
readln (B);
write (‘Masukkan nilai C = ‘);
readln (C);
 if (A > B) and (A > C) then
writeln (‘Nilai terbesar = ‘, A)
else
     if (B > A) and (B > C) then
          writeln (‘Nilai terbesar = ‘, B)
     else
          writeln (‘Nilai terbesar = ‘, C);
     readln;
end.

Output program :

Masukkan nilai A = 2
Masukkan nilai B = 3
Masukkan nilai C = 4
Nilai terbesar = 4


3.   Menentukan tahun kabisat.

program Menentukan_Tahun_Kabisat;
uses crt;
var
   tahun : integer;
begin
     write ('Masukkan tahun = ');
     readln (tahun);
     if (tahun mod 400 = 0) and (tahun mod 100 <> 0) or
     (tahun mod 4 = 0) then
        writeln ('Tahun Kabisat')
     else
        writeln ('Bukan Tahun Kabisat');
     readln;
end.

Output program :

Masukkan tahun = 2000
Tahun kabisat

Masukkan tahun = 2001
Bukan Tahun Kabisat


4.   Menentukan pilihan yang terdapat pada program.

Program Pilihan_luas;

uses crt;
var
  p,l,t,a,r,luas : real;
  pilihan,jawab  : char;
begin
  repeat
  clrscr;
  writeln('PROGRAM MENENTUKAN LUAS');
  writeln;
  writeln('      PILIHAN     ');
  writeln('1. LUAS SEGITIGA  ');
  writeln('2. LUAS PERSEGI PANJANG ');
  writeln('3. LUAS LINGKARAN ');
  writeln;
  writeln('Masukkan pilihan anda (1-3)');
  readln(pilihan);
  writeln;
  case pilihan of
    '1' : begin
            writeln('Menghitung Luas Segitiga : ');
            write('Panjang alas = ');readln(a);
            write('tinggi       = ');readln(t);
            luas := 0.5*a*t ;
            writeln('Luas         = ',luas :0:2);
          end;

    '2' : begin
            writeln('Menghitung Luas Persegi Panjang : ');
            write('panjang = ');readln(p);
            write('lebar   = ');readln(l);
            luas := p*l ;
            writeln('Luas    = ',luas :0:2);
          end;

    '3' : begin
            writeln('Menghitung Luas Lingkaran : ');
            write('Jari-jari = ');readln(r);
            luas := pi*r*r ;
            writeln('Luas = ', luas :0:2);
          end;



    else
         begin
           writeln('Pilihan yang tersedia hanya 1-3.');
         end;
    end;
  writeln('Ingin mencoba lagi ?(y/t)');
  readln(jawab);
  until (jawab = 'T') or (jawab = 't');
readln;
end.

Output program :

PROGRAM MENENTUKAN LUAS

PILIHAN
1.  LUAS SEGITIGA
2.  LUAS PERSEGI PANJANG
3.  LUAS LINGKARAN
Masukkan pilihan anda (1-3)
2
Menghitung Luas Persegi Panjang :
panjang  = 2
lebar = 3
Luas = 6.00
Ingin mencoba lagi ?(y/t)
t

1 komentar: