Prog-Hitung

19.18 |

Program perhitungan :
Berikut beberapa program perhitungan dengan PASCAL :

1. Program menghitung hambatan seri dan paralel

programseriparalel;
uses crt;
var R1,R2,R3,Rp : real;
    pilih : integer;
begin
clrscr;
writeln('****************************');
writeln('PROGRAM MENGHITUNG HAMBATAN');
writeln('****************************');
write('Masukan nilai hambatan R1 : '); Readln(R1);
write('Masukan nilai hambatan R2 : '); Readln(R2);
write('Masukan nilai hambatan R3 : '); Readln(R3);
writeln('Kode Pilihan : ');
writeln('1 - Serial      2 - Paralel');
write('Masukan kode pilihan : '); Readln(pilih);
if pilih = 1 then Rp := R1+R2+R3 else Rp := (1/R1)+(1/R2)+(1/R3);
writeln('Total Hambatan : ',Rp:3:1);
readkey;
end.

2. Program bermain tebak angka :

program tebakangka;
uses crt;
var angka, tebak, coba, ulang : integer;
begin
clrscr;
randomize;
writeln('*******************');
writeln('PROGRAM TEBAK ANGKA');
writeln('*******************');
angka := random(100);
write('Masukan berapa kali Anda menebak : '); Readln(tebak);
for ulang := 1 to tebak do begin
      write('Masukan angka tebakan : '); Readln(coba);
      if coba = angka then writeln('Hebat tebakan Anda benar');
      if coba < angka then writeln('Masih kurang');
      if coba > angka then writeln('Kebesaran');
      if tebak-ulang = 1 then writeln('selisih angka : ',abs(coba-angka));
end;
readkey;
end.

3. Program mengurutkan 5 bilangan tanpa array : (ini program latihan if)

program urutangka;
uses crt;
var a,b,c,d,e,t : integer;
    pilih : char;
begin
clrscr;
writeln('**************************');
writeln('PROGRAM MENGURUTKAN ANGKA');
writeln('**************************');
write('Masukan 5 buah angka secara acak : '); readln(a,b,c,d,e);
write('Masukan cara pengurutan A - Ascending atau D - Descending : '); readln(pilih);
if pilih ='A' then begin
     if a > b then begin t:=a; a:=b; b:=t; end;
     if a > c then begin t:=a; a:=c; c:=t; end;
     if a > d then begin t:=a; a:=d; d:=t; end;
     if a > e then begin t:=a; a:=e; e:=t; end;

     if b > c then begin t:=b; b:=c; c:=t; end;
     if b > d then begin t:=b; b:=d; d:=t; end;
     if b > e then begin t:=b; b:=e; e:=t; end;

     if c > d then begin t:=c; c:=d; d:=t; end;
     if c > e then begin t:=c; c:=e; e:=t; end;

     if d > e then begin t:=d; d:=e; e:=t; end;
end else begin
     if a < b then begin t:=a; a:=b; b:=t; end;
     if a < c then begin t:=a; a:=c; c:=t; end;
     if a < d then begin t:=a; a:=d; d:=t; end;
     if a < e then begin t:=a; a:=e; e:=t; end;

     if b < c then begin t:=b; b:=c; c:=t; end;
     if b < d then begin t:=b; b:=d; d:=t; end;
     if b < e then begin t:=b; b:=e; e:=t; end;

     if c < d then begin t:=c; c:=d; d:=t; end;
     if c < e then begin t:=c; c:=e; e:=t; end;

     if d < e then begin t:=d; d:=e; e:=t; end;
end;
writeln('Hasil pengurutan : ',a,b,c,d,e);
readkey;
end.

4. Program menghitung besar gaya dari massa benda dan percepatan yang dialami benda :

program percepatan;
uses crt;
var F, M, A : real;
begin
clrscr;
writeln('*************************');
writeln('PROGRAM HITUNG PERCEPATAN');
writeln('*************************');
write('Masukan massa benda : '); readln(M);
write('Masukan percepatan benda : '); readln(A);
F:= M*A;
writeln('Besar Gaya : ',F:3:1,' N');
readkey;
end.

5. Program menghitung jumlah vokal dan konsonan :

program hitungvokal;
uses crt;
var kata : string;
    vokal,konsonan,p,i : integer;
begin
clrscr;
writeln('**************************');
writeln('PROGRAM HITUNG JUMLAH VOKAL');
writeln('**************************');
write('Masukan sebuah kata : '); readln(kata);
p:= length(kata);
vokal := 0; konsonan := 0;
for i := 1 to p do
    if (kata[i]='a') or (kata[i]='e') or (kata[i]='i') or (kata[i]='o') or (kata[i]='u') then
       inc(vokal,1)
    else
       inc(konsonan,1);

writeln('jumlah vokal : ',vokal);
writeln('jumlah konsonan : ',konsonan);
readkey;
end.