Contoh Script untuk pengulangan kata dgn “While Do”
Uses wincrt;
var
Nilai,Total,rata_rata:real;
i:integer;
lagi:char;
begin
Clrscr;
Writeln(‘ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!’);
Writeln(‘ * www.cbn.net.id *’);
Writeln(‘ * internet@your.fingertips *’);
Writeln(‘ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!’);
Writeln(‘ —o0 Quiz For Development Officer 0o—’);
Writeln(‘ <<>>’);
Writeln(‘ 1.Broadband ‘);
Writeln(‘ 2.Dial up’);
Writeln(‘ 3.Dedicated Lan’);
Writeln(‘ 4.Wireless’);
Writeln(‘ 5.Data Center’);
i:=0;
nilai:=0;
Total:=0;
lagi:=’Y';
While (lagi=’Y') or (lagi=’y')do
begin
i:=i+1;Writeln;
Write(‘ Enter Your Matching Number ‘,i,’?');readln(nilai);
total:=total+nilai;
Write(‘ Do You Want Matching Again Y/N =’);readln(lagi);
end;
writeln;
Writeln(‘ Value For Your Opinion =’,total:5:2);
Writeln(‘ Total Your Matching Was Enter =’,i);
Writeln(‘ Average Value For You =’,total/i:5:2);
Writeln(‘ www.m-r1zq.co.nr@copyright2007 ‘);
Writeln(‘ o0————–o0o————–0o’);
end.
- Follow us on Twitter, or subscribe to the rizqtech RSS Feed for more daily web development and articles.
Enjoy this Post!
