hehehehe...
maklum Saya malas ngetik. hehehehe
langsung saja Saya akan sharing tentang pembelajaran Program Bahasa Pascal
materi yang harus kita ketahui yaitu Statemen Case
diantaranya adalah Case ... Of
Case ... Of adalah pemecahan dari If bertingkat.
jadi kalau kata Saya sih... lebih mudah menggunakan dan ringkas Case ... Of dari pada menggunakan If,
jadi kalau fersi Saya sih... Case ... Of itu rangkuman program untuk menyelesaikan logika If yang bertingkat.
Dengan menggunakan Case ... Of kita mendapatkan keuntungan, yaitu penulisan program lebih sedikit dan ringkas.
langsung di cek.
Membuat Program Penghitung Tegangan Arus dan Tahanan
Dalam pembuatan program pascal Kita membutuhkan compiler berupa Free Pascal Compiler
Jika Anda belum memilikinya Anda bisa Download di Web Site Free Pascal Compiler. sofware ini gratis...
dan ukuran Setupnya kecil. suport di Windows 7, 8, 8.1.
Langkah pertama
- Buka Software Compiler ( Free Pascal ) dengan cara double click Shortcutnya di Desktop.
jika tidak ada di desktop bisa diakses melalui start
 |
| Icon FPC |
- Akan keluar tampilan FPC. Pilih file lalu New untuk membuka lembar Project baru. Lalu pilih file > New untuk membuka Jendela Project baru.
 |
| New Pasca |
- Save Jendela Project di directory Anda.
 |
| Save Pascal on Directory |
- Ketik atau copy paste Text dibawah ini di lembar Project
Jika di copy paste, pilih edit > paste from windows
program VIR;
uses crt;
Label S;
var
v, i ,r : real;
pilihan : integer;
jawaban : char;
begin
S:
textbackground(4);
textcolor(15);
clrscr;
writeln('PROGRAM MENGHITUNG VIR');
write('======================');
write(' input E to Exit');
writeln('Menu :');
writeln('1. Menghitung V');
writeln('2. Menghitung I');
writeln('3. Menghitung R');
write('Masukan pilihan program : '); readln(pilihan);
case pilihan of
1 : begin
writeln('Masukan I:'); readln(I);
writeln('Masukan R:'); readln(R);
V:=I*R;
writeln('Hasilnya adalah : ',V:5:2);
end;
2 : begin
writeln('Masukan V:'); readln(V);
writeln('Masukan R:'); readln(R);
I:=V/R;
writeln('Hasilnya adalah : ',I:2:5);
end;
3 : begin
writeln('Masukan V:'); readln(V);
writeln('Masukan I:'); readln(I);
R:=V/I;
writeln('Hasilnya adalah : ',R:5:2);
end;
else
begin
writeln('EROR');
end;
end;
writeln('Menghitung lagi...?');
writeln('yes (Y) or no (N) '); readln(jawaban);
if (jawaban='Y') or (jawaban='y') then goto S;
end.
langkah selanjutnya dapat dilihat di part 2 :D
ConversionConversion EmoticonEmoticon