سه سوال در مورد الگوریتم

[nstro67]

سلام به همگی. من ترم یک کامپیوترم و چند تا سوال در مورد الگوریتم دارم.
1 .چطور باید الگوریتم به دست آوردن جذر یه عدد بدون استفاده از لیست رو بنویسیم؟
2. الگوریتمی که اول بودن یه عدد صحیح مثبت رو تشخیص بده و 3. الگوریتم محاسبه مجموع ارقام یه عدد صحیح مثبت.
ممنون میشم به اینا جواب بدید. البته به شکل برنامه نمی خوامش فقط به شکلی که بشه بردش تو فلوچارت...

[Arcsinos]

جواب سوال دوم :

x,i,count:integer
begin
readln(x)
i:=2
count:=0
while i<x do
begin
if ( x mod i )=0 then
count:=1
i:=i+1
end
if count=0 then
writeln("adad Avval ast")
else
writeln("adad Avval nist")
end

ایونو دیگه خودت ببر تو فلوچات ، نمی دونستم چه جوری توضیح بدم که بفهمی

[Arcsinos]

جواب سوال سوم :

x,count:integer
begin
readln(x)
count:=0
while 0<x do
begin
x:=x mod 10
count:=count +1
end
writeln("tedad argham barabar ast ba",count)
end

اینم خودت فلوچاتش کن بابا خیلی راحته

[nstro67]

ممنون فقط یه سوال.. میتونیم از دو تا شرط پشت سر هم تو الگوریتم استفاده کنیم؟ مثلا تو فلوچارتش دو تا لوزی پشت سر هم...

[Arcsinos]

آره بابا راحت باش اصلا 1000 تا لوزی پشت سر هم بکش

[golbafan]

nstro67 (http://barnamenevis.org/forum/member.php?u=138209)
عزيز خيلي باحالي ولي يكمي هم كتاب بخون و زود نيا اينجا