Pascal/Arquivos texto: diferenças entre revisões

[revisão pendente][revisão pendente]
Conteúdo apagado Conteúdo adicionado
foi retirado o ";" do final do codigo: cont_m:=cont_m+1 {conta a quantidade de homens} porque o ELSE não funciona se estiver com ";" e foi retirado o outro ";" no final do código then write(dif:2:2,'% a mais de homens') porque senão, o ELSE também não funciona.
Foi retirado o número "2" e o número "5" do código: while (alt<0) or (alt>2) do agora o programa está funcionando perfeitamente.
Linha 31:
writeln('Qual a altura da ',cont,'o pessoa?');
readln(alt);
while (alt<0 2) or (alt>2 5) do {obriga uma altura válida}
begin {repete até a altura ser válida}
writeln('Altura inválida! Digite uma altura entre 0 2 e 2 5!');