parshansh
چهارشنبه 17 مهر 1392, 19:14 عصر
دوستان من تو این زمینه واقعا اماتورم :لبخند:
یه برنامه ای می خوام بنویسم که مشخص کنه یه عدد اول هست یا نه اما از دستور If توش استفاده نشه
الان یه همچین چیزی نوشتم اعداد اول رو تشخیص می ده ولی وقتی یه عدد غیر اول رو می دم کلا کار نمی کنه در حالی که می خوام بنویسه اول نیست
Program test;
uses wincrt;
var x,y,i,j,z : integer
;Begin
Writeln('Please Enter A Number')
;Read(x)
;j:=0
;y:=2
;While y<x div 2 do
Begin;
while x mod y=0 do J:=1
;y:=y+1
end;
while j=0 do
begin;
write('Prime')
;j:=j+3
End;
While j=1 do
begin;
;Write('Not Prime')
;J:=j+3
end;
End.
یه برنامه ای می خوام بنویسم که مشخص کنه یه عدد اول هست یا نه اما از دستور If توش استفاده نشه
الان یه همچین چیزی نوشتم اعداد اول رو تشخیص می ده ولی وقتی یه عدد غیر اول رو می دم کلا کار نمی کنه در حالی که می خوام بنویسه اول نیست
Program test;
uses wincrt;
var x,y,i,j,z : integer
;Begin
Writeln('Please Enter A Number')
;Read(x)
;j:=0
;y:=2
;While y<x div 2 do
Begin;
while x mod y=0 do J:=1
;y:=y+1
end;
while j=0 do
begin;
write('Prime')
;j:=j+3
End;
While j=1 do
begin;
;Write('Not Prime')
;J:=j+3
end;
End.