SEO.Traffic.Blogging dan Modifikasi Template.Review

Kumpulan Program Pascal dengan TPW 1.5

by afrilla adhitya , at 23.50 , has 19 komentar

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.
 












afrilla adhitya
About
Kumpulan Program Pascal dengan TPW 1.5 - written by afrilla adhitya , published at 23.50, categorized as Turbo Pascal . And has 19 komentar
19 komentar Add a comment
turnuhun gan syntax y
Reply Delete
manteb kk buat newbie kaya aku :)
Reply Delete
banyak bgt..
matur nuwun nggih..
ok sob sama2 sob,jangan lupa mampir kesini lagi ya sob
Delete
Reply Delete
wah makasi referensinya mas., sukses slalu., :D
Amin,Maksih sob atas kunjungannya
Delete
Reply Delete
makasii banyak kak bwt sintax" nya.. sangat" membantu. GBU :)
Reply Delete
terima kasih bro,sangat membantu kelihatannya,
Maksih Sob atas kunjungannya
Delete
Reply Delete
menurut kalian saya anak smk kelas 1 belajar kaya gini bener gak ?
itu juga materi smk kelas 1 sob,ini sebenarnya materi anak kuliah,..hehe
Delete
Reply Delete
makasih gan info nya maklum baru belajar pascal,, jadi agak puyeng heee
Reply Delete
gan misal ane bikin program daftar nilai siswa 1 kelas, tiap siswa punya 3 mata pelajaran, tiap pelajaran ada 5 nilai, array/recordnya gimana yah . . ? tolong bantuannya trims
Reply Delete
infonya sangat bermanfat dan menambah wawasan,, thanks gan.. http://goo.gl/e20l3R
Reply Delete

1. Jangan Jadi SILENT READER ya Sob. :)
2. Berkomentarlah sesuai dengan kewajaran dan bersifat membangun (NO SARA, NO PORN*)
3. Tidak Berisi Singgungan Terhadap Pihak Lain
4. Hindari Penggunaan Anchor Link (Link Aktif) seperti < href=namadomain> karena komentarnya tidak akan di moderasi
5. Gunakan Fasilitas Nama/Alamat URL sebagai alternatif Link Anchor
6. Blog ini tidak menggunakan vertifikasi kata demi kenyamanaan anda

Bck
Cancel Reply
Copyright ©2013 Adhit_Megazine|Blog'S
Theme designed by Damzaky - Author By Afrilla Chitra Adhitya
Powered by Blogger