Erro pascalzim '.' não esperado.

[lordzhinho]

Eu comecei a fazer um programinha que nem eu sei para que serve direito, porém está aparecendo o seguinte erro na hora de compilar:

"Erro sintático na linha 26... 

'.' não esperado."

Isso é no ponto final, depois de (End), poderiam por favor me dizer como resolver o problema, e como eu poderia fazer-lo mais eficiente?

Ps: comecei a estudar programação na ultima sexta, me deem dicas pf.

 

Program P1 ;
var
nome: string;
peso: integer;
idade: integer;
altura: real;
sexo: char;
procedure nome; 
procedure peso; 
procedure idade; 
procedure altura;
procedure sexo; 
procedure pasciente;
Begin
pasciente:= nome;
writeln:= ('qual o nome do pasciente');
readln:= (nome);
writeln:= ('qual o peso do pasciente');
readln:= (peso);
writeln:= ('qual a idade do pasciente');
readln:= (idade);
writeln:= ('qual a altura do pasciente');
readln:= (altura);
writeln:= ('qual o sexo do pasciente');
readln:= (sexo);
End.

 

[Visitante]

tente acrescentar um end; antes do end.  e verifica

end;

 

end.

 

ficando assim

[lordzhinho]

Se eu fizer isso, aparece:

"Erro sintático na linha 28...

'END' não esperado."

[Visitante]

tem como postar o resto do código ? a parte de cima ?

@lordzhinho

porque esses

 

"procedure nome; 
procedure peso; 
procedure idade; 
procedure altura;
procedure sexo; " ?

[lordzhinho]

Esse é todo o código.

[Visitante]

Estranho, voce ta fazendo isso em qual programa ? e por onde iniciou esse novo formulário ?

@lordzhinho

tente excluindo essas linhas com 'Procedure'

@lordzhinho

 

Tente asim:

Program P1 ;

var
nome: string;
peso: integer;
idade: integer;
altura:real;
sexo: char;

Begin
writeln:= ('qual o nome do pasciente');
readln:= (nome);
writeln:= ('qual o peso do pasciente');
readln:= (peso);
writeln:= ('qual a idade do pasciente');
readln:= (idade);
writeln:= ('qual a altura do pasciente');
readln:= (altura);
writeln:= ('qual o sexo do pasciente');
readln:= (sexo);

pasciente:= nome;

End.

obs:  Esse 'paciente' é o que ? nao visualizei ele em lugar nenhum

[lordzhinho]

Eu estou fazendo isso no pascalzim, e o

"procedure nome; 
procedure peso; 
procedure idade; 
procedure altura;
procedure sexo; "

Eu coloquei porque estava aparecendo:

"o indentificador 'pasciente' não foi declarado dentro do escopo de program",

então eu coloquei esses pra prevenir possíveis futuros erros.

E como assim esse novo formulário?

[Visitante]

@lordzhinho Tente como falei, agora declare esse Paciente nas variaveis

 

[lordzhinho]

Eu declarei o (pasciente) como variável, e então apareceu o erro:

"O comando writeln não pode ser utilizado no lugar de variáveis ou expressões."

O procedure pasciente evita o erro:

"O indentificador pasciente não foi encontrado dentro do escopo de program.

A presença ou ausência dos comandos:

"procedure nome; 
procedure peso; 
procedure idade; 
procedure altura;
procedure sexo; "

Não influenciaram em nada até agora.

[Visitante]

me mostra como você colocou paciente como variável e o que ocorreu , se colocou ele na variável, n deve dar esse erro @lordzhinho

[lordzhinho]

var
nome: string;
peso: integer;
idade: integer;
altura:real;
sexo: char;
pasciente: string;
Begin
writeln:= ('qual o nome do pasciente');
readln:= (nome);
writeln:= ('qual o peso do pasciente');
readln:= (peso);
writeln:= ('qual a idade do pasciente');
readln:= (idade);
writeln:= ('qual a altura do pasciente');
readln:= (altura);
writeln:= ('qual o sexo do pasciente');
readln:= (sexo);
 
pasciente:= nome;
 
End.

continua com o erro:"O comando writeln não pode ser utilizado no lugar de variáveis ou expressões."

[Visitante]

@lordzhinho entendi o erro.

 

writeln('qual a altura do pasciente');
readln(paciente);

 

Acredito q o erro esta nesses ':='

 

coloque todos nesses formatos e teste novamente

[lordzhinho]

Deu certo, obrigado pela ajuda e desculpa o trabalho que eu dei, valeu. 

[Simon Viegas]

Olá @lordzhinho,

 

19 horas atrás, lordzhinho disse:

Deu certo, obrigado pela ajuda e desculpa o trabalho que eu dei, valeu. 

Já conseguiu desenvolver restante do programa?

 

Qualquer coisa, posta o código atual aqui e onde está com dúvidas.

 

No aguardo.

[lordzhinho]

Consegui sim, obrigado.