TUGAS UNTUK SISWA YANG MEMILIKI NILAI KOSONG

TUGAS BERIKUT HARUS DIKERJAKAN OLEH SISWA YANG PERNAH TIDAK MASUK PELAJARAN TIK DAN MEMILIKI NILAI KOSONG DI DAFTAR NILAI.

TUGAS PALING LAMBAT DIKUMPULKAN PADA :
HARI JUMAT, 5 OKTOBER 2012 JAM 2 SIANG

KERJAKAN PADA KERTAS A4 DENGAN DI TULIS TANGAN.

Berikut ini hasil running programnya :

Sample Program IF

PROGRAM MENGHITUNG LUAS DAN KELILING :
write('Masukkan lebar   = ');
readln(l);
writeln;
writeln('PILIHAN');
writeln('1. Menghitung Luas');
writeln('2. Menghitung Keliling');
writeln('3. Menghitung Luas dan Keliling');
write('Masukkan pilihan = ');
readln(pil);
writeln;
IF pil = 1 THEN
   writeln('Maka Luas Persegi Panjang = ',p*l:0:2)
ELSE IF pil = 2 THEN
   writeln('Maka Keliling Persegi Panjang = ',2*(p+l):0:2)
ELSE IF pil = 3 THEN
 BEGIN
   writeln('Maka :');
   writeln('Luas Persegi Panjang     = ',p*l:0:2);
   writeln('Keliling Persegi Panjang = ',2*(p+l):0:2);
 END
ELSE
   writeln('Pilihan yang Anda masukkan salah!');
readln;
End.



PROGRAM KONVERSI NILAI :
PROGRAM IFXE;
USES crt;
VAR
   huruf:char;
   nilai:integer;
BEGIN
clrscr;
   writeln('PROGRAM KONVERSI ANGKA KE HURUF');
   writeln('-------------------------------');
   writeln('1. Nilai >=90 = A');
   writeln('2. Nilai >=80 = B');
   writeln('3. Nilai >=70 = C');
   writeln('4. Nilai >=60 = D');
   writeln('5. Nilai < 60 = E');
   writeln('-----------------');
   write('Masukkan nilai angka : ');readln(nilai);
   IF nilai > 89 THEN
      huruf:='A'
   ELSE IF nilai > 79 THEN
      huruf:='B'
   ELSE IF nilai > 69 THEN
      huruf:='C'
   ELSE IF nilai > 59 THEN
      huruf:='D'
   ELSE
      huruf:='E';
   writeln;
   writeln('Maka,');
   writeln('Nilai angka = ',nilai);
   writeln('Nilai huruf = ',huruf);
readln;
END.

Kunci Latihan Biner

1. 88
2. 235
3. 66
4. 223
5. 182 / 246

TABEL ASCII

TABEL ASCII DESIMAL ke KARAKTER

MET LEBARAN 2012....Mohon maaf kalo ada salah kata dan perbuatan...minal aidin wal faidzin..mohon maaf lahir batin...

BAB 1 FLOWCHART

TABEL SIMBOL FLOWCHART