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]
