Program pertambahan berulang dengan pascal

Oleh Unknown

Friday, 18 January 2013

Bagikan :

Tweet

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

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.

Tag : Pascal, Programming