PILAS Y PUNTEROS
1 recomendación220 vistas
Este programa crea una pila dinámica para almacenar números enteros ingresados por el usuario. Cuenta y muestra la cantidad total de números, pares e impares ingresados. Finaliza cuando se ingresa un número negativo.
PILAS Y PUNTEROS
- 1. __________________________________________________________ __________________________________________________________ program PilasPunteros; uses crt; type enlace=^regnodo; regnodo=record dato:integer; siguiente:enlace; end; var x,y:enlace; i,j,Spares,pares,impares:integer; begin textcolor(2); new(x); x^.siguiente:=nil; gotoxy(30,2); write('CREACION DE UNA PILA'); gotoxy(27,3); write('"Con un negativo finaliza"'); gotoxy(3,5); write('Ingrese un numero: '); readln(i); Spares:=0; pares:=0; impares:=0; Spares:=Spares+1; if i mod 2=0 then pares:=pares+1; if i mod 2<>0 then
- 2. impares:=impares+1; while i>=0 do begin new(y); y^.dato:=i; y^.siguiente:=x; x:=y; write('Ingrese un numero: '); readln(i); if i>=0 then begin Spares:=Spares+1; if i mod 2=0 then pares:=pares+1; if i mod 2<>0 then impares:=impares+1; end; end; clrscr; while y^.siguiente<>nil do begin writeln(y^.dato); x:=y^.siguiente; dispose(y); y:=x; end; writeln('Los numeros ingresados fueron: ',Spares); writeln('Los numeros pares ingresados fueron: ',pares); writeln('Los numeros impares ingresados fueron: ',impares); readkey; dispose(x); end. __________________________________________________________ __________________________________________________________