• Jueves 28 de Marzo de 2024, 08:58

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - hokker

Páginas: [1]
1
Pascal / No puedo resolver un error en pascal
« en: Martes 23 de Abril de 2013, 03:22 »
Código: Pascal
  1.  
El error me ocurre en las ultimas 2 lineas del programa
ESTE ES EL ERROR : convertidor.pas(70,2) Fatal: Syntax error, ";" expected but "UNTIL" found

ESTE ES EL PROGRAMA

{ Introduccion a Algoritmica y Programacion. }
{ Trabajo Practico Numero 4, Ejercicio 16. }
{ Apellido y Nombre: Vergelin Isaias }
{ Este programa convierte unos tipos de unidades a otras de dos magnitudes dadas }
Program ConvertidorDeUnidades;
Var
   c1,c2,c3,c4: Real; {c1, c2, c3, c4 son variables que representan la operacion de conversion de ciertas unidades }
   num: Real; { "num" es el dato numerico que ingresa el usuario para convertirlo }
   mag: Integer;   { "mag" es una variable que representa el tipo de magnitud }
   conver: Integer; { "conver" es una variable que representa la conversion a realizar }
   resp: Char; { "resp" es una variable que representa un caracter }
Begin
   Writeln ('Menu Principal');
   Writeln ('Ingrese el valor que desea convertir'); { valor numerico que no puede ser negativo }
   Readln (num);
   Repeat
      Writeln ('Seleccione el tipo de magnitud: 1_ Velocidad.  2_ Longitud.');
      Readln (mag);
      While (mag<1) or (mag>2) do
      Begin
         Writeln ('El dato ingresado es incorrecto. Vuelva ingresar el tipo de magnitud');
         Readln (mag);
      End;
      If mag=1
      Then
      Begin
         Writeln ('Ingrese el tipo de conversion: 1_ Km/hora a mts/seg.  2_ mts/m a Km/hora.');
         Readln (conver);
         Case conver of
            1: Begin
                   c1:= num*(10/36);
                   Writeln ('El resultado es:', c1, 'metros por segundo');
                End;
            2: Begin
                   c2:= (num*3.6);
                   Writeln ('El resultado es:', c2, 'kilometros por hora');
                End
         Else
         Begin
            Repeat
               Writeln ('El dato ingresado no es correcto. Ingrese el tipo de conversion nuevamente.');
               Readln (conver);
            Until (conver=1) or (conver=2);
         End;
      End;
      If mag=2
      Then
      Begin
         Writeln ('Ingrese el tipo de conversion: 1_ Km2 a Ha.  2_ m2 a cm2.');
         Readln (conver);
         Case conver of
            1: Begin
                   c3:= (num*1/10000);
                  Writeln ('El resultado es:', c3, 'Ha');
                End;
            2: Begin
                   c4:= (num*10000);
                  Writeln ('El resultado es:', c4, 'cm2')
                End
            Else
            Begin
               Repeat
                  Writeln ('El dato ingresado no es correcto. Ingrese el tipo de conversion nuevamente.');
                  Readln (conver);
               Until (conver=1) or (conver=2);
            End;
      End;         
   Writeln ('¿Desea realizar una nueva conversion? S/N');
   Readln (resp);
   Until   (resp<>'s' or 'S');
End.

Páginas: [1]