February 8, 2013

program pascal deklarasi data

program masing_masing_deklarasi_data;
uses wincrt;
var a,b,c:string;
    x,y,rumusnya:integer;
    r,s,t,hasilnya:real;
    senang:char;
begin
clrscr;
writeln ('identitas ku');
writeln ('nama saya:');readln (a);
writeln ('alamat saya:');readln (b);
c:=a+b ;
writeln ('jadi identitasqu adalah',c);
writeln;
writeln ('penjumlahan');
writeln ('masukkan angka= ');readln (x);
writeln ('ditambah dengan= ');readln (y);
rumusnya:=x+y;                                                               
writeln ('hasilnya adalah= ',rumusnya:0);
writeln;
writeln ('perkalian');
writeln ('masukkan angka=');readln (r);
writeln ('masukkan angka=');readln (s);
t:=r*s;
writeln ('hasilnya real=',t:0:2);

writeln;                                      
writeln ('perasaan');
writeln ('jika mendapat nilai A akan merasa=');readln (senang);
writeln ('aku merasa senang=');
writeln (',,,,,,,,,,,,,mator sakalangkong,,,,,,,,,,,,,,,');
write;
end.

program pascal mencari bilangan kelipatan 5

program kelipatan_5;
Uses wincrt;

var
x,y:longint;

begin
    clrscr;
    write('Berapa kelipatan 5 yang ingin ditampilkan = ');
    readln(x);
    writeln('============================================================================');
    write('Hasil dari ',x,' kelipatan 5  = ');
    for x:=1 to x do
        begin
             y :=5*x;
         write(y,' ');
        end;
end.

program pascal penghitung rangkaian


program penghitung_rangkaian;
Uses wincrt;
var
r1, r2, r3, st, pt: real;
pil:integer;
begin
     clrscr;
write(‘Masukkan R1 =’);readln(r1);
write(‘Masukkan R2 =’);readln(r2);
write(‘Masukkan R3 =’);readln(r3);
write(‘Tekan 1 untuk seri atau tekan 2 untuk pararel ?’);
readln(pil);
if pil=1 then
begin
             st:=r1+r2+r3;
             writeln(‘Total Rangkaian Serinya = ’,st:0:2);
end;
else
begin
             pt:= (r1*r2*r3)/(r1*r2+r1*r3+r2*r3);
             writeln(‘Total Rangkaian Pararelnya = ’,pt:0:2);
end;
readln(pil);
                       end.

February 8, 2013

program pascal deklarasi data

program masing_masing_deklarasi_data;
uses wincrt;
var a,b,c:string;
    x,y,rumusnya:integer;
    r,s,t,hasilnya:real;
    senang:char;
begin
clrscr;
writeln ('identitas ku');
writeln ('nama saya:');readln (a);
writeln ('alamat saya:');readln (b);
c:=a+b ;
writeln ('jadi identitasqu adalah',c);
writeln;
writeln ('penjumlahan');
writeln ('masukkan angka= ');readln (x);
writeln ('ditambah dengan= ');readln (y);
rumusnya:=x+y;                                                               
writeln ('hasilnya adalah= ',rumusnya:0);
writeln;
writeln ('perkalian');
writeln ('masukkan angka=');readln (r);
writeln ('masukkan angka=');readln (s);
t:=r*s;
writeln ('hasilnya real=',t:0:2);

writeln;                                      
writeln ('perasaan');
writeln ('jika mendapat nilai A akan merasa=');readln (senang);
writeln ('aku merasa senang=');
writeln (',,,,,,,,,,,,,mator sakalangkong,,,,,,,,,,,,,,,');
write;
end.

program pascal mencari bilangan kelipatan 5

program kelipatan_5;
Uses wincrt;

var
x,y:longint;

begin
    clrscr;
    write('Berapa kelipatan 5 yang ingin ditampilkan = ');
    readln(x);
    writeln('============================================================================');
    write('Hasil dari ',x,' kelipatan 5  = ');
    for x:=1 to x do
        begin
             y :=5*x;
         write(y,' ');
        end;
end.

program pascal penghitung rangkaian


program penghitung_rangkaian;
Uses wincrt;
var
r1, r2, r3, st, pt: real;
pil:integer;
begin
     clrscr;
write(‘Masukkan R1 =’);readln(r1);
write(‘Masukkan R2 =’);readln(r2);
write(‘Masukkan R3 =’);readln(r3);
write(‘Tekan 1 untuk seri atau tekan 2 untuk pararel ?’);
readln(pil);
if pil=1 then
begin
             st:=r1+r2+r3;
             writeln(‘Total Rangkaian Serinya = ’,st:0:2);
end;
else
begin
             pt:= (r1*r2*r3)/(r1*r2+r1*r3+r2*r3);
             writeln(‘Total Rangkaian Pararelnya = ’,pt:0:2);
end;
readln(pil);
                       end.