Algoritma Procedure X Y + 4 dengan Parameter

Tugas Algoritma Procedure dengan Menambahkan Fungsi Prameter Input / Output :

Contoh Soal :

Buatlah Algortima Procedure dengan Parameter Input / Output dengan Perumpamaan seperti contoh di bawah ini!

Buatlah Program yang berisi procedure yang menambahkan nilai x dan y masing dengan 4, kemudian jumlahkan nlai x dan y

Contoh Output :

Masukkan nilai :
X = 5
Y = 2

Nilai X dan Y setelah ditambah 4 :
X = 9
Y = 6

Hasil X + Y = 15

Copy Scrip Pascal berwarna Biru yang ada pada halaman ini dan Paste-kan ke dalam Notepad, kemudian Copy dari Notepad anda ke dalam Compiler Turbo Pascal dan Compile Menggunakan Alt+F9 --> OK --> Enter.

Jalankan Program dengan menekan tombol Ctrl+F9 :

Program TugasAlgoritma;
{Program di Bawah ini Adalah Tugas Algoritma X Y + 4}

Uses
    Wincrt;
Var
    A,B,C:Real;
   
Procedure Input(X,Y:Real);
Begin
    Writeln('Masukkan Nilai : ');
    Write('X = ');Read(X);
    Write('Y = ');Read(Y);
    A:=X+4;
    B:=Y+4;
    Writeln;
    Writeln('Nilai X dan Y diakhir Prosedur 4 : ');
    Writeln('X = ',A:0:0);
    Writeln('Y = ',B:0:0);
End;

Procedure Output(A,B:Real;Var C:Real);
Begin
    C:=A+B;
    Writeln;
    Writeln('Hasil Masukan X + Y = ',C:0:0);
End;
Begin
    Input(A,B);
    Output(A,B,C);
End.

Semoga bermanfaat.

Salam,



Yura Hyde Tetsu

Read More

Algoritma Function Penjumlahan Deret

Copy Scrip Pascal berwarna Biru yang ada pada halaman ini dan Paste-kan ke dalam Notepad, kemudian Copy dari Notepad anda ke dalam Compiler Turbo Pascal dan Compile Menggunakan Alt+F9 --> OK --> Enter.

Jalankan Program dengan menekan tombol Ctrl+F9 :

Program Penjumlahan_Deret;

Uses
    Wincrt;

Var
    N : integer;

Function Deret(a:integer):longint;
Var
    i : integer;
        Jumlah:longint;
Begin
    Jumlah:= 0;
    for i := 1 to a do
    Begin
        Write(i,' ');
        Jumlah:=Jumlah+i;
    End;
    Write('=');
    Deret:=Jumlah;
End;

Begin
    Write('Inputkan Nilai Deret : = ');Readln(N);
    Writeln(Deret(N):0);
End.

Semoga bermanfaat.

Salam,


Yura Hyde Tetsu

Read More

Algoritma Function Menghitung 3 Bilangan

Copy Scrip Pascal berwarna Biru yang ada pada halaman ini dan Paste-kan ke dalam Notepad, kemudian Copy dari Notepad anda ke dalam Compiler Turbo Pascal dan Compile Menggunakan Alt+F9 --> OK --> Enter.

Jalankan Program dengan menekan tombol Ctrl+F9 :

Program Menjumlahkan_Tiga_Bilangan;

Uses
    Wincrt;

Var
    Bil1,Bil2,Bil3:Integer;
    Hasil:Integer;

Function Jumlah(a,b:integer):integer;
Begin
    Jumlah:=a+b;
End;

Procedure Input;
Begin
    Write('Inputkan Bilangan 1 : ');Readln(Bil1);
    Write('Inputkan Bilangan 2 : ');Readln(Bil2);
    Write('Inputkan Bilangan 3 : ');Readln(Bil3);
End;

Begin
    Input;
    Writeln('Hasil = ',Jumlah(Jumlah(Bil1,Bil2),Bil3));
End.

Semoga bermanfaat.
Salam,



Yura Hyde Tetsu

Read More

Algoritma Procedure Luas Lingkaran

Copy Scrip Pascal berwarna Biru yang ada pada halaman ini dan Paste-kan ke dalam Notepad, kemudian Copy dari Notepad anda ke dalam Compiler Turbo Pascal dan Compile Menggunakan Alt+F9 --> OK --> Enter.

Jalankan Program dengan menekan tombol Ctrl+F9 :

Program Luas_Lingkaran;
{Program ini adalah program yang dibuat untuk menghitung luas lingkaran menggunakan Algoritma PROCEDURE}

Uses Wincrt;

Var
    r:real;
    Luas:real;

Procedure Hitung(a:real);
Begin
    Luas:=3.14*a*a;
End;

Begin
Write('Inputkan Jari-jari :');Readln(r);
Hitung(r);
Writeln('Luas Lingkaran : ',Luas:0:0);
End.

Semoga bermanfaat.
Salam,


Yura Hyde Tetsu

Read More

Algoritma Procedure Tulis Bintang

Copy Scrip Pascal berwarna Biru yang ada pada halaman ini dan Paste-kan ke dalam Notepad, kemudian Copy dari Notepad anda ke dalam Compiler Turbo Pascal dan Compile Menggunakan Alt+F9 --> OK --> Enter.

Jalankan Program dengan menekan tombol Ctrl+F9 :

Program Bintang;

Uses
    Wincrt;

Procedure TulisBintang(n:integer);
Var i:integer;

    Begin
    for i := 1 to n do
        Begin
        Write('*');
        End;
    Writeln;
End;

Begin
TulisBintang(3);
TulisBintang(4);
TulisBintang(5);
TulisBintang(6);
TulisBintang(5);
TulisBintang(4);
TulisBintang(3);
End.

Semoga bermanfaat.

Salam,


Yura Hyde Tetsu

Read More

Algoritma Procedure Pembelanjaan

Copy Scrip Pascal berwarna Biru yang ada pada halaman ini dan Paste-kan ke dalam Notepad, kemudian Copy dari Notepad anda ke dalam Compiler Turbo Pascal dan Compile Menggunakan Alt+F9 --> OK --> Enter.

Jalankan Program dengan menekan tombol Ctrl+F9 :

Program Proc_Pembelanjaan;
Uses wincrt;
Var
   Pembelanjaan, Hasil: real;
Procedure Input;
Begin
   Write('Inputkan Nominal Pembelanjaan = ');
   Readln(Pembelanjaan);
End;
Procedure Bayar(a:real);
Begin
     if a >= 100000 then
     Hasil :=a-(a*0.2)
     else
     Hasil :=a;
End;
Begin
    input;
    Bayar(Pembelanjaan);
    Writeln('Uang yang harus dibayarkan = ', Hasil:0:0);
End.

Semoga bermanfaat,,!!


Salam,,
Yura Hyde Tetsu

Read More