Belajar Algoritma Pascal 1
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 PROGRAM KONVERSI SUHU
program pengulangan for
SEKIAN CONTOH PROGRAM PASCAL KALI INI, SEMOGA BERMANFAAT :)
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 :)