[Pascal] Pedido De Ajuda

[BPinto98 235]

Peço desculpa desde já o Double-Post, sei que de facto deveria fazer editar invés de publicar novamente. No entanto ficaria realmente muito confuso.

 

Bem estive a analisar o meu algoritmo que publiquei no post anterior e vi que haveria de facto um erro.

Se o month<m deveria dar logo voto permitido visto já ser obrigatoriamente mais velho que o necessário. No entanto com o algoritmo anterior ainda iria sofrer mais um processo de verificação que seria o dos dias que podia tornar impedido o voto quando deveria de facto autorizar. Pelo que o algoritmo iria ter o que lhe chama-mos de BUG. Por isso estive a alterar o código e aqui fica as alterções eheh :)

 

RachadoPT depois vê se está bom e comenta, o que devo alterar ainda para aperfeiçoar... Lembro que sou novato nisto ehehe xP

program pascaleleicoes;
uses DOS;

var age,day,month,year:integer;
var y,m,d,wd:word;

begin
	GetDate(y, m, d, wd);
        writeln('Introduza o seu Dia de Nascimento (Numero)');
        readln(day);
        writeln('Introduza o seu Mes de Nascimento (Numero)');
        readln(month);
        writeln('Introduza o seu Ano de Nascimento (Numero)');
	readln(year);
	age := y - year;

	if age > 18 then
		writeln('Ja pode votar!');
        if age = 18 then
                Begin
                if month<m then
                        writeln('Ja pode votar!');
                if month=m then
                        Begin
                        if day<d then
                        writeln('Ja pode votar!');
                        if day=d then
                        writeln('Ja pode votar!');
                        if day>d then
                        writeln('Nao pode votar...');
                        end;
                if month>m then
                writeln('Nao pode votar...')
                end;
        if age < 18 then
		writeln('Nao pode votar...');
        readln();
end.