Tugas Ke-6 Pascal

soal 2 uses crt; var  i,j,k : byte;begin  clrscr;  write('Masukan angka = '); readln(k);  for i := k downto 1 do    begin      textcolor(j);      for j := i downto 1 do       write(j,' ');       writeln;    end;    readln;end. soal 3 uses crt; var  i,j,k,l,m : byte;begin  clrscr;  write('Masukan Jumlah Ayam (10) = '); readln(j);  writeln;  textcolor(j);  repeat    i:=j-1;    writeln('10 ayam mati 1 tinggal',' ',i);  until i<10;  repeat   k:=i-2;    writeln('9  ayam mati 2 tinggal',' ',k);  until k<9...

Read more »

Mendesain blogger: Cara meletakkan Background Gambar Di Belakang Tuli...

Mendesain blogger: Cara meletakkan Background Gambar Di Belakang Tuli...: Nah anda bisa lihat bukan pada artikel atau post kali ini,saya akan menerangkan cara memasukan foto kita sendiri kedalam belakang tulisan po...

Read more »

Mendesain blogger: Mendesain Blogger

Mendesain blogger: Mendesain Blogger: Disini Saya akan menjelaskan semua apa saja untuk dapat mempercantik blog anda dengan cara mendesainnya sendiri. Bagi Anda yang telah m...

Read more »

Cara memasang jam dan kalender di blog

Cara memasang jam dan kalender di b...

Read more »

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 »