Kegiatan Sabtu Bersih



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:

Post a Comment