Delphi Exercicio

Assuntos Gerais
#1

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))

end;
end.[/b]

#2

Coloque em quando você mandar uma mensagem pois assim fica difícil.

#3

fiz algumas Modificaçoes;

procedure Exercicio; var DataInformada,quarta: TDate; DataTexto: string; // Dia:integer; begin write ('Digite a data:'); readln(DataTexto); DataInformada:= strToDate(DataTexto); // writeln (DayOfWeek (DataInFormada)); quarta:= DataInformada; if ( quarta>4 ) then while ( quarta>4 ) do begin DataInformada:= DataInformada -1; writeln(FormatDateTime('dddd',DataInFormada) ); writeln (DayOfWeek (DataInFormada)); writeln(formatDateTime('dd "de" mmm "de" yyyy',DataInformada)); writeln (DayOfWeek (DataInFormada)); end else while( DayOfWeek (DataInFormada)>4 ) do begin DataInformada:= DataInformada +1; writeln(FormatDateTime('dddd',DataInFormada) ); writeln (DayOfWeek (DataInFormada)); writeln(formatDateTime('dd "de" mmm "de" yyyy',DataInformada)); writeln (DayOfWeek (DataInformada)); end end;

#4

P: Java?
R: Acho que não.
mas sempre tem alguem disposto a ajudar!!

#5

Eu Nao disse qe era Java …
EXercicio DELPHI

#6

Mas o que esta acontecendo com seu exercicio, ta dando erro ??

#7

naum consegui entender o que vc quiz dizer com
if (quarta > 4)… o q é esse 4?

#8

na verdade nao sei se e erro ou so erro de sintaxe …
ele nao para o elo de repetição

#9

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!

#10

Obrigada pela aJuda de vcs … mas conseGui fazer … :smiley:

#11