My site

Site menu
Section categories
Definisi [0]
Turbo Pascal [4]
Statistics

Total online: 1
Guests: 1
Users: 0
Main » Articles » Artikel Komputer » Turbo Pascal

TPW 1.5
program rata_rata;
uses wincrt;
var
a:string;
nilai,total,ratarata:real;
n,i:integer;
lagi:char;
begin
     writeln('<<<<program total dan rata-rata>>>>>');
     writeln('Apakah Anda ingin tahu?(ya=y,tidak=t)');readln(a);
     if a='y' then
        lagi:='y';
        while lagi='y' do
              begin
                   clrscr;
                   write('Jumlah data?');readln(n);
                   writeln;
                   i:=0;
                   total:=0;
                   while i<n do
                         begin
                              i:=i+1;
                              write('nilai data',i,'?');readln(nilai);
                              total:=total+nilai;

                         end;
                   ratarata:=total/n;
                   writeln;
                   writeln('total nilai=',total:8:2);
                   writeln('jumlah data=',n:3);
                   writeln('rata-rata nilai=',ratarata:8:2);
        writeln;
        write('akan menghitung lagi?');readln(lagi);
        if lagi='t' then
        clrscr;
        gotoXY(30,10);writeln('terima kasih');
              end;
     if a='t' then
        clrscr;
        gotoXY(30,10);writeln('terima kasih');
end.
Category: Turbo Pascal | Added by: YahyaOteda (2009-11-15)
Views: 11251 | Rating: 0.0/0
Total comments: 0
Name *:
Email *:
Code *:
Search
Site friends
  • Create your own site
  • Tag Board

    Copyright MyCorp © 2019