Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.
    • DiF

      Poste seus códigos corretamente!   21-05-2016

      Prezados membros do Fórum do Clube do Hardware, O Fórum oferece um recurso chamado CODE, onde o ícone no painel do editor é  <>     O uso deste recurso é  imprescindível para uma melhor leitura, manter a organização, diferenciar de texto comum e principalmente evitar que os compiladores e IDEs acusem erro ao colar um código copiado daqui. Portanto convido-lhes para ler as instruções de como usar este recurso CODE neste tópico:  
cpdrede

Tem um detalhe pequeno no código que dá erro

Recommended Posts

Olá galéra, muito bem, ta faltando um pequeno detalhe no meu código em pascal que não estou vendo o erro.

" Faça um algoritmo que leia cinco números, e escreva quantos desses números é negativo. "

Segue o Código

program teste;

uses crt;

var

x : integer;

num : integer;

cont : integer;

Begin

{Repeat}

clrscr;

x:= 1;

cont := 0;

for x:= 1 to 80 do

begin

gotoxy(20,1);

writeln('..:: SABER NUMEROS NEGATIVOS ::..');

gotoxy(x,3);

writeln('-');

gotoxy(x,21);

writeln('-');

end;

for x:= 1 to 5 do

begin

gotoxy(05,05);

writeln('Digite um Numero ..: ');

gotoxy(27,05);

readln(num);

gotoxy(27,05);

write(' ');

if (num < 0) then

begin

cont := num;

end;

cont:= cont+num;

end;

if (cont > 0) then

begin

gotoxy(10,10);

write('Todos Numeros Positivos ');

end

else

begin

gotoxy(10,12);

writeln('Quantidade de Numeros Negativos ', cont);

end;

readkey;

{until;}

End.

Será que alguêm poderia me dar uma luz nesse exercício. Valeu

Compartilhar este post


Link para o post
Compartilhar em outros sites

Aí vai:


program teste;

uses crt;

var
x : integer;
num : integer;
cont : integer;

Begin
clrscr;
x:= 1;
cont := 0;
for x:= 1 to 80 do
begin
gotoxy(20,1);
writeln('..:: SABER NUMEROS NEGATIVOS ::..');
gotoxy(x,3);
writeln('-');
gotoxy(x,21);
writeln('-');
end;

for x:= 1 to 5 do
begin
gotoxy(05,05);
writeln('Digite um Numero ..: ');
gotoxy(27,05);
readln(num);
gotoxy(27,05);
write(' ');
if (num < 0) then
begin
cont := cont +1;
end;
end;

if (cont = 0) then
begin
gotoxy(10,10);
write('Todos Numeros Positivos ');
end
else
begin
gotoxy(10,12);
writeln('Quantidade de Numeros Negativos ', cont);
end;

readkey;
end.

Compartilhar este post


Link para o post
Compartilhar em outros sites
  • Autor do tópico
  • beleza, valeu muito obrigado.

    Como disse faltou só um detalhe................

    Compartilhar este post


    Link para o post
    Compartilhar em outros sites

    Oooops. A comparação estava com operador errado (= no lugar de ==).


    if (cont == 0) then
    begin
    gotoxy(10,10);
    write('Todos Numeros Positivos ');
    end
    else
    begin
    gotoxy(10,12);
    writeln('Quantidade de Numeros Negativos ', cont);
    end;

    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






    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

    ×