Pada kali ini saya akan memberikan source code untuk membuat deret bintang pada pascal.
agar tidak bertele-tele, langsung saja kepada programnya ya ^^
uses crt;
var
a,b,c,d,e,f:integer;
begin
clrscr;
writeln('=======Deret Bintang=======');
writeln;
write('masukan nilai yang ingin di jadikan deret = ');readln(a);
for b:= 1 to a do begin
for c:= 1 to b do
write('*');
writeln;
end;
begin
c:= a - 1;
for d:= c downto 1 do begin
for e:= 1 to d do
write('*');
writeln;
end;
readln;
end;
end.

jika anda ingin outputnya bukan bintang, maka ubah pada bagian write('*);
sekian postingan kali ini, semoga bermanfaat.

mari kita belajar bersama ^^

Read more »

These icons link to social bookmarking sites where readers can share and discover new web pages.

• 
• 
• 
• 
• 
• 
• 
• 
• 
• 
• 

0 Comments

Tags: Komputer

untuk kali ini saya membahas tentang perintah select case pada pascal. Sebenarnya select case tidak berbeda jauh dengan perintah if.
oke deh langsung saja ke programnya biar lebih jelas.

uses crt;
var
b,c:string;
a,d,f,h,i:integer;
g,j:real;
begin
clrscr;
write('---Menu---');
writeln('');
writeln('1. Biodata');
writeln('2. Hobi');
writeln('3. Luas');
write('masukan plihan : ');readln(a);
case a of

Read more »

These icons link to social bookmarking sites where readers can share and discover new web pages.

• 
• 
• 
• 
• 
• 
• 
• 
• 
• 
• 

0 Comments

Tags: Komputer

Mungkin kadang-kadang di tempat lain ada yang bertele-tele untuk menjelaskan cara membuat program, tapi di sini saya langsusng menjelaskan ke tujuan yang anda inginkan.
langsung saja, ini adalah program menghitung luas persegi pada pascal.

Read more »

These icons link to social bookmarking sites where readers can share and discover new web pages.

• 
• 
• 
• 
• 
• 
• 
• 
• 
• 
• 

0 Comments

Tags: Komputer