Pascal/Turbo Pascal - Ejercicios sin resolver

Hola
me urge mucho sacarme estos ejercicios y son los que me quedan de este tema pero no se como hacerlos, ojala me puedan ayudar ya que los tengo q entregar y me queda muy poco tiempo para ello

A partir del módulo principal crear los procedimientos para realizar un programa que pida al usuario dos números y realice la suma de los mismos.
La estructura del programa será como la que le presentamos a continuación.
Hay que destacar que la impresión del valor de la suma hay que hacerlo OBLIGATORIAMENTE en el procedimiento presenta_resultados: Esto le obligará a pasar el parámetro suma por referencia en el procedimiento cálculo, que realiza la suma.

(*
Fichero: unidad6_2_1.pas
Autor:
Mail:
Descripción:
*)

program Operaciones;

(*-- Funciones y procedimientos -- *)

(* ¡¡ Aquí irían las definiciones de los procedimientos calculo y
presenta_resultados !! *)

(*-- Variables Globales -- *)
var
primer_numero:real;
segundo_numero:real;
suma:real;

(*-- Programa Principal -- *)
begin

(* Solicitud de los datos *)
writeln('Introduzca el primer numero: ');
readln(primer_numero);
writeln('Introduzca el segundo numero: ');
readln(segundo_numero);

calculo(primer_numero,segundo_numero,suma);

(* Impresión del resultado de la suma por pantalla *)
presenta_resultados(suma);
end.


2.

Crear programa con un procedimiento que imprima una línea de una cierta longitud compuesta por un determinado carácter.
Para ello, el procedimiento de nombre línea, recibirá dos parámetros: el carácter que queremos imprimir, y el número de caracteres que queremos que tenga la línea.
Para probar ese procedimiento incluya ese procedimiento en un programa que pida la longitud y el carácter que queremos imprimir.

La ejecución será similar a:



C:\cursopro>usuario_t6_o1.exe
Introduzca longitud de la línea: 20
Introduzca letra: *
********************



3.

REUTILIZANDO el procedimiento de la cuestión 2 se va a codificar un programa que imprima un triángulo como el siguiente:

*
**
***
****

Observe que el triángulo es una sucesión de líneas cuya longitud se va incrementando, desde 1 hasta la altura del triángulo.
Deberá codificar un procedimiento de nombre pinta_tri, que recibe como parámetros la altura del triángulo y el carácter que formará el triángulo. Este procedimiento deberá usar el procedimiento línea, para pintar cada una de las líneas del triángulo. Fíjese que el número de veces que se llama al procedimiento que pinta la línea es igual a la altura del triángulo, y que en la primera invocación, la línea tiene longitud 1 y en la última, la longitud es igual a la altura del triángulo.
En cuanto al programa principal deberá solicitar la altura y el carácter e invocar a pinta_tri.

parecido a este
Introduzca altura del triangulo: 7
Introduzca letra: +
+
++
+++
++++
+++++
++++++
+++++++



4.

Codifique un procedimiento que presente un menú de opciones por pantalla y devuelva la opción elegida por el usuario. Las opciones que presentará son:
1. Abrir cesta de compra existente.
2. Comenzar cesta de compra nueva.
3. Añadir producto a la cesta.
4. Eliminar producto de la cesta.
5. Guardar cesta.
6. Pedir cesta.
7. Salir del programa.

Una vez que el usuario elija una opción en el procedimiento se comprueba si es válida, es decir si es un número entre 1 y 7. En caso de que la opción no sea válida, se volverá a repetir la presentación del menú hasta que el usuario pulse una opción válida. Para depurar el procedimiento deberá incluirlo en un sencillo programa que simplemente invoque el procedimiento y compruebe que el resultado devuelto es el correcto.

siento las molestias pero me urgen estos cuatro
gracias anticipadas

Voy haciendo camino, doy x solucionado mis ejerc, asi q cierro tema en principio, mañana compilo y si hay suert ejerc dados por resueltos, gracias d todas maneras

Gracias ramon pero estos como postee los logre sacar
Mil gracias d todas maneras

Lo mas importante en este tipo de ejercicios, es aprender y no que te lo den todo echo, yo tambien estoy aprendiendo, y abase de darme cabezazos contra la mesa lo voy consigueindo..eso es la programacion, loquear, no darse por vencido y equivocarse miles de veces... de todas formas, por si le sirve de ayuda a alguien o a ti te mando las soluciones de algunos ejercicios por los que preguntas...yo estoy loqueando con el dibuji del triangulo, pero se que lo conseguire como hize con el resto...
Bueno a ver si te ayuda.

Primer EJERCICIO:

program operaciones;
var
primer_numero:real;
segundo_numero:real;
suma:real;
procedure presenta_resultados(suma:real);
begin
writeln('el resultado es: ',suma:0:3);
end;
procedure calculo (var primer_numero,segundo_numero,suma:real);
begin
suma:=primer_numero+segundo_numero;
end;

begin
suma:=0;
writeln('introduzca el primer_numero: ');
readln(primer_numero);
writeln('introduzca el segundo_numero: ');
readln(segundo_numero);
calculo(primer_numero,segundo_numero,suma);
presenta_resultados(suma);
end.

Segundo EJERCICIO

program long;
var
longitud:integer;
letra:char;

procedure linea(longitud:integer;letra:char);
var
i:integer;
begin
for i:= 1 to longitud do
write(letra);
end;

begin
write('introduzca la longitud :');
readln(longitud);
write('introduzca una letra: ');
readln(letra);

linea(longitud,letra);
end.

Cuarto EJERCICIO

program opciones;
var
opcion:integer;
mensaje:string[40];

procedure elegir_opcion(opcion:integer);
var
mensaje:string[40];
begin
case(opcion)of
1:mensaje:=' Abrir cesta de compra existente.';
2:mensaje:='Comenzar cesta de compra nueva.';
3:mensaje:='Añadir producto a la cesta.';
4:mensaje:='Eliminar producto de la cesta';
5:mensaje:='Guardar cesta.';
6:mensaje:='Pedir cesta.';
7:mensaje:='Salir del programa.';
end;
write(mensaje);
end;

begin
repeat
writeln('1. Abrir cesta de compra existente.');
writeln('2. Comenzar cesta de compra nueva.');
writeln('3.Añadir producto a la cesta.');
writeln('4. Eliminar producto de la cesta.');
writeln('5. Guardar cesta.');
writeln('6. Pedir cesta.');
writeln('7. Salir del programa.');
writeln('introduzca un numero');
readln(opcion);
until ((opcion<7)and (opcion>0));

elegir_opcion(opcion);
end.

Espero que te valga...pero copinado no aprenderas..hay que entenderlo sino no vale de nada. un saludo