Setelah beberapa postingan tentang pascal kali ini saya akan posting kembali tentang pascal juga tentunya dan barangkali semoga bisa membanti dan bermanfaat buat teman-teman sekalian. Mohon maaf sebelumnya karena programnya saya masih menggunakan program dasar saja karena saya juga masih pemula dalam hal pascal. Berikut kodenya :
uses wincrt;
var a,i,data,nilai,total:integer;
rata2:real;
lagi:char;
BEGIN
lagi:='Y';
while lagi='Y' DO
begin
clrscr;
writeln('Menghitung Nilai Rata-Rata');
writeln('==========================');
writeln;
writeln('======================================');
write('Masukan jumlah data nilai ada berapa ? ');readln(data);
writeln('======================================');
total:=0;
i:=0;
while i<data do
begin
i:=i+1;
writeln('========================================');
write('Nilai data ke ',i,' = ');readln(nilai);
total:=total+nilai;
writeln('========================================');
end;
rata2:=total/data;
writeln;
writeln('Total Nilai = ',total);
writeln('Jumlah data = ',data);
writeln('Rata-Rata nilai = ',rata2:0:2);
writeln;
writeln;
writeln;
writeln('apakah anda ingin menghitung lagi (Y/T > huruf kapital) ??');readln(lagi);
end;end.
Sepertinya programnya panjang ya ?? tapi sebenarnya tidak juga setelah anda salin di program pascal anda. Jika terjadi kesalahan atau tidak terjadi kesalahan tetap tinggalkan komentar anda juga yaa ! Terima kasiih.
wah belajar bahasa pemrograman. ane dulu pernah kuliah di teknik elektro, pernah belajar yang C++. sedangkan pascal belum pernah sama sekali. mantab infonya gan :)
BalasHapuskalo saya malahan belum pernah belajar c++ secara formal.
Hapussaya masih belajar c++ secara otodidak saja lewat tutorial yang tersedia. maka dari itu saya belum bisa utk berbagi info mengenai c++ walaupun bisa sedikit-sedikit :)
kalo saya dulu hanya belajar yg Basic, tapi sekarang sudah lupa, cuman bisa user komputer.
BalasHapusyaa apapun itu yang namanya ilmu pastilah ada manfaatnya gan :)
Hapusthanks, sangat bermanfaat
BalasHapus