Selasa, 19 Juli 2011

Bahasa C : Hello World!

#include "stdio.h"
void main () {
printf("Hello World!");
}

Program diatas adalah dasar sintaks dari pemrograman bahasa C, untuk menampilkan teks ke layar dapat menggunakan perintah printf.   

Tags : Belajar Bahasa C, C Language

Contoh Program Pascal : Menghitung jumlah bilangan dan banyaknya data

Contoh program pascal untuk menghitung jumlah dari beberapa bilangan yang diinputkan beserta banyaknya data.
program JumlahRata2; 
uses wincrt;
var
n, i,byk,jum, bil : integer;
begin
Write(‘Masukkan nilai perulangan : ‘);readln(n);
Writeln;
for i := 1 to n do
begin
write(‘Bilangan ‘,i,’ = ‘);read(bil);
if bil >= 10 then
begin
byk := byk+1;
jum := jum+bil ;
end;
end;
writeln;
writeln(‘banyak bilangan yang >= 10 : ‘,byk);
writeln(‘jumlah bilangan yang >= 10 : ‘,jum);
end.

Tags: jumlah, pascal

Contoh Program Pascal : Menghitung jumlah beberapa bilangan - dinamis (Perulangan For)

 Program dibawah ini adalah contoh program untuk menghitung beberapa bilangan yang dimasukkan. Banyaknya bilangan dapat berubah-ubah sesuai inputan.

program jum_bil2; 
uses wincrt;
var
i, n: integer;
jum, bil: real;
begin
write(‘Banyak bilangan yang akan dihitung:  ’);read(n);
jum := 0;
For i:= 1 to n do
begin
write(‘Masukkan Bilangan ‘,i, ‘=’);read(bil);
jum := jum+bil;
end;
writeln(‘Jum = ‘,jum:0:2);
end.

Tags : Perulangan for, Program penjumlahan perulangan for, Dinamis

Contoh Program Pascal : Menghitung Luas dan keliling Persegi

Berikut ini adalah contoh program sederhana untuk menghitung luas dan keliling sebuah persegi dengan inputan sisi persegi.

program persegi;

uses
crt;

var
sisi : integer;
keliling, luas : real;

begin
clrscr;
write('Masukkan sisi persegi: ');
readln(sisi);
keliling := 4 * sisi;
luas := sisi * sisi;
writeln;
writeln('keliling persegi = ', keliling:0:2);
writeln('luas persegi = ', luas:0:2);
readln;
end.

Tags: Pascal, Luas keliling persegi, program pascal

Senin, 18 Juli 2011

Contoh Program Pascal : Menghitung jumlah dari 5 bilangan (for )

Ini adalah program sederhana dengan perulangan for untuk menghitung jumlah dari 5 bilangan yang dimasukkan. 
 
program jumlah_bilangan;
uses wincrt;
var
i, jum,bil: integer;
begin
jum:=0; {inisialisasi}
for i:=1 to 5 do
begin
write(‘Masukkan Bilangan = ‘);readln(bil);
jum:=jum+bil;
end;
writeln(‘Jumlah Bilangan = ‘,jum);
end.


 Tags : Pascal, Contoh program pascal, perulangan for, penjumlahan 5 bilangan.

Contoh Program Pascal : Menghitung perkalian dan penjumlahan dua bilangan

 Di bawah ini adalah contoh perogram pascal untuk menghitung 2 bilangan, yaitu perkalian dan penjumlahan.

program MenghitungPerkalianPenjumlahanDuaBuahBilangan;

uses
crt;

var
x,y : real;
kali,tambah : real;

begin
clrscr;
write('Masukkan Bilangan ke 1= ');
readln(x);
write('Masukkan Bilangan ke 2= ');
readln(y);
kali := x * y;
tambah := x + y;
writeln;
writeln('Hasil Perkalian 2 bilangan : ', x:0:0, '*', y:0:0, '= ', kali:0:0);
writeln('Hasil Penambahan 2 bilangan : ', x:0:0, '+', y:0:0, '= ', tambah:0:0);
readln;
end.

Tags : Pascal, Contoh program pascal, penjumlahan 2 bilangan, perkalian 2 bilangan,