Gestão e Programação de Sistemas Informáticos

3 comentários:

Anónimo disse...

8/12/09 16:55  

Ola Diandro tenho uma duvida no pascal estou a criar um programa no pascal que a professora mandou so que da sempre erros. podias-me dar uma ajuda. o programa é o seguinte.
_________________________________________
program ex23;
uses crt;

var i, x, cont1, cont2, cont3, cont4: integer;

begin
clrscr;
cont1:=0; cont2:=0; cont3:=0; cont4:=0;
for i:= 1 to 20 do
begin
write('Informe um valor (0-100): ');
readln(x);
if (x>=0) and (x<=25) then cont1:=cont1 + 1;
if (x>25) and (x<=50) then cont2:=cont2 + 1;
if (x>50) and (x<=75) then cont3:=cont3 + 1;
if (x>75) and (x<=100) then cont4:=cont4 + 1;
end;
writeln('No intervalo 0 - 25 existem ', cont1, ' numeros.');
writeln('No intervalo 26 - 50 existem ', cont2, ' numeros.');
writeln('No intervalo 51 - 75 existem ', cont3, ' numeros.');
writeln('No intervalo 76 - 100 existem ', cont4, ' numeros.');
readkey;
end.
____________________________________
o objectivo é "Escrever um algoritmo/programa em Pascal que lê 20 valores, um de cada vez, e conta quantos deles estão em cada um dos intervalos [0, 25], (25, 50], (50, 75], (75, 100], escrevendo esta informação"

fico a espera o meu nome é Antonio so que vai dizer anonimo porque nao tenho conta no google.
obrigada

Diandro disse...

11/12/09 13:52  

olá!
olha tens que por end; antes do último end.
ou seja
end;
end.
tenta dessa forma.
força...

Anónimo disse...

11/12/09 18:12  

Ola sou eu o Antonio olha Diandro fiz o que disses-te e deu certo obrigado pela ajuda. este blog é um espectaculo vou dizer aos meus amigos.