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;

TUGAS PASCAL

TUGAS  UNTUK ANAK-ANAKU KELAS X.ICT 

Anak-anak…. Perhatikan contoh program penambahan di bawah ini, kemudian kalian coba buka pascal dan tulis programnya. Setelah selesai jalankan, dan isikan apa yang diminta.

Program tambah;

Uses crt;

Var

a,b:integer;

Hasil:integer;

Begin

   Clrscr;

   Write(‘Masukkan angka pertama : ’); readln(a);

   Write(‘Masukkan angka kedua     : ’);readln(b);

   Hasil:=a+b;

   Write(‘Hasil penambahan adalah : ‘,hasil);

   Readln;

End