Kamis, 03 November 2011

Contoh Program Bahasa Pascal

uses wincrt;

var
n, i : integer;
rata : real;
jum, bil : integer;

begin
writeln(‘Masukkan nilai N = ‘);readln(n);
writeln (‘Nilai N adalah= ‘,n);writeln;
for i := 1 to n do

begin
writeln(‘Masukkan bilangan : ‘);readln(bil);
jum := jum+bil;
end;
rata := jum/n;writeln;
writeln(‘Jumlahnya adalah : ‘,jum);
writeln(‘Nilai rata-ratanya :’, rata:0:2);
end.

Sabtu, 29 Oktober 2011

Contoh Program Menggunakan Bahasa C++

Source code nloop.c

#include"stdio.h"
#include"stdlib.h"
int main()
{
int a,i,x,j,b;
float rata1,total,jumlah1;
printf("berapa jumlah daftar yang anda buat? :"); scanf("%d",&a);
rata1=0;
total=0;
for(i=1;i<=a;i++)
{
jumlah1=0;
printf("\n\nDaftar ke %d\n",i);
printf("Berapa banyak item? :"); scanf("%d",&b);
for(j=1;j<=b;j++)
{
printf("x = "); scanf("%d",&x);
jumlah1+=x;
rata1=(jumlah1)/b;
}

printf("\nrata-rata %0.2f",rata1);
total+=rata1;
}
printf("\ntotal rata-ratanya %0.2f\n",total);
return 0;
}