practica +

Question 1

Estructuras Condicionales:

Answer 1

program SimpleCond;
var
numero: integer;
begin
write(‘Ingrese un número: ‘);
readln(numero);

if numero > 0 then
writeln(‘El número es positivo.’)
else if numero < 0 then
writeln(‘El número es negativo.’)
else
writeln(‘El número es cero.’);
end.

Question 2

Condicional doble

Answer 2

program DoubleCond;
var
edad: integer;
begin
write(‘Ingrese su edad: ‘);
readln(edad);

if edad < 18 then
writeln(‘Eres menor de edad.’)
else
writeln(‘Eres mayor de edad.’);
end.

Question 3

Condicional anidado

Answer 3

program NestedCond;
var
a, b: integer;
begin
write(‘Ingrese el valor de a: ‘);
readln(a);
write(‘Ingrese el valor de b: ‘);
readln(b);

if a > 0 then
begin
if b > 0 then
writeln(‘Ambos números son positivos.’)
else
writeln(‘a es positivo pero b no.’);
end
else
writeln(‘a no es positivo.’);
end.

Question 4

Para For

Answer 4

program ForLoop;
var
i: integer;
begin
writeln(‘Contando hasta 5:’);
for i := 1 to 5 do
writeln(i);
end.

Question 5

Mientras

Answer 5

program WhileLoop;
var
contador: integer;
begin
contador := 1;
writeln(‘Contando hasta 5:’);
while contador <= 5 do
begin
writeln(contador);
contador := contador + 1;
end;
end.

Question 6

Repetir

Answer 6

program RepeatLoop;
var
contador: integer;
begin
contador := 1;
writeln(‘Contando hasta 5:’);
repeat
writeln(contador);
contador := contador + 1;
until contador > 5;
end.

Question 7

Arreglos

Answer 7

program ArraysExample;
var
numeros: array[1..5] of integer; // arreglo de 5 elementos
i: integer;
begin
writeln(‘Ingrese 5 números:’);
for i := 1 to 5 do
begin
write(‘Número ‘, i, ‘: ‘);
readln(numeros[i]);
end;

writeln(‘Los números ingresados son:’);
for i := 1 to 5 do
writeln(numeros[i]);
end.

Question 8

Registros

Answer 8

program RecordsExample;
type
Persona = record
nombre: string;
edad: integer;
end;

var
individuo: Persona;
begin
write(‘Ingrese el nombre: ‘);
readln(individuo.nombre);
write(‘Ingrese la edad: ‘);
readln(individuo.edad);

writeln(‘Información de la persona:’);
writeln(‘Nombre: ‘, individuo.nombre);
writeln(‘Edad: ‘, individuo.edad);
end.