Kumpulan Program Pascal dengan TPW 1.5

Kumpulan program pascal ini merupakan kumpulan latihan saat saya belajar bahasa
pemrograman pascal. saya menggunakan Turbo Pascal for Windows (TPW) Versi
1.5 sebagai kompilernya. Mungkin ada kekurangan disana sini, tapi mudah-mudahan
kumpulan program ini bermanfaat bagi pembaca yang berminat dan baru mempelajari
bahasa pemrograman pascal.Berikut kumpulan dari program yang di pelajari saat mempelajari tentang bahasa pemrograman tingkat dasar :

• Membuat Program  keliling lingkaran

program genap;
uses wincrt;
var
x : integer;
begin
write('masukkan sembarang angka =');read (x);
if x mod 2=0 then
write('genap')
else
write('ganjil')
end.

• Membuat program bilngankelipatan5

program bilangankelipatan5;
uses wincrt;
var bil,batas:integer;
begin
write('Masukkan integer positif,=');
readln(batas);
for bil:=5 to batas do
if bil mod 5=0 then
write(bil,' ');
end.

• Membuat Program deretABCDE

program deretABCDE;
uses wincrt;
var i,batas:char;
begin
{write('masukkan integer positif=');
readln(batas);}
for i:='a' to 'e' do
write(i,' ');
end.

• Membuat program Deretan angka sampai 10

program deratangka1sampai10;
uses wincrt;
var i,batas:integer;
begin
{write('Masukkan integer positif,=');
readln(batas);}
for i:=1 to 10 do
write(i);
end.

• Membuat program DeretAngka2

program deretangka2;
uses wincrt;
var i,batas:integer;
begin
write('masukkan integer positif=');
readln(batas);
for i:=batas downto 1 do
write(i,' ');
end.

• Membuat program deretEDCBA

program deretEDCBA;
uses wincrt;
var i,batas:char;
begin
{write('masukkan integer positif=');
readln(batas);}
for i:='e' downto 'a' do
write(i,' ');
end.

• Membuat program GanjilGenap

program Ganjilgenap;
uses wincrt;
var bil:integer;
begin
for bil:=6 to 16 do
if bil mod 2=1 then
write(bil,' ');
readln;
end.

•  Membuat program grade

Program nilai_mahasiswa;
uses wincrt;
Var
Nilai : Real ;
Grade : Char ;
nama : string ;
Begin
write('NAMA ANDA: ',nama);
read(nama);
Write('NILAI YANG ANDA PEROLEH : ');
Read(Nilai);

•   Membuat program Hadiah belanja

program hadiahBelanja;
Uses wincrt;
var
x:integer;
begin
write('masukkan harga=');read(x);
if x<=49.999 then
write ('maaf sampeyan dereng beruntung')
else
if x<=99.999 then
write ('selamat sampeyan mendapatkan mie goreng')
else
if x<=149.999 then
write ('selamat sampeyan mendapatkan gelas cantik')
else
if x<=199.999 then
write ('selamat sampeyan mendapatkan piring cantik')
else
if x<=5000.000 then
write ('selamat mendpatkan sampeyan payung cantik')
end.

• Membuat program binatang

program binatang;
uses wincrt;
var baris,kolom:integer;
begin
clrscr;
for baris:=1 to 8 do
begin
for kolom:=1 to baris do
write('KUCING');
writeln;
end;
readln;
end.

•  Membuat program  HurufAsampaiZ

program hurufAsampaiZ;
uses wincrt;
var i,batas:char;
begin
write('Masukkan huruf a sampai z=');read(batas);
for i:= 'a' to batas do
write(i,' ');
end.

• Membuat Program jenis bilangan bulat

program jenis_bilangan_bulat;
uses wincrt;
var
x : integer;
begin
write ('Masukkan sembarang angka=');read(x);
if x >0 then
write ('positif')
else
if x <0 then
write('negatif')
else
write ('nol')
end.

• Membuat deretangka1sampai10

program deratangka1sampai10;
uses wincrt;
var i,batas:integer;
begin
{write('Masukkan integer positif,=');
readln(batas);}
for i:=1 to 10 do
write(i);
end.

• Membuat program deretABCDE

program deretABCDE;
uses wincrt;
var i,batas:char;
begin
{write('masukkan integer positif=');
readln(batas);}
for i:='a' to 'e' do
write(i,' ');
end. 

• Membuat Program bilanganKelipatan5

program bilangankelipatan5;

uses wincrt;
var bil,batas:integer;
begin
write('Masukkan integer positif,=');
readln(batas);
for bil:=5 to batas do
if bil mod 5=0 then
write(bil,' ');
end.

• Membuat Program HurufAsampaiZ

program hurufAsampaiZ;

uses wincrt;

var i,batas:char;

begin

write('Masukkan huruf a sampai z=');read(batas);

for i:= 'a' to batas do

write(i,' ');

end.  

• Membuat Program Menghitung Jarak

Program Menghitung_Jarak;

Uses WinCrt;
var
x1,x2,y1,y2:integer;
d:real;
begin
Writeln('Program Menghitung Jarak Titik A dan B');
Writeln('======================================');
Writeln;
Write('Masukan Nilai A (X1): ');readln(x1);
Write('Masukan Nilai B (X2): ');readln(x2);
Write('Masukan Nilai A (Y1): ');readln(y1);
Write('Masukan Nilai B (Y2): ');readln(y2);
d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
Writeln;
Writeln('Jadi Jarak Titik A ke B Adalah: ',d:4:2);
end.

• Membuat Program Kontreversi Suhu

Program Konversi_Suhu;

Uses WinCrt;
var f,c:real;
begin
Writeln('Program Konversi Fareinheit Ke Celcius');
Writeln('======================================');
Writeln;
Write('Masukan Suhu dalam Farenheit: ');readln(f);
c:=5/9*(f-32);
Writeln;
Writeln('Jadi Suhu Dalam Celcius Adalah: ',c:4:2);
end.

• Membuat Program Kontreversi Waktu

Program Konversi_Waktu;
Uses Wincrt;
Var j,m,d,h:integer;
begin
Writeln('Program Konversi Waktu');
Writeln('======================');
Writeln;
Write('Masukkan Jumlah Jam : ');readln(j);
Write('Masukkan Jumlah Menit : ');readln(m);
Write('Masukkan Jumlah Detik : ');readln(d);
Writeln;
h:=(j*3600)+(m*60)+d;
Writeln('Jadi Hasil Konversi : ',h,' Detik');
end.

• Membuat Program Kontreversi Waktu1

Program Konversi_Waktu1;
Uses WinCrt;
var j,m,d,dm,sisa,sisa1:integer;
begin
Writeln('Program Konversi Waktu 1');
Writeln('========================');
Writeln;
Write('Masukkan Jumlah Detik : ');readln(dm);
if (dm/3600)>0 then
begin
j:=dm div 3600;
sisa:=dm-(j*3600);end
else
begin
j:=0;
sisa:=dm;
end;
if (sisa/60)>0 then
begin
m:=sisa div 60;
sisa1:=sisa-(m*60);
end
else
begin
m:=0;
sisa1:=sisa;
end;
d:=sisa1;
Writeln;
Writeln('Hasil => ',j,' jam ',m,' menit ',d,' detik');
end.