dev pascal

[Visitante: Rsalazarperez]

Por gentilesa, alguen sabe qual é o problema

Program Exemplo_2;

{Programa para determinar se 3 valores lidos do teclados são lados de um triângulo

Observações:

Supondo que x,y,z, sejam os valores lidos, então:

1-) Se x<y+z e y<x+z e z<x+y então x,y,z são lados de um triângulo e se:

2-) x=y=z então é um triângulo Equilátero

3-) x=y ou x=z ou y=z então é um triângulo Isósceles

4-) x<>y<>z então é escaleno}

Label INICIO;
    Uses CRT;
    Var x,y,z : Real;
        Tecla : Char;
    Begin
    INICIO:
       ClrScr;
       Write('X = ');
       Readln(x);
       Write('Y = ');
       Readln(y);
       Write('Z = ');
       Readln(z);
       Writeln;Writeln;
       If (x<y+z) and (y<x+z) and (z<x+y)
          Then If (x=y) and (x=z)
                  Then Writeln('TRIÂNGULO EQUILÁTERO')
                  Else If (x=y) Or (x=z) Or (y=z)
                          Then Writeln('TRIÂNGULO ISÓSCELES')
                          Else Writeln('TRIÂNGULO ESCALENO')
          Else Writeln('X,Y,Z NÃO SÃO LADOS DE UM TRIÂNGULO');
       Writeln;Writeln;
       Write('Deseja Continuar ? --> ');
       Tecla:=ReadKey;
       If (Tecla='s') Or (Tecla='S')
          Then Goto INICIO;
    End.

12 / 5 prueba1.pas

Fatal: Syntax error, BEGIN expected but USES found

[KirederiK]

Bom dia,

O compilador já avisa o erro pra você. Observe a mensagem:

Syntax error, BEGIN expected but USES found

Isso acontece porque a importação de bibliotecas (o uses) deve ser colocado antes do bloco de declarações de variáveis (var) ou rótulos (label).

Ou seja, para seu programa compilar corretamente, apenas mude a ordem de:

Label INICIO;
Uses CRT;

para

Uses CRT;
Label INICIO;

Vale lembrar que o uso de Goto é uma prática de programação não apreciada. Recomendo que dê uma olhada no comando repeat until ou mesmo no while e substitua esse Goto por um desses comandos.

Abraços!