Program pascal 1

1.      Program Kelulusan

Program Kelulusan;

uses crt;

var nilai:integer;

begin

write('masukkan nilai anda: '); readln(nilai);

if nilai >70 then writeln('LULUS')

else writeln('TIDAK LULUS');

readln;

end.

                                                                (Selasa, 6 Oktober 2015)

2.      Program Penilaian

Program Penilaian;

uses crt;

var nilai:integer;

begin

write('masukkan nilai anda: '); readln(nilai);

if nilai >=85 then writeln('Nilai A')

else if nilai >=75 then writeln('Nilai B')

else if nilai >=65 then writeln('Nilai C')

else writeln('Nilai D');

readln;

end.

                                          (Selasa, 6 Oktober 2015)

3.      Program Luas Lingkaran

program LuasLingkaran;

uses crt;

var r,L:real;

begin

write('masukkan jari-jari lingkaran(cm): '); readln(r);

L:=pi*r*r;

writeln('Luas Lingkaran:',L:10:2,'cm2');

readln;

end.

                                          (Kamis,8 Oktober 2015)

4.      Program Keliling Lingkaran

Program KelilingLingkaran;

uses crt;

var r,K:real;

begin

write('masukkan jari-jari lingkaran(cm): '); readln(r);

K:=2*pi*r;

writeln('Keliling Lingkaran:',K:10:2,'cm');

readln;

end.

                                                                                    (Kamis,8 Oktober 2015)

5.      Program Luas Trapesium

program LuasTrapesium;

uses crt;

var sisi_a,sisi_b,tinggi,luas:real;

begin

write('masukkan sisi a: ');readln(sisi_a);

write('masukkan sisi b: ');readln(sisi_b);

write('masukkan tinggi: ');readln(tinggi);

Luas:=sisi_a+sisi_b/2*tinggi;

writeln('Luas Trapesium adalah: ',Luas:10:2);

readln;

end.

                                          (Sabtu, 10 Oktober 2015)

6.      Program Volume Bola

Program VolumeBola;

uses crt;

var r,volume:real;

begin

write('masukkan jari-jari: '); readln(r);

volume:=r*r*4/3*pi;

writeln('Volume Bola adalah: ',volume:10:2);

readln;

end.

                                          (Sabtu, 10 Oktober 2015)

7.      Rumus Phytagoras

program phytagoras;

uses crt;

var a,t,m:real;

begin

write('masukkan alas; '); readln(a);

write('masukkan tinggi; '); readln(t);

m:=sqrt((a*a)+(t*t));

writeln('Phytagoras adalah: ',m:10:2);

readln;

end.

                                                                        (Minggu, 11 Oktober 2015)