teknik informatika

PROCEDURE  PASCAL

CARA MEMBUAT APLIKASI PROCEDUR PADA FREE PASCAL

Langkah-langkah  Menjalankan Aplikasi Free Pascal :

1.     Klik kanan pada aplikasi Free Pascal

2.     Klik Run Administrator

Setelah aplikasi  nya terbuka klik File Klik new.

Aplikasi yang saya buat ini adalah mencari volum kubus.

Kemudian masukan rumus seperti dibawah ini ;

Listining pascal :

Uses crt;

Procedure kubus;

Var

Vkubus,s : integer;

Begin

            Clrscr;

            Write(‘masukan sisi:’);readln(s);

            Vkubus:=s*s*s;

            Writeln;

            Writeln(‘Volume kubus=’,Vkubus);

Readln;

End;

Procedure limas;

Var

Vlimas,p,l,t:integer;

Begin

            Clrscr;

            Write(‘masukan panjang:’);readln(p);

            Write(‘masukan lebar:’);readln(l);

            Write(‘masukan tinggi:’);readln(t);

            Vlimas :=p*l*t;

            Writeln;

End;

Procedure menu;

Var

Pil:byte;

Begin

Repeat

            Clrscr;

Textcolor(LighGreen);

            Writeln(‘^_^ Menu Kubus’);

Writeln(‘1. Volum kubus’);

Writeln(‘2. Volom limas’);

Writeln(‘3.Keluar;’);

Writeln(‘Pilih:’);readln(pil);

Case pil of

1:kubus;

2:limas;

3:end;

Until pil>=3;

Readln;

End;

Begin

Menu;

End.

Contohnya bisa dilihat melalui gambar dibawah ini :

Input ;

Setelah dicek dan tidak ada eror tekan Ctrl+F9 untuk menampilkan program output  dibawah ini.

Didalam gambar dibawah ini saya membuat aplikasi procedure untuk memilih menu, dan saya memili 1.

Setelah itu tekan “ENTER” untuk memunculkan rumus volume kubus tersebut.

Dibawah ini saya memasukan rumus sisi nya 3.

Dan pada gambar dibawah ini mendapatkan hasil  Volume kubus=27.

PROCEDURE   C++

CARA MEMBUAT APLIKASI FUNGSI PROCEDURE PADA C++

Langkah-langkah Menjalankan Aplikasi C++ :

1.      Klik kanan pada aplikasi C++

2.      Klik Run Administrator

Setelah aplikasi nya terbuka klik File new.

Aplikasi yang saya buat ini adalah mencari hasil persegi F.

Kemudian masukan rumus seperti dibawah ini ;

Listining pascal :

#include<iostream.h>

#include<conio.h>

Void persegi (double m, double a);

Void main()

{

Double m,a;

            Cout<<”Panjang :”;cin>>m;

            Cout<<”Lebar :”;cin>>a;

            Cout<<”F:”;

            Persegi (m,a);

Getch();

}

Void persegi (double m, double a);

{

            Double hasil;

            Hasil=m*a;

            Cout<<hasil;

}

Contohnya bisa dilihat melalui gambar dibawah ini :

Input ;

Setelah dicek dan tidak ada eror tekan Ctrl+F9 untuk menampilkan out put dibawah ini.

Didalam gambar dibawah ini saya membuat aplikasi procedure untuk memasukan panjang=12 dan lebar nya= 8.

Setelah itu tekan “ENTER” untuk mencari hasil persegi F tersebut.

Dan pada gambar dibawah ini mendapatkan hasil persegi F nya=96.

FUNGSI  PASCAL

CARA MEMBUAT APLIKASI FUNGSI PADA FREE FASCAL

Langkah-langkah Menjalankan Aplikasi Free Pascal :

1.      Klik kanan pada aplikasi Free Pascal

2.      Klik Run Administrator

Setelah aplikasi nya terbuka klik File Klik new.

Aplikasi yang saya buat ini adalah mencari bilangan terkecil.

Kemudian masukan rumus seperti dibawah ini ;

Listining pascal :

Proram fungsi;

Uses crt;

Function besar(x,y:integer): integer;

Begin

If x>y then

Besar:=x

Else

Besar:=y

End;

Var

            x,y: integer;

begin

            clrscr;

            write(‘bilangan besar  2=’);readln(x);

            writeln;

            write(‘bilangan kecil 1=’);readln(y);

            writeln;

            write(‘bilangan terkecil=’,besar(x,y):10);

            readln;

end.

Contohnya bisa dilihat melalui gambar dibawah ini :

Input ;

Setelah dicetak tidak ada error  tekan Ctrl+F9 untuk menampilkan program output  dibawah ini.

Didalam gambar ini saya membuat aplikasi fungsi untuk memasukan bilangan besar 24 dan bilangan kecil nya 18.

 

Setelah itu tekan “ENTER” untuk mencari hasil bilangan terkecil nya tersebut.

Dan pada gambar dibawah ini mendapatkan hasil bilangan terkecilnya 24.

Out put ;

FUNGSI  C++

CARA MEMBUAT APLIKASI FUNGSI PADA C++

Langkah-langkah Menjalankan Aplikasi C++ :

1.      Klik kanan pada aplikasi C++

2.      Klik Run Administrator

Setelah aplikasi nya terbuka klik File new.

Aplikasi yang saya buat ini adalah mencari volume tabung.

Kemudian masukan rumus seperti dibawah ini ;

Listining pascal :

#include<iostream.h>

#include<conio.h>

Foat subtraction (int r, int t)

{

Float v_tabung,phi;

Phi=3.14:

V_tabung=phi*(r*r)*t;

Return(v_tabung);

}

Float main()

{

Clrscr()

Float r2,t2,v_tabung2;

Cout<<“masukan jari-jari : “;

Cin>>r2;

Cout<<”masukan tinggi     : “;

Cin>>t2;

V_tabung2=subtraction(r2,t2);

Cout<<”volume tabung          : “v_tabung2;

Getch();

}

Contohnya bisa dilihat melalui gambar dibawah ini :

Input ;

Setelah dicek dan tidak ada eror tekan Ctrl+F9 untuk menampilkan program output dibawah ini.

Didalam gambar dibawah ini saya membuat aplikasi fungsi untuk memasukan jari-jari 10 dan tinggi nya 10.

Setelah itu tekan “ENTER” untuk mencari hasil volume tabung tersebut.

Dan pada gambar dibawah ini mendapatkan hasil volume tabung=3140.