Erro de compilação

[phdmais]

Gente vou colocar o codigo abaixo e vou colocar os erros que o compilador encontra:

Syntax error: ";" expected but "USES" found

e agora vou colocar meu codigo:

program Pascal
uses crt;
var  a , b , c : real;
var  e :integer;
var  f , g , h :real;
var  i , j , k :real;
begin
clrscr;
writeln ('Digite o tamanho de um lado do triangulo, esse lado vai ser o a');
read(a)(i);
writeln ('Digite o tamanho de outro lado do triangulo, esse sera o lado b');
read(b)(j);
writeln ('Digite o tamanho de outro lado do triangulo, esse sera o lado c');
read(c)(k);
e:=a-b;
writeln ('codigo:'<e>)
e:=a-c;
writeln ('codigo:'<e>)
e:=b-a
writeln ('codigo:'<e>)
e:=b-c
writeln ('codigo:'<e>)
e:=c-a
writeln ('codigo:'<e>)
e:=c-b
writeln ('codigos:'<e>>
writeln ('se ouve apenas 3 codigos de numero 0, o triangulo e eqilatero')
writeln ('se ouve 2 codigos de numero 0, seu triangulo e escaleno')
writeln ('se não teve erro de numero 0, aguarde o proscessamento de numero 2')
g:=c/a
f:=a/c
h:=b/c
writeln ('codigos do proscessamento 2.1:'<g>)
write (','<f>
write (','<h>
g:=c/b
f:=a/b
h:=b/a
writeln ('codigos do proscessamento 2.2:'<g>)
write (','<f>)
write <','<h>)
writeln ('Você obteve o numero dois de erro alguma vez? se sim, seu triangulo e isosceles, se não passou em nenhum teste,')
write ('E impossivel formar um triangulo com aqueles lados')
writeln ('Quer saber se seu triangulo e um triangulo retangulo?')
writeln ('Veja o teste')
sqr(<i>):=sqr(<b>)+sqr(<c>)
i:=sqrt(<i>)
sqr(<k>):=sqr(<a>)+sqr(<b>);
k:=sqrt(<k>)
sqr(<j>):=sqr(<c>)+sqr(<a>);
j:=sqrt(<j>)
writeln ('Tem uma dupla de numeros iguais?Se sim, seu triangulo e mesmo um triangulo retangulo'<a>);
write ('='<i>)
writeln (''<j>)
write ('='<b>)
writeln (''<k>)
write ('='<c>)
writeln ('Sistema preparado para encerramento, caso deseje sair, aperte "ENTER"')
readkey
end.

ta ai ó, se achar o erro me avise PF

Editado Fevereiro 5, 2009 por phdmais

[Beraldo]

faltou um ponto-e-vírgula no fim da linha do program

[phdmais]

faltou um ponto-e-vírgula no fim da linha do program

valeu... mas agora... o erro ta assim:

Syntax Error: ";" Expected but "(" found. :P

Obs.: já coloquei ponto-e-virgula em todos os fins de codigo.(Inclusive no begin(não sei se põe, mas sem o ponto-e-virgula e a mesma coisa)e no end.(tambem não sei se põe mas...)

[Beraldo]

isto não faz sentido:

read(a)(i);

no máximo, você pode fazer:

read(a, i);

OBS: Ao postar a mensagem de erro, diga em qual linha ele ocorreu e destaque essa linha

[phdmais]

isto não faz sentido:

read(a)(i);

no máximo, você pode fazer:

read(a, i);

OBS: Ao postar a mensagem de erro, diga em qual linha ele ocorreu e destaque essa linha

Sou novo na linguagem, desculpe pelos erros, e Ok vou colocar em destaque a linha, o problema e que eu to usando um compilador o Free Pascal, e não sei se ele diz a linha que ouve o erro.

E agora o erro é:(no outro post)

[Beraldo]

ele mostra a linha e a coluna do erro. Veja:

beraldo@metropolis:~/src$ fpc pascal.pas

Free Pascal Compiler version 2.2.0 [2008/09/20]for x86_64

Copyright © 1993-2007 by Florian Klaempfl

Target OS: Linux for x86-64

Compiling pascal.pas

pascal.pas(3,3) Error: Wrong number of parameters specified for call to "int"

pascal.pas(3,6) Error: Error in type definition

pascal.pas(7) Fatal: There were 2 errors compiling module, stopping

Fatal: Compilation aborted

Error: /usr/bin/ppcx64 returned an error exitcode (normal if you did not specify a source file to be compiled)

Código que usei para testar:

program teste;
var
x:int;
begin
write('oi');
end.

De fat, o erro é na linha 3, e nas colunas 3 e 6 ;)

[phdmais]

La ta escrito: (Compilador Free Pascal)

Triangulos.Pas(17,30) Error: Illegal expression

Triangulos.Pas(17,30) Fatal: There are 1 errors compiling module, stoping

Triangulos.pas(0) Fatal: Compilation Aborted.

e o codigo ta assim:

(Desculpem, eu não sei a linha de erro)

program Pascal;
uses crt;
var  a , b , c : real;
var  e :integer;
var  f , g , h :real;
var  i , j , k :real;
begin
clrscr;
writeln ('Digite o tamanho de um lado do triangulo, esse lado vai ser o a');
read(a, i);
writeln ('Digite o tamanho de outro lado do triangulo, esse sera o lado b');
read(b, j);
writeln ('Digite o tamanho de outro lado do triangulo, esse sera o lado c');
read(c, k);
e:=a-b;
writeln ('codigo:'<e>);
e:=a-c;
writeln ('codigo:'<e>);
e:=b-a;
writeln ('codigo:'<e>);
e:=b-c;
writeln ('codigo:'<e>);
e:=c-a;
writeln ('codigo:'<e>);
e:=c-b;
writeln ('codigos:'<e>);
writeln ('se ouve apenas 3 codigos de numero 0, o triangulo e eqilatero');
writeln ('se ouve 2 codigos de numero 0, seu triangulo e escaleno');
writeln ('se não teve erro de numero 0, aguarde o proscessamento de numero 2');
g:=c/a;
f:=a/c;
h:=b/c;
writeln ('codigos do proscessamento 2.1:'<g>);
write (','<f>);
write (','<h>);
g:=c/b;
f:=a/b;
h:=b/a;
writeln ('codigos do proscessamento 2.2:'<g>);
write (','<f>);
write <','<h>);
writeln ('Você obteve o numero dois de erro alguma vez? se sim, seu triangulo e isosceles, se não passou em nenhum teste,');
write ('E impossivel formar um triangulo com aqueles lados');
writeln ('Quer saber se seu triangulo e um triangulo retangulo?');
writeln ('Veja o teste');
sqr(<i>):=sqr(<b>)+sqr(<c>);
i:=sqrt(<i>);
sqr(<k>):=sqr(<a>)+sqr(<b>);
k:=sqrt(<k>);
sqr(<j>):=sqr(<c>)+sqr(<a>);
j:=sqrt(<j>);
writeln ('Tem uma dupla de numeros iguais?Se sim, seu triangulo e mesmo um triangulo retangulo'<a>);
write ('='<i>);
writeln (''<j>);
write ('='<b>);
writeln (''<k>);
write ('='<c>);
writeln ('Sistema preparado para encerramento, caso deseje sair, aperte "ENTER"');
readkey;
end.;

Editado Fevereiro 4, 2009 por phdmais

[phdmais]

ele mostra a linha e a coluna do erro. Veja:

beraldo@metropolis:~/src$ fpc pascal.pas

Free Pascal Compiler version 2.2.0 [2008/09/20]for x86_64

Copyright © 1993-2007 by Florian Klaempfl

Target OS: Linux for x86-64

Compiling pascal.pas

pascal.pas(3,3) Error: Wrong number of parameters specified for call to "int"

pascal.pas(3,6) Error: Error in type definition

pascal.pas(7) Fatal: There were 2 errors compiling module, stopping

Fatal: Compilation aborted

Error: /usr/bin/ppcx64 returned an error exitcode (normal if you did not specify a source file to be compiled)

Código que usei para testar:

program teste;
var
x:int;
begin
write('oi');
end.

De fat, o erro é na linha 3, e nas colunas 3 e 6 ;)

valeu.

Mas... como posso ver a raiz quadrada de uma variavel?