Pascal/Turbo Pascal - Ayuda con ejercicio pascal

Hola:
Necesito que me ayudeis con estos programas, por favor.

1. Deberá crear dos funciones:
o Función calcula_euros, que recibe como parámetro una cantidad en pesetas y devuelve como resultado de la función el valor en euros.
o Función calcula_pesetas, que recibe como parámetro una cantidad en euros y devuelve como resultado de la función el valor en pesetas.
Utilice estas funciones en un programa que solicite al usuario la cantidad a convertir y al tipo que deseamos convertir.

Símbolo de MS - DOS
C:cursopro>ppc386 usuario_t6_2.pasFree Pascal Compiler version 1.0.4 [2000/12/30] for i386Copyright (c) 1993-2000 by Florian KlaempflTarget OS: Win32 for i386Compiling usuario_t6_2.pasLinking usuario_t6_2.exe60 Lines compiled, 4.8 secC:cursopro>usuario_t6_2.exe

Para convertir:
1. Pasar de pesetas a euros.
2. Pasar de euros a pesetas.

Opcion: 2
Introduzca cantidad en euros: 30
Son 4992 pesetas.
Continuar (S/N)?s
Para convertir:

1. Pasar de pesetas a euros.
2. Pasar de euros a pesetas.
Opcion: 2
Introduzca cantidad en euros: 30
Son 4992 pesetas.
Continuar (S/N)?s
Para convertir:
1. Pasar de pesetas a euros.
2. Pasar de euros a pesetas.
Opcion:
1Introduzca cantidad en pesetas: 3500
Son 21.04 euros.
Continuar (S/N)?NC:cursopro>


Símbolo de MS - DOS
C:cursopro>ppc386 usuario_t6_2.pasFree Pascal Compiler version 1.0.4 [2000/12/30] for i386Copyright (c) 1993-2000 by Florian KlaempflTarget OS: Win32 for i386Compiling usuario_t6_2.pasLinking usuario_t6_2.exe60 Lines compiled, 4.8 secC:cursopro>usuario_t6_2.exe Para convertir: 1. Pasar de pesetas a euros. 2. Pasar de euros a pesetas. Opcion: 2Introduzca cantidad en euros: 30Son 4992 pesetas.Continuar (S/N)?s Para convertir: 1. Pasar de pesetas a euros. 2. Pasar de euros a pesetas. Opcion: 2Introduzca cantidad en euros: 30Son 4992 pesetas.Continuar (S/N)?s Para convertir: 1. Pasar de pesetas a euros. 2. Pasar de euros a pesetas. Opcion: 1Introduzca cantidad en pesetas: 3500Son 21.04 euros.Continuar (S/N)?NC:cursopro>

Esto es lo que yo he hecho pero tiene errores y no sé como resolverlos al compilar.

Program euro;

(*-- Constantes Globales al programa --*)

Const

EURO=166.386; (* Valor de un euro en pesetas *)

(*-- Funciones y procedimientos --*)

Function calcula_euros (cantidad,opcion: real):real;

begin

calcula_euros:=cantidad*EURO.

end

Function calcula_pesetas (cantidad,opcion: real):real;

begin

calcula_pesetas:=cantidad/EURO;

end;

(*-- Variables globales --*)

Var
opcion: integer;
cantidad: real;
respuesta: char;

(*--Programa principal --*)

Begin
(*Aquí debe ir la solicitud y lectura de datos*)

repeat
writeln ('Para convertir: ');
writeln ('1. Pasar de pesetas a euros. ');
writeln ('2. Pasar de euros a pesetas. ');

writeln ('Opcion: ', opcion);
readln (opcion);

if (opcion='1') then

writeln ('Introduzca la cantidad en pesetas: ');
writeln ('Son ' ,calcula_pesetas(cantidad,opcion):0:2);

else

if (opcion='2') then

writeln ('Introduzca la cantidad en euros: ');
writeln ('Son ' , calcula_euros(cantidad,opcion):0:2);
writeln ('Desea continuar (S/N: ');
readln (respuesta);

until (respuesta='N') or (respuesta='n');

End.

OTRO EJERCICIO:


2.A partir del módulo principal que se presenta a continuación cree los procedimientos necesarios para realizar un programa, llamado usuario_t6_3.pas que pida al usuario dos números y realice la suma de los mismos.
El resultado de una ejecución del programa será por tanto:

Símbolo de MS - DOS
C:cursopro>ppc386 usuario_t6_3.pasFree Pascal Compiler version 1.0.4 [2000/12/30] for i386Copyright (c) 1993-2000 by Florian KlaempflTarget OS: Win32 for i386Compiling usuario_t6_3.pasLinking usuario_t6_3.exe57 Lines compiled, 2.5 secC:cursopro>usuario_t6_3.exe

ntroduzca el primer numero:3
Introduzca el segundo numero:6
El resultado de la suma es: 9.00
C:cursopro>
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.

(*
Fichero: usuario_t6_3.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.

ESTO ES LO QUE YO HE HECHO PERO TIENE ERRORES

Program Operaciones;

(*-- Funciones y procedimientos --*)

Procedure Presenta_resultados (suma:real);
Procedure calculo(primer_numero,segundo_numero:real);

(*-- Variables globales --*)

Var
suma:real;
calculo:real;

(*--Programa principal --*)

Begin
(*Aquí debe ir la solicitud y lectura de datos*)

writeln ('Introduzca el primer numero: ');
readln (primer_numero);
writeln ('Introduzca el segundo numero: ');
readln (segundo_numero);

calculo(primer_numero,segundo_numero,suma);

(*Impresion del resultado de la suma por pantalla*)

writeln ('El resultado de la suma es: ' suma);
Presenta_resultados(suma);

End.

OTRO EJERCICIO

1.Cree un 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 linea, 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.
Símbolo de MS - DOS
C:cursopro>ppc386 usuario_t6_o1.pasFree Pascal Compiler version 1.0.4 [2000/12/30] for i386Copyright (c) 1993-2000 by Florian KlaempflTarget OS: Win32 for i386Compiling usuario_t6_o1.pasLinking usuario_t6_o1.exe31 Lines compiled, 3.6 secC:cursopro>usuario_t6_o1.exeI

ntroduzca longitud de la linea: 20
Introduzca letra: *********************
C:cursopro>usuario_t6_o1.exeI

ntroduzca longitud de la linea: 50
Introduzca letra: ###################################################C:cursopro>

OTRO EJERCICIO:

2. Vamos a crear un programa que imprima un triángulo como el siguiente:
3.
4. *
5. **
6. ***
7. ****
Para ello nos basaremos en el procedimiento línea del ejercicio previo. 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 linea.
Por lo tanto el programa principal deberá solicitar la altura y el carácter, e invocar a pinta_tri.
Símbolo de MS - DOS
C:cursopro>ppc386 usuario_t6_o2.pasFree Pascal Compiler version 1.0.4 [2000/12/30] for i386Copyright (c) 1993-2000 by Florian KlaempflTarget OS: Win32 for i386Compiling usuario_t6_o2.pasLinking usuario_t6_o2.exe37 Lines compiled, 2.0 secC:cursopro>usuario_t6_o2.exe
Introduzca altura del triangulo: 7I
ntroduzca letra: +++++++++++++++++++++++++++++
C:cursopro>

Este es mi programa con errores, el segundo no sé como resolverlo.

Program Linea;

(*-- Funciones y procedimientos --*)

Procedure Linea (caracter:char; cantidad:integer;);

(*-- Variables globales --*)

Var
linea:real;

(*--Programa principal --*)

Begin
(*Aquí debe ir la solicitud y lectura de datos*)

writeln ('Introduzca la longitud de la linea: ');
readln (cantidad);

writeln ('Introduzca letra: ');
readln (caracter);

End.

Bueno, para el primer ejercicio.

el " end " de la funcion " calcula_euros " le falta un ;

ademas la parte

writeln ('Opcion: ', opcion);
readln (opcion);
if (opcion='1') then <-----

la variable opcion es de tipo entero y tu la comparas contra un caracter deberia quedar

if (opcion = 1 ) then

Creo que con eso deberia de correr el primer programa


Para el segundo

Tienes el encabezado del procedimiento calculo como sigue

Procedure calculo(primer_numero,segundo_numero:real);

pero lo mandas a llamar pasando tres parametros

" calculo(primer_numero,segundo_numero,suma); "

cuando el encabezado tiene solo dos, o le agregas el tercer paramento en el encabezado o le quitas el tercer parametro al momento de llamarlo.

ademas no veo por ahi el desarrollo del procedimiento calculo, es decir defines el encaebzado pero no tienes la estructura.


y bueno en el ultimo tienes el procedimiento llamado linea y una variable del mismo nombre, eso es duplicar identificadores, deberas renombrar o el procedimiento o la variable.

Te aconsejo que la proxima vez coloques solamente las dudas que tangas y el codigo o fragmentos del codigo donde creas que esta el error o tu duda.

como conberti numeros al letras turbo pascal

Elaborar un programa en Pascal que presente y calcule las siguientes opciones:

1. Dado un radio en mts.(positivo) calcular e imprimir el volumen de un cilindro si el radio es menor de 10.5 mts. ó el volumen de una esfera en caso contrario.

2. calcular e imprimir la temperatura de un freezer industrial según los rangos siguientes: baja (5°,-25°c) , media (- 26°c,- 50°c) alta (- 51, - 100°c). dadas 5 temperaturas permitir la ejecución repetida.