Logo Hardware.com.br
Fokkker
Fokkker Novo Membro Registrado
13 Mensagens 0 Curtidas

Problema com pascal

#1 Por Fokkker 02/05/2008 - 14:10

Ola eu começando a programar em pascal mas tenho um problema por exemplo faço uma programa para calcular a area de um circulo compilo e tudo direito tudo bem executo o programa pede o raio do circulo e depois sai instantaneamente. O codigo é o seguinte:


program Area_Circulo;
const
PI = 3.141519265;
var
Area, Comprimento, Raio : real;
BEGIN
writeln( 'Digite o Raio : ' );
readln( Raio );
Area := PI * Raio * Raio;
Comprimento := 2 * PI * Raio;
writeln( 'Área = ´, Area );
writeln( 'Comprimento da Circunferencia = ', Comprimento );
END.


O que é que estou fazendo de mal ?

Obrigado

Responder Tópico
tpcvasco
tpcvasco General de Pijama Registrado
2.9K Mensagens 330 Curtidas
#2 Por tpcvasco
02/05/2008 - 15:10

Por onde vc está executando o programa? Pode ser q ele esteja abrindo o executável e mostre a resposta tão rápido q vc nao veja. Não entendo mto de Pascal, mas isso acontece qdo se executa um programa pelo Borland C.
Abra o prompt, vá até a pasta do executável e o execute "na mão" e veja se funciona.

"Milhouse: - Médicos e bombeiros são heróis.
Bart Simpson: - Olha, as casas continuam pegando fogo e as pessoas continuam doentes. Os verdadeiros heróis são os Schwarzenegger's, os Stallone's, e, em menores proporções, os Vandame's..."
Fokkker
Fokkker Novo Membro Registrado
13 Mensagens 0 Curtidas
#3 Por Fokkker
02/05/2008 - 15:23

Eu uso 2 compiladores o free pascal e o pascalzim. O unico que motra neste caso a area do circulo é o pascalzim mas só na opçao executar depois de fazer o arquivo .exe e executando a partir da pasta acontece aquilo que disseste o meu problema é faze-lo parar na resposta e não sair

XXxSquallxXX
XXxSquallxXX Novo Membro Registrado
4 Mensagens 1 Curtida
#4 Por XXxSquallxXX
02/05/2008 - 15:39

Meu amigo é o seguinte!!!
Pelo que eu entendi vc quer que ele fique parado na tela certo?
Entao vc vai chamar a biblioteca uses crt logo no inicio ok.
No final antes de end. vc vai colocar readkey(parar a tela).
pronto. vlw!!!
Tenta ae acho q vai dar certo!!

program Area_Circulo;
Uses crt;
const
PI = 3.141519265;
var
Area, Comprimento, Raio : real;
BEGIN
clrscr;
writeln( 'Digite o Raio : ' );
readln( Raio );
Area := PI * Raio * Raio;
Comprimento := 2 * PI * Raio;
writeln( 'Área = ´, Area );
writeln( 'Comprimento da Circunferencia = ', Comprimento );
Readkey;
END.

Responder Tópico
© 1999-2024 Hardware.com.br. Todos os direitos reservados.