Pascal/Turbo Pascal - precedimiento con operador odd

   
Vista:

precedimiento con operador odd

Publicado por davo (26 intervenciones) el 29/11/2012 19:18:16
hola a todos, estoy haciendo un ejercicio que me pide mostrar por pantalla los numeros pares comprendidos entre dos numeros y que utilice el operador odd.

yo he echo el siguiente codigo pero no se como meter el operador odd alguien puede ayudarme? muchas gracias .

program numeros_pares_entre;
var
num_1,num_2,i:integer;


procedure num_par(num_1:integer;num_2:integer);
begin
for i:= num_1 to num_2 do
begin
write(i,'-');
end;
end;
begin

writeln('Introduce el primer numero: ');
readln(num_1);
writeln('Introduce el segundo numero ');
readln(num_2);
num_par(num_1,num_2);readln;
end.
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

precedimiento con operador odd

Publicado por ramon (2072 intervenciones) el 29/11/2012 21:33:50
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
{ Mira la forma}
 
program numeros_pares_entre;
  uses
     crt;
  var
    num_1,num_2,i:integer;
 
 
   procedure num_par(num_1:integer;num_2:integer);
   begin
      write('El resultado es : ');
      for i:= num_1 to num_2 do
      begin
         if odd(i) = false then
         write(i,'-');
      end;
    end;
 
begin
   clrscr;
   write('Introduce el primer numero  : ');
   readln(num_1);
   write('Introduce el segundo numero : ');
   readln(num_2);
   num_par(num_1,num_2);
   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

precedimiento con operador odd

Publicado por davo (26 intervenciones) el 29/11/2012 22:05:09
Muchas gracias, estuve intentando hacer algo parecido pero no encontre la forma.
Ahora me ha quedado claro con tu ejemplo.
Saludos.
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

precedimiento con operador odd

Publicado por davo (26 intervenciones) el 29/11/2012 23:18:39
ahora me pide lo siguiente:
Pida al usuario dos números.
Invoque al procedimiento anterior asegurándose de que el primer número del primer parámetro real se corresponde al número más pequeño introducido por el usuario y el segundo al más grande.

yo he echo esto pero no me compila, me puedes echar una mano? Muchas gracias.

program numeros_pares_entre;
var (*variantes globales*)
num_1,num_2,i:integer;


procedure num_par(num_1:integer;num_2:integer); (*procedimiento para que lea los numeros pares*)

begin

for i:= num_1 to num_2 do
begin
if odd(i)= false then
write(i,'-');
end;
end;
begin

writeln('Introduce el primer numero: ');
readln(num_1);
writeln('Introduce el segundo numero ');
readln(num_2);

if (num_1)<(num_2) then
begin
num_par(num_1,num_2);
else
write('Introduzca el primer numero mayor que el segundo');
end;
begin
num_par(num_1,num_2); (*llamada a procedimiento*)

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