Album Keluarga
Contoh Program Menggunakan Free Pascal Untuk Kelas X
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.
0 Comments:
Subscribe to:
Posting Komentar (Atom)
