PROGAM PASCAL

ERIK A PRATAMA (10409741)

31B02A

Masalah :

                1.Mengatasi tegangan listrik kecil yang berada pada body computer.(M1)

                2.Saklar otomatis yang di pakai oleh saebuah GENSET.(M2)

Solusi:

                1.sambung  ground dengan memberikan kabel pada salah  satu sekrup yang menempel pada     body computer lalu menyambungkanya ke tanah.(S1)

                2.saklarnya adalah sebuah magnetic contactor antara NO dan NC.(S2)

Listing progam

Uses crt;

Var

M1,S1:real ;

Begin

Clrscr;

Writeln(*progam mengatasi masalah dengan pilihan solusi*)

Writeln(*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*)

Writeln;

Write(‘masukan masalah yang di maksud;’);readln  (M1);

S1:=M1;

S2:=M2;

Writeln(‘jadi solusinya adalah ‘,S1);

Readln;

End

Kesimpulan:

-jadi data yang kita masukan yaitu masalah M1 atau M2,setelah kita memasukan data M1 maka S1 lah yang akan muncul yaitu solusi 1

Karena data yang berkaitannya adalah (S1:=M1;).