Tugas 5

program percabangan;uses crt;varnim,nama,kls: string;n : byte;begin   textbackground(blue);   clrscr;   textcolor(yellow);   writeln('*================================*');   writeln('|=====Input Data Nilai Ujian=====|');   writeln('*================================*');   writeln;   write('NIM           = '); readln(nim);   write('Nama          = '); readln(nama);   write('Kelas         = '); readln(kls);   write('Masukan Nilai = '); readln(n);   writeln;   if n>=90 then     write('Nilai Anda   ...

Read more »

Tugas 4

program biodata;uses crt;var  a,b:string;  c,d:integer;begin  textbackground(11); {background colour}  clrscr;  textbackground(96);  textcolor(128);  writeln('-----------------------------------');  writeln('-------- BIODATA MAHASISWA --------');  writeln('-----------------------------------');  writeln;  write('NIM         = '); readln(a);  write('Nama        = '); readln(b);  write('Tahun Lahir = '); readln(c);  d:=2012 - c;  writeln('Umur Anda   = ',d,' ','tahun'); readln;  writeln;  writeln('Tugas Ke-4,i,12012739,Misbahul Munir');  readln;e...

Read more »

Tugas 3

1. Luas Balok program luas_balok;uses crt;varluas,p,l,t : integer;begin   clrscr;   writeln('---------------------------------------');   writeln('-----Program Menghitung Luas Balok-----');   writeln('---------------------------------------');   writeln;   write('Masukan Nilai panjang   = '); readln(p);   write('Masukan Nilai lebar     = '); readln(l);   write('Masukan Nilai Tinggi    = '); readln(t);   luas:=2*(p*l)+(p*t)+(l*t);   writeln('Luas Balok             = ',luas);   writeln;   write('Tugas 3, Misbahul Munir, Kelas i');   readln;end. 2. Luas Segitiga program...

Read more »

Tugas 2

v\:* {behavior:url(#default#VML);} o\:* {behavior:url(#default#VML);} w\:* {behavior:url(#default#VML);} .shape {behavior:url(#default#VML);} Normal 0 false false false false IN X-NONE X-NONE /*...

Read more »