TUGAS PASCAL UNTUK KELAS X.ICT TANGGAL 13 SEPTEMBER 2012

 Anak-anakku kelas X.ICT perhatikan contoh program 'menghitung luas dan keliling lingkaran', coba anda tulis program di bawah ini dengan PASCAL dan simpan dengan nama LINGKAR.
Setelah itu jalankan dengan tombol Ctrl+F9.

Program HITUNG_LUAS_KELILING_LINGKARAN;

const phi = 3.14;
var r : Integer;
K, L : real;
none : Integer;



begin
      write ('masukan jari-jari : ');
      write (' ');
      read (r);
      L: = phi*r*r;
      K: = 2*phi*r;
      write (' ');
      write ('luas lingkaran       : '), L:5:2);
      write ('keliling lingkaran   : '), K:5:2);
      read (none)
end.


Nah kalau sudah selesai dan benar, sekarang buatlah program untuk mencari LUAS SEGITIGA, cobalah di laptop kalian. Jika selesai jalankan dan apabila sudah benar salinlah programnya ke kertas (tulis nama, absen) dan kumpulkan di meja saya.