nu då? (primtal)

3 svar · 284 visningar · startad av firstchoice 3 okt. 2002

firstchoiceMedlem sedan okt. 2001615 inlägg

Frågan3 okt. 2002 13:42#1

vad är fel?
den säger ifrån på "next"

<%
dim iTalIn, i, i2, iTemp, iFlagga, iTalTest

iTalIn = cint(Request.Form("slut"))
iFlagga = 0

for i = 2 to iTalIn-1

iTalTest = i+1
for i2 = 2 to iTalTest-1

 iTemp = (iTalTest mod i2)
  if iTemp = 0 then
    iFlagga = 1
  if iflagga = 0 then

Request.Write(iTalIn & " är ett primtal")

else if iflagga = 1 then
  iFlagga = 0
end if

next
next
%>

PallemanMedlem sedan dec. 2000557 inlägg

3 okt. 2002 13:56#2

1. Du har missat avsluta en IF-sats.. om du indenterar din kod är det lättare att missa sådana små misstag.

2. Rätt syntax för ElseIf är just ElseIf inte; Else IF

Testa denna istället:

<% 

dim iTalIn, i, i2, iTemp, iFlagga, iTalTest 

iTalIn = cint(Request.Form("slut")) 
iFlagga = 0 

For i = 2 to iTalIn-1 

	iTalTest = i+1 

	For i2 = 2 To iTalTest-1 

		iTemp = (iTalTest mod i2) 

		If iTemp = 0 Then 
			iFlagga = 1 
			If iflagga = 0 Then 
				Response.Write(iTalIn & " är ett primtal") 
			ElseIf iflagga = 1 Then 
				iFlagga = 0 
			End If 
		End If

	Next 

Next 

%>

solbulleMedlem sedan mars 20015 287 inlägg

3 okt. 2002 15:09#3

Request.Write(iTalIn & " är ett primtal")

Ska det inte stå:

Response.Write(iTalIn & " är ett primtal")

@ndersMedlem sedan juni 200032 967 inlägg

3 okt. 2002 16:20#4

Fortsätt på en och samma tråd med samma problem, istället för att skapa nya hela tiden. Det är lättare att följa problemet (och lösningen) då.