Contoh Script program pascal bagi pemula

Okee..

kali ini saya akan memberikan scriptnya program turbo pascal.
sebelumnya kalian harus mendownload dulu TURBO PASCAL karena script ini menggunakan TUBRBO PASCAL.

anda harus punya TURBO PASCAL. Oke langsung saja ini scriptnya :)

Program Menghitung_Rata_Rata;
Uses Wincrt;
Var n,x,i,tot:integer;
rata:real;
Begin
Writeln('Program Menghitung Rata-Rata');
Writeln('============================');
Writeln;
Write('Masukkan Jumlah Bilangan: ');readln(n);
Writeln;
Writeln('Masukkan Bilangan: ');
tot:=0;
For i:= 1 to n do
Begin
Readln(x);
tot:=tot+x;
End;
rata:=tot/n;
Writeln;
Writeln('Total Bilangan: ',tot:6);
Writeln('Rata-Rata : ',rata:6:2);
End.



anda masukkan script tersebut di turbo pascal.
Setelah itu klik COMPILE.

jaki anda ingin menjalankan, tinggal klik RUN
jika anda ingin menyimpaannya, klik FILE -> SAVE AS.

program tersebut sudah tersimpan di Local disk (C) -> TPW