Album Keluarga



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 Pemrograman Pascal

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..

Bahan Pemrograman Pascal

Silahkan di Unduh disini :
1. File Word
2. File PowerPoint

Silahkan diunduh sebagai bahan Uji Blok Ke 3.

;;