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
jangan lupa tinggalkan komentarnya ya..
BalasHapus