PROGRAM PASCAL MENGHITUNG KECEPATAN RATA-RATA MOTOR

Listing program :

uses wincrt;
var
n, i : integer;
rata : real;
jum, bil : integer;
begin 
Write(‘Masukkan jumlah motor = ‘);readln(n);
writeln (‘jumlah motor adalah= ‘,n);writeln;
for i := 1 to n do
begin
write(‘Masukkan kecepatan : ‘);read(bil);
jum := jum+bil;
end;
rata := jum/n;writeln;
writeln(‘nilai keseluruhan kecepatan adalah : ‘,jum);
writeln(‘Nilai rata-rata kecepatan adalah :’, rata:0:2);
end.

penjelasan :

untung menjalan kan program ini di gunakan penjelasan integer yang di berfungsi untuk perhitungan dalam program . 
listing program Begin digunakan untuk memulai program yang akan di jalankan, sehingga pascal akan memulai proses perhitungan. kemudian di masukkan write dan writeln untuk mencetak nama yang akan di gunakan dalam proses output.
kata For disini digunakan untuk menentukan nilai yang akan digunakan untuk N
kemudian digunakan lagi kata begin untung mengulang memulai proses perhitugan dalam pascal.
jum , adalah rumus yg akan digunakan dalam pascal.
kemudian di tuliskan end yg akan menghentikan perhitunan dalam program pascal.

OUTPUT PROGRAM :

Masukkan jumlah motor = 3 

jumlah motor adalah= 3
Masukkan kecepatan: 1200
Masukkan kecepatan: 1350
Masukkan kecepatan: 1050
Jumlahnya adalah : 3600
Nilai rata-rata kecepatan adalah : 1200

FLOWCHART :

PENJELASAN :

flowchart dalam flowchart dalam program ini cukup sederhana kana hanya menggunakan sedikit bahasa pemrograman , 

START : Awal permulaan unung memulai program. 

INPUT 1: Selanjutnya input adalah saat pemasukkan nilai yang ingin di proses ke dalam program.input pertama ditujukan untuk memasukan nilai jumlah motor yang sedang di uji 

INPUT 2: Dalam input ini dimaksudkan untuk memasukkan nilai yg ingin di proses

INPUT 3:Dalam input ini dimaksudkan untuk memasukkan nilai yg ingin di proses. input ini sama seperti input no 2

PROSES: flowchart ini menunjukkan program akan memproses nilai2 yang sudah di masukkan ke dalam program menggunakan rumus yang sudah di buat

STOP : program berhenti berjalan . karena sudah selesai dalam prosesnya

Listing Program Pascal : Packing Barang Otomatis

USES CRT ;
FUNCTION COUNTER (X:INTEGER):INTEGER;
BEGIN

COUNTER ;=X+1;
END;

VAR
Y:INTEGER;
BEGIN
CLRSCR;

WRITELN ('Jumlah barang yang ingin di pack = ',COUNTER(Y));
READLN;

END.

Penjelasan Listing Program diatas :


"FUNCTION COUNTER (X:INTEGER):INTEGER;
BEGIN

COUNTER ;=X+1;
END;"

 Bagian yang diatas merupakan subprogram utama. Pada bagian ini dideklarasikan judul function dan variabel yang akan digunakan dalam rumus function. Judul function yang digunakan adalah “Counter” dan variabel yang digunakan dalam rumus function-nya adalah “X”.


"CLRSCR;

WRITELN ('Jumlah barang yang ingin di pack = ',COUNTER(Y));
READLN;

END."

 Bagian ini adalah program utama. Perintah CLRSCR jarang digunakan pada satu program dalam satu file. Perintah ini biasa dipakai pada program yang membutuhkan beberapa output dengan cara membersihkan tampilan setelah output pertama selesai dibuat, sehingga output berikutnya dapat dibuat. Begitu seterusnya. Sedangkan perintah WRITELN dipakai untuk mencetak karakter yang terdapat dalam tanda petik.
Secara sederhana, program di atas dapat dituliskan dalam bentuk flowchart sebagai berikut:

Rangkaian Flowchart : packing barang otomatis

 penjelasan:

start     : untuk memulai program flowchart

read n  : adalah jumlah barang yang dimasukan dalam mesin agar tidak kelebihan jumlah barang

menghitung jumlah : adalah proses dimana alat mulai menghitung jumlah barang

memulai pemasukan : alat memulai memasukan barang ke packing 

kemudian alat loop jika barang kelebihan jumlah maka akan kembali ke proses penghitungan barang

stop : untuk menghentikan program flowchart