Guia Prog2

Espacio pedagógico: Programación II
Catedrática: Ing. María Luisa Cerrato
Alumna: Sarbia Yosibel Canales 1608199100052
Guía de ejercicios procedimientos y funciones.
1. Crear un algoritmo queescriba “adios” tres veces.
program adios;
//Escribe tres veces adios
procedure mostrar;
var a: integer;
begin
for a:= 1 to 3 do
writeln ('adios');
end;
begin
mostrar;
readln;
end.

2. Realizar unprograma que utilice un procedimiento, en el cual realice una multiplicación de dos números. El procedimiento debe de ser llamado en el programa principal.
program ejercicio2;
//multiplica dos numerosenteros
var num1, num2,a: real;
procedure multiplicacion (num1, num2: real; var a: real);
begin
a:= num1*num2;
end;
begin
writeln('Escriba dos numeroscualquiera');
readln(num1, num2);
multiplicacion(num1, num2,a);
writeln('la multiplicacion es',a:4:2);
readln;
end.

3. Que muestre por pantalla los números de uno hasta N. siendo N un valor introducido porel usuario y este debe de ser leído en el programa principal.

program ejercicio3;
//muestra los numeros del uno hasta N
var n:integer;
procedure numeros(var n: integer);
var i: integer;
begin
fori:= 1 to n do
writeln(i);
end;
begin
writeln('ingrese un numero');
readln(n);
numeros(n);
writeln(' ');
readln;
end.
4. Que calcule el área de un cuadrado.
programareaDeUnCuadrado;
//calcula el area de un cuadrado
var a, x: real;
procedure area(var a,x: real);
begin
x:=a*a
end;
begin
writeln('ingrese la logitud de un lado del cuadrado');
readln(a);
area(a,x);writeln('El area es:', x:4:2);
readln;
end.

5. Que detecte si un número leído desde el teclado es mayor o menor que 100.
program ejercicio5;
// detecta si el numero introducido por el usario es mayor omenor que 100
var x: integer;
procedure cien(x:integer);
begin
if (x<100) then
writeln('El numero ingresado es menor que 100')
else
writeln('El numero ingresado es mayor que 100');
end;
begin...