際際滷

際際滷Share a Scribd company logo

Ppt Prog Fox

Download as PPS, PDF
M
marcela veronica

The document discusses FoxPro code examples for programs to check if a number is even or odd. The first example checks if a single input number is even or odd. The second example adds a loop to check and report if 100 randomly input numbers are even or odd. Diagrams and pseudocode are provided to explain the logic and flow of the programs.

1 of 5
Download to read offline
MI PRIMER PROGRAMA EN FOX
CLEAR INPUT INGRESE EL NUMERO: TO N R = INT (N/2)*2 IF R =N THEN EL NUMERO ES PAR ELSE EL NUMERO NO ES PAR ENDIF END PROGRAMA EN FOX, SU CDIGO SERA DIAGRAMA SABER SI UN NRO INGRESADO ES PAR N R = N R = INT(N/2)*2 INICIO El numero es par FIN El numero no es par
Y SI AGREGAMOS UN CICLO??? POR EJEMPLO QUEREMOS INGRESAR 100 NUMEROS AL AZAR E INFORMAR CUAL ES PAR Y CUAL NO SOS
CLEAR C = 1 DO WHILE C 100 INPUT INGRESE EL NUMERO: TO N R = INT (N/2)*2 IF R =N THEN WAIT EL NUMERO ES PAR ELSE WAIT EL NUMERO NO ES PAR ENDIF C = C +1 ENDDO WAIT POR FIN TERMINE END PROGRAMA EN FOX, SU CDIGO SERA DIAGRAMA DE 100 NROS SABER CUAL ES PAR Y CUAL NO INICIO FIN N R = N R = INT(N/2)*2 N NO ES PAR N ES PAR C= 1 C 100 C = C + 1
A SEGUIR PROBANDO... Moodler: Ing. Marcela Ver坦nica Cella Curso moodle: telecom frtn 15-05-2009 Colegio Independencia - Sgo. Del Estero

More Related Content

Ppt Prog Fox

  • 2. CLEAR INPUT INGRESE EL NUMERO: TO N R = INT (N/2)*2 IF R =N THEN EL NUMERO ES PAR ELSE EL NUMERO NO ES PAR ENDIF END PROGRAMA EN FOX, SU CDIGO SERA DIAGRAMA SABER SI UN NRO INGRESADO ES PAR N R = N R = INT(N/2)*2 INICIO El numero es par FIN El numero no es par
  • 3. Y SI AGREGAMOS UN CICLO??? POR EJEMPLO QUEREMOS INGRESAR 100 NUMEROS AL AZAR E INFORMAR CUAL ES PAR Y CUAL NO SOS
  • 4. CLEAR C = 1 DO WHILE C 100 INPUT INGRESE EL NUMERO: TO N R = INT (N/2)*2 IF R =N THEN WAIT EL NUMERO ES PAR ELSE WAIT EL NUMERO NO ES PAR ENDIF C = C +1 ENDDO WAIT POR FIN TERMINE END PROGRAMA EN FOX, SU CDIGO SERA DIAGRAMA DE 100 NROS SABER CUAL ES PAR Y CUAL NO INICIO FIN N R = N R = INT(N/2)*2 N NO ES PAR N ES PAR C= 1 C 100 C = C + 1
  • 5. A SEGUIR PROBANDO... Moodler: Ing. Marcela Ver坦nica Cella Curso moodle: telecom frtn 15-05-2009 Colegio Independencia - Sgo. Del Estero