pascal

Listing:
 uses crt;
 var i,n:integer;
 p,l:real;
 procedure hitungLuaspersegipanjang(panjang,lebar:real);
 var luas:real;
begin luas:=panjang*lebar;
 writeln('luas persegi panjang=',luas:3:2);
writeln('------------------------------------------------');
 end;
 begin
 clrscr;
 writeln('=================================================');
writeln('------- PRGRAM LUAS PERSEGI PANJANG -----------'); writeln('_________________________________________________');
 write ('berapa banyak persegi panjang yang ingin dihitung?');
readln(n); for i:=1 to n do begin write(' berapa panjangnya ?');
 readln(p); write('berapa lebarnya?');
 readln(l); hitungluaspersegipanjang(p,l);
 end;
 readln;
 end.

Setelah semua data terbaca dan dijalan kan oleh program data berakhir.

Output :

sebagai contoh kita ingin menghitung 3 buah persegi panjang , dengan masing­-masing,

1.      Panjang = 2

Lebar     = 3

2.      Panjang =5

Lebar     =3

3.      Panjang =4

Lebar     =5

Maka hasil output sebagai berikut:

C++

Listing:

#include <conio.h>

#include <iostream.h>

void kcptan(float jarak,float waktu)

{

float kecepatan ;

kecepatan = jarak/waktu;

cout << "kecepatannya adalah  : " << kecepatan << endl ;

}

void main() {

float jarak, waktu;

float kecepatan ;

cout << "============================"<<endl;

cout << "PROGRAM MENGHITUNG KECEPATAN "<< endl ;

cout << "============================"<< endl << endl ;

cout << "Masukkan jarak (meter) : " ; cin >> jarak ;

cout << "Masukkan waktu (detik) : " ; cin >> waktu ;

cout << "____________________________\n" ;

kcptan(jarak,waktu);

getch(); }

penjelasan :

#include <conio.h>

#include <iostream.h>

Berfungsi sebagai kepala program,  juga sebagai pemberi tahu kepada computer bahwa program akan menggunakan file-fil e yang akan dipakai dan di daftarkan.

void kcptan(float jarak,float waktu)

berfungsi sebagai tipe output, mendeklarasikan variable yang akan dijadikan operator.

{

float kecepatan ;

kecepatan = jarak/waktu;

cout << "kecepatannya adalah  : " << kecepatan << endl ;

}

Merupakan prosedur yang memuat rumusan tentang kecepatan.

void main()

berfungsi sebagai tipe output, mendeklarasikan variable yang akan dijadikan operator.

{

float jarak, waktu;

float kecepatan ;

float berfungsi sebagai tipe data angka yg berkoma.kadang bisa jga dipanggil menggunakan %f.

cout << "============================"<<endl;

cout << "PROGRAM MENGHITUNG KECEPATAN "<< endl ;

cout << "============================"<< endl << endl ;

cout << "Masukkan jarak (meter) : " ; cin >> jarak ;

cout << "Masukkan waktu (detik) : " ; cin >> waktu ;

cout << "____________________________\n" ;

Pada baris-baris ini,Count berfungsi sebagai output, berfunsi untuk menampilkan tulisan yang ada pada dalam tanda kurung petik (“ ”), yang akan ditampilkan pada output program nantinya.

kcptan(jarak,waktu);

berfungsi menghubungkan dengan prosedur rumus.

getch(); }

program selesai.

Output:

Semisalkan kita mencari kecepatan, dengan memasukan jarak 1500 m dan dalam waktu 30 detik.