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.
February 8, 2013
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.
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.
Subscribe to:
Posts (Atom)
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.
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.
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.
Subscribe to:
Posts (Atom)