حوارزمية بسيطة

[بنت الرضى]

السلام عليكم
أريد منكم مساعدة صديقتي في حل هذه الحوارزمية في أقرب وقت ممكن
كتابة خوارزمية تخص جدول الضرب للعدد 4 بلغة الباسكال
بواسطة boucle وافضلها بال pour

[سارق الأحزان]

Pour i allant de 1 à 10
Afficher b
b×i→b

[بنت الرضى]

ممكن شرح أكثر

[mus54]

program exo;
var n,i:integer;
begin
n=4;
for i:=0 to 9 do
begin
n:=n*i;
writeln(n);
end;
end.

[أبو عبد الرحمن 87]

program multiplication4;
var
m,i :integer;
begin
for i:=1 to 9 do
begin
m:=i*4;
writeln('4*',i,'=',m);
end;
readln;
end.

النتيجة تكون:
4*1=4
4*2=8
.
.
.
4*9=36

[بنت الرضى]

بارك الله فيكم على مساعدتي
وجعلها الله في موازين حسناتك

[you92cef]

INTEGER RESU=-n; // n et le nombre quand veut afficher

boucle for
deput boucle
resu=resu+n;
ecrit resu
fin boucle
-------------------
exemple

n=4

resu=-4
boucle

resu=-4+4=0
incrementation
resu=0+4=4
incremantation
resu=4+4=8
incrementation