Jumat, 14 Januari 2011

Program-Program Pascal (newbie)

Ini beberapa dari program pascal yang dibuat oleh admin selama semester 1... Masih yang simpel aja... Maklum.. Masih Newbie... :)

1. PROGRAM UNTUK MENGHITUNG ARUS DAN TAHANAN

Program TahananTotal_ArusTotal;
uses crt;

var E,R1,R2,RT1,RT2,IT1,IT2:real;

Function TahananTotal (R1,R2:real):real;
begin
RT1:=R1+R2;
RT2:=(R1*R2)/(R1+R2);
writeln ('Tahanan Total Seri: ', RT1:0:2);
writeln ('Tahanan Total Paralel: ', RT2:0:2);
end;

Function ArusTotal (RT1,RT2:real):real;
begin
IT1:=E/RT1;
IT2:=E/RT2;
writeln ('Arus Total Seri: ',IT1:0:2);
writeln ('Arus Total Paralel: ', IT2:0:2);
end;

begin
clrscr;
textcolor (10);
writeln ('                =====Program Tahanan Total dan Arus Total====  '); writeln;
writeln ('Untuk memulai, tekan sembarang tombol... Asal jangan tombol di handphone anda'); readkey;
writeln; writeln;
write ('Nilai Tahanan1: '); readln (R1);
write ('Nilai Tahanan2: '); readln (R2);
write ('Nilai Tegangan: '); readln (E);
writeln;
TahananTotal(R1,R2);
writeln;
ArusTotal(RT1,RT2);
readln;
end.



2.PROGRAM UNTUK MENGHITUNG JUMLAH MASUKAN YANG BERNILAI POSITIF SAJA

Program Deretpas;

{*Menampilkan bilangan 1 sampai 10*}

uses crt;
var x,i, jumlah : integer;

begin
clrscr;
write ('tentukan banyaknya data: '); readln (x);
jumlah:=0;
For i := 1 to x do
begin
readln (x);
if x > 0 then
jumlah := jumlah+x;
end;
writeln ('jumlah= ', jumlah);
readln;
end.



3. PROGRAM UNTUK MENGHITUNG LUAS LINGKARAN DAN LUAS TRAPESIUM

program Luas_Trapesium_Luas_Lingkaran;
uses crt;
var a,b,r,t:longint;
luasling,luastrap:real;

procedure luas_lingkaran;
begin
luasling:=3.14*sqr(r);
writeln('maka luas lingkaran: ', luasling:8:2);
end;

procedure luas_trapesium;
begin
luastrap:=((a+b)*t)/2;
writeln('maka luas trapesium: ', luastrap:8:2);
end;

begin
clrscr;
textcolor (14);
writeln ('=====Program Menghitung Luas Trapesium dan Luas Lingkaran=====');writeln;writeln;writeln;
writeln ('Luas Trapesium= ((a+b)*t)/2');
writeln ('Luas Lingkaran=3,14*sqr(r)'); writeln;
writeln ('tekan sembarang tombol');writeln;
readkey;
write ('Nilai a: ');readln(a);
write ('Nilai b: ');readln(b);
write ('Nilai t: ');readln(t);
write ('Nilai r: ');readln(r);writeln;writeln;
luas_lingkaran;
luas_trapesium;
readln;
end.




SEKIAN DULU UNTUK KALI INI.

1 komentar:

  1. oke....
    it's good enough....

    I hope you can explore it to make the more intuitive program....

    BalasHapus