PUNTEROS
0 likes164 views
This program demonstrates the use of pointers in Pascal. It allocates memory for pointers to integers and characters, stores and manipulates data using dereferenced pointers, and checks for equality between pointer values. It displays a title, prompts the user to input a character, stores the predecessor of that character in two variables using dereferenced pointers, and compares the values of pointers to integers, outputting "SI" or "NO" depending on the result.
PUNTEROS
- 1. __________________________________________________________ __________________________________________________________ program Punteros; uses crt; var x,y,z:^integer; a,b,c:^char; d,e:char; begin clrscr; gotoxy(30,2); write('USO DE PUNTEROS'); new(a); gotoxy(3,4); write('Ingrese el dato que desea: '); read(a^); d:=pred(a^); e:=pred(d); gotoxy(3,6); writeln(d,' ',e); new(x); x^:=80; new(y); y^:=-30; new(z); z^:=25; gotoxy(3,8); x^:=y^; write(x^,' ',y^); if y^=z^ then begin