Album Keluarga
Contoh Program Menggunakan Free Pascal Untuk Kelas X
0 komentar Staf Pengajar TIK SMAFr, pada : 5/11/2013 08:36:00 AM
Program Pertamaku;
uses wincrt;
begin
write('Nama saya :
Marcellinus Didiek Ananto');
write('Kelas :
X.6');
write;
read;
end.
---------------------------------------------------------------------------------------
Program keduaku;
uses wincrt;
begin
write('Saya ');
writeln('belajar');
Write('Free ');
write('PASCAL');
write;
readln;
end.
---------------------------------------------------------------------------------------
Program ketiga;
var umur:byte; sekolah:string;
begin
umur:=15;
sekolah:='SMA Fransiskus';
writeln('Umurku : ',umur,' tahun');
writeln('Aku Sekolah di : ',sekolah);
writeln;
readln;
end.
---------------------------------------------------------------------------------------
Program keempat;
var umur:byte; sekolah:string;
begin
write('Masukan umur : ');
readln(umur);
write('Masukan nama sekolah : ');
readln(sekolah);
writeln;
writeln('Umurku : ',umur,' tahun');
writeln('Aku Sekolah di : ',sekolah);
writeln;
readln;
end.
---------------------------------------------------------------------------------------
Program kelima;
var a,b,c:integer;
begin
a:=1;
b:=5;
Writeln('Nilai A =
',a);
writeln('Nilai B =
',b);
writeln;
{penjumlahan}
c:=a+b;
writeln('hasil
penjumlahan A+B = ',c);
writeln;
{pengurangan}
c:=b-a;
writeln('hasil
pengurangan B-A = ',c);
writeln;
{perkalian}
c:=a*b;
writeln('hasil
perkalian A*B = ',c);
writeln;
{penggunaan mod}
c:=1 mod 5;
writeln('hasil 1
mod 5 = ',c);
writeln;
c:=5 mod 1;
writeln('hasil 5
mod 1 = ',c);
readln;
end.
---------------------------------------------------------------------------------------
Program ke enam;
var a,b,c:integer:
begin
write('Masukkan
Nilai A: ');
readln(a);
write('Masukkan
Nilai B: ');
readln(b);
wrietln('========================');
{penjumlahan}
c:=a+b
writeln('hasil
penjumlahan A+B = ',c);
writeln;
{pengurangan}
c:=b-a;
writeln('hasil
pengurangan B-A = 'c);
writln;
{perkalian}
c:=a*b;
writeln(hasil
perkalian A*B = ',c);
writeln;
{pembagian}
c:=b div a;
writenl('hasil
pembagian B/A = ',c);
writeln;
{sisa bagi}
c:=a mod b;
writeln('hasil sisa
bagi = ',c);
raedln;
end.
Tugas :
Buatlah Program Untuk Konversi suhu, dengan input derajat Celsius.
Jika program dijalankan menampilkan Inputan untuk derajat celsius, dan begitu di enter
maka konversi suhu Fahrenheit, reamur dan kelvin akan muncul.
Program dibuat dengan program free pascal, dan koding/script programnya copy pastekan ke komentar dari posting ini.
Selamat mengerjakan..
Silahkan di Unduh disini :
1. File Word
2. File PowerPoint
Silahkan diunduh sebagai bahan Uji Blok Ke 3.
;;
Subscribe to:
Postingan (Atom)
