Pascal/Turbo Pascal - NECESITO AYUDA CON 2 CICLO FOR.

   
Vista:

NECESITO AYUDA CON 2 CICLO FOR.

Publicado por C R I S T I A N (1 intervención) el 08/06/2010 04:53:48
Hola buen dia:

Necesito saber como realizar con pascal, un programa que lea la PRIMERA y SEGUNDA
LINEA Y ME ENTREGE COMO RESULTADO LA CANTIDAD DE NUMEROS PAR E IMPAR.

LA PRIMERA Y SEGUNDA LINEA SE DEBE GENERAR CON CICLO FOR Y A LA VEZ QUE MUESTRE LA CANTIDAD DE NUMEROS PARES E IMPARES.

EJEMPLO A MOSTRAR EN PANTALLA . . .
______________________________________________________________________
CANTIDAD PAR / CANTIDAD IMPAR
.- 12-13-14-15-16-17-18-19-20 5 4
.- 21-22-23-24-25-26-27-28-29 4 5

¡¡¡ FIN DEL PROGRAMA !!!
______________________________________________________________________

GRACIAS...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:NECESITO AYUDA CON 2 CICLO FOR.

Publicado por edwin (71 intervenciones) el 08/06/2010 21:57:55
y donde esta el codigo para corregir???
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:NECESITO AYUDA CON 2 CICLO FOR.

Publicado por Armando Fuenmayor (22 intervenciones) el 09/06/2010 00:57:36
program lineaunoydos(input,output);
uses crt;
const
max = 3;

var
linea1 : array[1..max] of longint ;
linea2 : array[1..max] of longint ;

conparuno, conimparuno, conpardos, conimpardos, i : Integer;
nombre : string;

function espar(nu : longint): boolean;
var
verdad : boolean;
begin
verdad := false;
if (nu mod 2 = 0) then
begin
verdad := true;
end;
espar := verdad;
end;


begin
clrscr;

(* for para carcagr la linea 1*)
conparuno := 0;
conimparuno := 0;
conpardos := 0;
conimpardos := 0;
for i := 1 to max do
begin
gotoxy(10,2);
write('Ingrese numero ', i, ' de la linea UNO ');
clreol;
readln(linea1[i]);
if (espar(linea1[i])) then
conparuno := conparuno + 1
else
conimparuno := conimparuno + 1;
end;

(* for para carcagr la linea 2*)
for i := 1 to max do
begin
gotoxy(10,2);
write('Ingrese numero ', i, ' de la linea DOS ');
clreol;
readln(linea2[i]);
if (espar(linea2[i])) then
conpardos := conpardos + 1
else
conimpardos := conimpardos + 1;

end;


writeln;
writeln('La linea UNO ');
for i := 1 to max do
begin
write(linea1[i]:5);
end;
writeln;
writeln;

writeln('El numero de pares en la linea UNO = ', conparuno);
writeln;
writeln('El numero de impares en la linea UNO = ', conimparuno);

if conparuno > 0 then
begin
writeln('Los numeros pares en la linea UNO son: ');
for i := 1 to max do
begin
if (espar(linea1[i]) ) then
write(linea1[i]:5);
end;
end;
writeln;
if conimparuno > 0 then
begin
writeln('Los numeros impares en la linea UNO son: ');
for i := 1 to max do
begin
if (espar(linea1[i]) = false ) then
write(linea1[i]:5);
end;
end;
writeln;

writeln;
writeln('*************************************************');
writeln('La linea DOS ');
for i := 1 to max do
begin
write(linea2[i]:5);
end;
writeln;
writeln('El numero de pares en la linea DOS = ', conpardos);
writeln;
writeln('El numero de impares en la linea DOS = ', conimpardos);

if conpardos > 0 then
begin
writeln('Los numeros pares en la linea DOS son: ');
for i := 1 to max do
begin
if (espar(linea2[i]) ) then
write(linea2[i]:5);
end;
end;
writeln;

if conimpardos > 0 then
begin
writeln('Los numeros impares en la linea DOS son: ');
for i := 1 to max do
begin
if (espar(linea2[i]) = false ) then
write(linea2[i]:5);
end;
end;
writeln;

(* patusnalgason@hotmail.com Armando Fuenmayor*)

readln;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar