Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
naygq

Numeros primos pascal

Recommended Posts

Olá preciso de ajuda de vocês, eu fiz um programa em pascal, que apresenta os 200000 primeiros numeros primos, fiz e compilei no pascalzim, ai tudo bem, só que o problema é que no turbo pascal 7 nao roda e eu preciso que rode nele, pois preciso implementar o gettime pra cronometrar o tempo de execução ja que no pascalzim nao compila o gettime.

Alguem pode me ajudar dando uma verificada no meu codigo em pascal, ele so aparece um erro quando compilo no turbo pascal, ja no pascalzim ele compila e roda perfeitamente.Muito obrigada:)

Segue abaixo o codigo:

program primos;

var

i, atual, total: integer;

INICIO,result,FINAL:integer;

begin

total := 0;

INICIO:=0;

FINAL:=200000;

if ((INICIO mod 2) = 0) then

atual := INICIO + 1

else

atual := INICIO;

repeat

i := 3;

while ((atual mod i) <> 0) and (i < atual) do

i := i + 1;

if i = atual then

total := total + atual;

WRITELN(atual);

atual := atual + 2;

until

(atual >= FINAL);

result := total;

READKEY;

end.

Compartilhar este post


Link para o post
Compartilhar em outros sites

ou, acho que é por causa de que está faltando o "uses crt;" antes do var... pois sem ele acho que o turbo pascal não reconhece o "readkey"...se não for isso estou por fora.

no caso o código ficaria assim:

 program primos;
[B]uses crt;[/B]
var
i, atual, total: integer;
INICIO,result,FINAL:integer;
begin
total := 0;
INICIO:=0;
FINAL:=200000;
if ((INICIO mod 2) = 0) then
atual := INICIO + 1
else
atual := INICIO;
repeat
i := 3;
while ((atual mod i) <> 0) and (i < atual) do
i := i + 1;
if i = atual then
total := total + atual;
WRITELN(atual);
atual := atual + 2;
until
(atual >= FINAL);
result := total;
READKEY;
end.

o que está faltando é o que está em negrito...;D

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×