Pascal/Turbo Pascal - necesito ayuda para realizar un programa

   
Vista:

necesito ayuda para realizar un programa

Publicado por ISIS MONTSERRAT (1 intervención) el 26/03/2012 02:53:24
ayuda urgente Ö :
necesito contestar estos programas
1.- elabora un programa en pascal que solicite 5 numeros enteros;para cada numero determine ,si es par o impar y al final imprima cuantos fueron pares y cuantos impares.
y este es el otro:
2-. Elabora un programa que genere y muestre la secuencia de los siguientes 7 numeros 2,4,6,8,10,12,14 .
ayudaaaaaaaaaaaaaaaa
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

necesito ayuda para realizar un programa

Publicado por ramon (2072 intervenciones) el 26/03/2012 18:26:38
{Espero esto te sirva como ayuda}

program numerica;
uses
crt;
var
numeros : array[1..5] of integer;
num : array[1..14] of integer;

procedure inforparinpar;
var
imp, par, y, i : integer;
begin
gotoxy(2,2);write('Entre 5 Numeros Enteros');
y := 4;
for i := 1 to 5 do
begin
gotoxy(2,y);write('Entre N§ ',i,' ');
gotoxy(13,y);readln(numeros[i]);
y := y + 1;
end;
imp := 0;
par := 0;
clrscr;
y := 4;
for i := 1 to 5 do
begin
if numeros[i] mod 2 = 0 then
begin
gotoxy(7,y);write(numeros[i],' = Es par');
par := par + 1;
end
else
begin
gotoxy(7,y);write(numeros[i],' = Es inpar');
imp := imp + 1;
end;
y := y + 1;
end;
gotoxy(7,y + 1);write('N§ Pares Fueron = ',par);
gotoxy(7,y + 2);write('N§ Impares Fueron = ',imp);
gotoxy(7,y + 4);write(' Pulse [Enter]');
readln;
end;

procedure ordenar;
var
p1, p2, tp : integer;
begin
for p1 := 1 to 13 do
for p2 := 14 downto p1 do
begin
if num[p1] > num[p2] then
begin
tp := num[p1];
num[p1] := num[p2];
num[p2] := tp;
end;
end;
end;

procedure presentanumeros;
var
t, si, y, i : integer;
nume : integer;
begin
randomize;
i := 1;
repeat
nume := random(15);
si := 0;
t := 1;
repeat
if num[t] = nume then
begin
si := 1;
end;
t := t + 1;
until (t > 14) or (si = 1);
if si = 0 then
begin
num[i] := nume;
i := i + 1;
end;
until i > 14;
writeln(' Los N§ Son');
ordenar;
for i := 1 to 14 do
begin
if num[i] mod 2 = 0 then
write(' ',num[i]);
end;
writeln;
writeln(' Pulse [Enter]');
readln;
end;

procedure menu;
var
tec : char;
sal : boolean;
begin
repeat
clrscr;
gotoxy(12,1);write('*** Menu Jeneral ***');
gotoxy(12,3);write(' 1 = Entrada pares impares');
gotoxy(12,4);write(' 2 = Gereracion Numeros');
gotoxy(12,5);write(' 3 = Salir');
tec := readkey;
clrscr;
case tec of
#49 : inforparinpar;
#50 : presentanumeros;
#51 : sal := true;
end;
until sal = true;
end;



begin
clrscr;
menu;
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