PENGGUNAAN ARRAY PADA PROGRAM C++

Listingnya..

#include<iostream.h>
    #include<conio.h>
    #include<stdio.h>
    main()
    {
          float suhu[5];
       float total=0;
        clrscr();
       cout<<"Masukan Data Suhu "<<endl<<endl;
       for (int i=0;i<5;i++)
           {
              cout<<"Suhu Ke : "<<(i+1)<<" = ";
                 cin>>suhu [i];
                 total+=suhu [i];
          }
          cout<<endl;
          cout<<"Suhu rata-rata "<<total/5<<endl;
          getch();
     }

Dan Outputnya ..

PENGGUNAAN ARRAY PADA PROGRAM PASCAL

Listing program

uses crt;
var
a:array [1..3] of integer;
k,l:integer;
begin
clrscr;
for k:=1 to 3 do
begin

writeln('Masukkan Angka:'); readln (a[k]);
end;
for k:= 1 to 3 do
begin
l:= l + a[k];
end;
writeln('Jumlah dari Semua Angka: ',l);
readln;
end.

FUNCTION DALAM C++

  //Menghitung Gaya
#include<iostream.h>
#include<conio.h>

void gaya(double m, double a); //prototype function

void main()    //main function
{
  double m,a;
  cout<<"Massa      : "; cin>>m;
  cout<<"percepatan : "; cin>>a;
  cout<<"F : ";
  gaya(m,a);     //parameter aktual
  getch();
}

void gaya(double m, double a)   //function definition
{
 double hasil;
 hasil=m*a;
 cout<<hasil;
}

Compile Hasilnya menjadi :

FUNCTION DALAM PASCAL

program septi_pascal;
uses crt;

function luassegitiga(alas: integer; tinggi:integer) : real;
var luas:real;
begin
clrscr;
luas:= alas*tinggi/2;
luassegitiga:= luas;
end;


var a,t:integer;
luas : real;

begin
clrscr;
writeln('-======Program Fungsi Luas segitiga======-');
writeln;
write('masukkan nilai alas : '); readln(a);
write('masukkan nilai tinggi : '); readln(t);

write('luas segitiga adalah : ', luassegitiga(a,t):0:2);
readkey;

end.

Compile hasilnya menjadi :

MENGGUNAKAN PROCEDURE SEKALIGUS FUNGSI DALAM C++

#include <stdio.h>
#include <iostream.h>
#include <conio.h>
void Hitung_Luas(float jari,float phi);
void Hitung_Keliling(float jari,float phi);
float Hitung_Luasling(float jari,float phi);
float Hitung_Keling(float jari,float phi);
main ()
{
    cout<<"Program Luas dan Keliling Lingkaran"<<endl<<endl;
    float jari; float phi= 3.14;
    printf("Masukkan Jari-Jari= "); scanf("%f",&jari,"n");printf;
    cout<<"=================================="<<endl;printf;
    cout<<"Fungsi dan Prosedur Luas Lingkaran"<<endl;printf;
    Hitung_Luas(jari,phi);
    printf("n");
    printf("Luas dengan Fungsi =%.2f",Hitung_Luasling(jari,phi));printf("n");
    printf("==================================");printf;printf("n");printf;
    cout<<"   ^_^www.Tri septi purnama sari.com^_^"<<endl;printf;
    cout<<"=================================="<<endl;printf;
    cout<<"Fungsi dan Prosedur Keliling Lingkaran"<<endl;printf;
    Hitung_Keliling(jari,phi) ; printf("n");
    printf("Keliling dengan Fungsi = %.2f",Hitung_Keling(jari,phi));
    return(jari,phi);

}

void Hitung_Luas(float jari,float phi)
{
    float luas;
    luas=phi*jari*jari;
    printf("Luas dengan Procedure=%.2f",luas);

}
void Hitung_Keliling(float jari,float phi)
{
    float keliling;
    keliling=2*phi*jari;
    printf("Keliling dengan Procedure =%.2f",keliling);

}
float Hitung_Luasling(float jari,float phi)
{
    float luas;
    luas=phi*jari*jari;
    return(luas);
}
float Hitung_Keling(float jari,float phi)
{
    float keliling;
    keliling=2*phi*jari;
    return(keliling);
}

Di compile menjadi seperti di bawah ini!

PROCEDURE PASCAL

 program septi_pascal;

    uses crt;

    procedure inputnama (var nm:string);
    begin
    clrscr;
    write('Masukkan Nama Anda ');
    readln(nm);
    end;

    procedure tampilnama (nm:string);
    begin
    write('Haloo Selamat Bergabung!! ',nm);
    end;


    var nama:string;
    begin
    writeln('-======Program Procedure Input Nama======-');
    inputnama(nama);
    tampilnama(nama);
    readkey;

    end.

compile file menjadi dibawah ini !