Ola gente … Meu professor passo umas questoes para nossa turma… mas nao estou Conseguindo fazer um nao sei se é erro de Ortografia oq seria … la vai a questao criar um programa que determinada data,
o programa encontre todas as quartas-feiras subsequentes ate hj.
E a aminha resolucao esta assim
[b]procedure Exercicio;
var DataInformada,i: TDate;
DataTexto: string;
cont :integer;
begin
cont:=0;
write (‘Digite a data:’);
readln(DataTexto);
DataInformada:= strToDate(DataTexto);
if (i>4) then
begin
while (i>4) do
begin
DataInformada:= DataInformada -1;
writeln(FormatDateTime(‘dddd’,DataInFormada) );
end;
end;
writeln(formatDateTime(‘dd “de” mmm “de” yyyy’,DataInformada));
if (i<4) then
begin
while (i<4) do
begin
DataInformada:= DataInformada +1;
writeln(FormatDateTime(‘dddd’,DataInFormada) );
end;
end;
writeln(formatDateTime(‘dd “de” mmm “de” yyyy’,DataInformada))
ok,
em que momento voce decrementa o quarta para que ele seja menor que teu 4 e saia do while?
ou dentro do teu while coloque um if testando uma condição que vc ache necessária e faça um break;
pelo menos a quebra de um while em java é com o break;
não sei em delphi!