Program pertambahan berulang dengan pascal

Januari 18, 2013

<div><div dir="ltr" style="text-align: left;" trbidi="on">
<div dir="ltr" style="text-align: left;" trbidi="on">
code ini ane buat pas ane liat ada member DC(forum ane) yg minta tolong untuk buatin program pascal yg outputnya gini : 
 
1=1 
1+2=3 
1+2+3=6 
1+2+3+4=10 
1+2+3+4+5=15 
1+2+3+4+5+6=21 
1+2+3+4+5+6+7=28 
1+2+3+4+5+6+7+8=36 
1+2+3+4+5+6+7+8+9=45 
1+2+3+4+5+6+7+8+9+10=55 
1+2+3+4+5+6+7+8+9+10+11=66 
1+2+3+4+5+6+7+8+9+10+11+12=78 
1+2+3+4+5+6+7+8+9+10+11+12+13=91[

dan Alhamdulillah ane bisa buat codenya sendiri gan,, ni code nya

</div>
<pre class="brush:pascal">var
jumlah,maho,i,a:longint;
begin
write('Masukkan angka = ');
readln(maho);
for i:=1 to maho do
begin
jumlah:=1;
a:=1;
write(a);
for a:=2 to i do
begin
write('+',a);
jumlah:=jumlah+a;
end;
writeln('=',jumlah);
end;
end.</pre>
</div>
</div>

1 komentar

Anonim19 Januari 2013 pukul 03.40
maho
BalasHapus
Balasan

Tambahkan komentar

Fudanshi

Program pertambahan berulang dengan pascal

Recent Big Posts

Categories

Tags Cloud

Comments

Latest

Random

Flickr

4/Food

Popular Posts