Belajar Algoritma Pascal 1

Belajar Algoritma Pascal 1

, , Edit

hy all..aku mau share nih tentang pelajaran bahasa pemograman menggunakan bahasa Pascal,
buat yang belum tau Apa itu Bahasa Pascal Kalian bisa serching sendiri di mbah GOOGLE, bagi yang sudah tau atau ingin mempelajarinya, mari kita belajar sama-sama, disini saya akan memberikan contoh program dengan bahasa Pascal.. Langsung aja deh..>>>


PASCAL MENCARI NILAI LUAS SEGITIGA
program mencari_luas_segitiga;
uses crt;
var
luas : real;
alas,tinggi : integer;
begin
clrscr;
write ('Masukan Nilai Alas : '); readln(alas);
write ('Masukan Nilai Tinggi : '); readln(tinggi);
luas := 1/2 * (alas * tinggi);
write ('Luas Segitiga adalah : ',luas:5:2);
readln;
end.
OUTPUT

PASCAL PROGRAM KONVERSI SUHU

program mencari_KONVERSI_SUHU;
uses crt;
var
celcius : integer;
farenheit, reamur : real;
begin
clrscr;
write ('masukkan nilai celcius :'); readln (celcius);
farenheit := 4/5 * celcius;
reamur := 9/5 * celcius;
writeln ('nilai farenheit adalah: ',farenheit:6:2);
writeln ('nilai reamur adalah : ',reamur:6:2);
write ('by desy');
readln;
end.
OUTPUT



PASCAL PROGRAM MENCARI NILAI MATA UANG
program mencari_nilai_matauang;
uses crt;
var
rupiah, dollar, yen, euro, pound : real;
ulang : integer;
begin
clrscr;
rupiah :=15000;
writeln ('TABEL KURS MATA UANG:');
writeln ('=========================================');
writeln ('Rupiah Dollar Yen pound euro');
writeln ('-----------------------------------------');
for ulang :=1 to 10 do
begin
dollar := rupiah / 10000;
yen := rupiah / 7500;
pound := rupiah / 12500;
euro := rupiah / 11000;
writeln (rupiah:6:0,' ',dollar:6:2,' ',yen:6:2,' ',pound:6:2,' ',euro:6:2);
rupiah := rupiah + 10000;
end;
writeln ('=========================================');
readln;
end.
OUTPUT

program pengulangan for

program pengulangan;
uses crt;
var
i : integer;
begin
clrscr;
for i := 1 to 20 do
begin
writeln ('Belajar Bahasa Pascal');
end;
readln;
end.
OUTPUT


PROGRAM PERULANGAN DO_WHILE

PROGRAM do_while1;
USES CRT;
VAR
nilai : INTEGER;
BEGIN
CLRSCR;
NILAI := 0;
WHILE (NILAI <= 20) DO
BEGIN
WRITE(NILAI,',');
NILAI := NILAI + 2;
END;
READLN;
END.
OUTPUT
program perulangan_do_while2;
uses crt;
var
nama : string;
ulang : integer;
begin
clrscr;
write ('masukan nama anda : '); readln(nama);
ulang :=1;
while (ulang <= 10) do
begin
writeln ('Nama anda :',nama,'ulang-' ,ulang);
ULANG := ULANG + 1;
end;
readln;
end.
OUTPUT


PROGRAM PERULANGAN REPEAT-UNTIL
PROGRAM CONTROL_PERULANGAN_REPEAT_UNTIL;
uses crt;
var
i : integer;
nama : string;
begin
clrscr;
write ('Masukan nama :'); readln(nama);
i := 1;
repeat
begin
writeln (i,' ',nama, ' ';
i:=i+1;
end;
until (i>10);
readln;
end
OUTPUT

SEKIAN CONTOH PROGRAM PASCAL KALI INI, SEMOGA BERMANFAAT :)

SHARE ON:

Hello guys, I'm Tien Tran, a freelance web designer and Wordpress nerd. Sed ut perspiciatis unde omnis iste natus error sit voluptatem accusantium doloremque laudantium, totam rem aperiam, eaque ipsa quae.

5 komentar:

  1. Unknown13 Januari 2012 pukul 17.46

    jiee langsung ni yee (rahmat1929)

    BalasHapus
  2. punya agung13 Januari 2012 pukul 20.59

    wahhh cuman segini yaaaa, but thanks thats so helping....

    BalasHapus
  3. cure17 Januari 2012 pukul 08.53

    @rahmat : thanks ya bang udah mampir di blog sderhana gw... he
    @agung : your welcm om,, he.. ya yg dipostingin ni cuma yg dipraktekin aja om, kan modul om sdh punya

    BalasHapus
  4. Hendy William Sino3 April 2012 pukul 04.34

    baguss :) thanks yaa.. ...
    di tunggu kunjungan baliknya yaa... http://hendywilliamsino.blogspot.com/

    BalasHapus
  5. cure12 November 2012 pukul 14.17

    @Hendy : Trimakasih sudah berkunjung di blog ku_^

    BalasHapus

Langganan: Posting Komentar ( Atom )