کمک برای نوشتن یک برنامه (حاصلضرب عوامل اول )

[شادی1370]

سلام میشه این برنامه رو به زبان پاسکال برام بنویسید؟
در این تمرین میخواهیم یک عدد را به عوامل اول تجزیه کنیم و به صورت حاصلضرب این عوامل نشان دهیم. به عنوان مثال عدد 126 را میتوان به صورت حاصلضرب عوامل اول آن به صورت 7*3*3*2 نوشت.

ورودی:
ورودی شامل چندین خط است که در هر خط یک عدد بزرگتر از 1 قرار دارد. در خط آخر عدد 0 (به معنی خاتمه اعداد) قرار دارد.

خروجی:
به ازای هر ورودی (بجز عدد 0 آخر)، در خروجی یک خط چاپ می شود که عدد را به صورت حاصل ضرب عوامل اول آن نشان می دهد. در این خط ابتدا خود عدد به همراه یک علامت مساوی (=) و در ادامه عبارت نشاندهنده حاصلضرب عوامل اول چاپ می شود. دقت کنید که این اعداد حتما باید به صورت صعودی مرتب شده باشند و با علامت ضرب (*) از هم جدا شده باشند. ضمنا در این خط هیچ علامت فاصله (یا space) وجود ندارد.

نمونه ورودی:
126
12
99
0

نمونه خروجی:
126=2*3*3*7
12=2*2*3
99=3*3*11

[amir_turkism]

سلام شادی خانم می تونین برنامه مورد نظرتونو از ادرس زیر بردارید


program test ;
uses crt ;
const g = 300 ;
type
arr = array[1..g] of integer ;
var
x , y : arr ;
i , j , k , n , m , l , o: integer ;
key : boolean ;
begin
clrscr;
{written by: navid}
writeln('pleas enter n number, for finsh insert 0:');
i := 0;
repeat

i := i + 1;
readln(y[i]);

until y[i] = 0;
l := i - 1;
o := 1;
while o <= l do
begin
n := y[o];

m := n div 2;
x[1] := 2 ;
k := 1 ;
for i := 3 to m do
begin
key := true ;
j := 1 ;
while (j <= k) and key do
if (i mod x[j]) = 0 then
key := false
else
j := j + 1;
if key then
begin
k := k + 1;
x[k] := i
end ;
end;
write('the result for number ',y[o],' is : ');
i:=1;
while ( i <= k ) do
begin
if (n mod x[i]) = 0 then
begin
write(x[i],' * ');
n := n div x[i];
i := i - 1;
end;
i:=i+1;
end;
writeln;
o := o + 1;
end;
readln;
end.

[Borna66]

با سلام

تشكر از كاربر amir_turkism (http://www.pnu-club.com/member.php?u=68747) بابت راهنمايي عالي شون


روزگار خوش