Loops

Publicado por Daniel 26/10/2005

[ Hits: 4.831 ]

Download loops.pas




Alguns tipos de loops mais usados no Pascal.

  



Esconder código-fonte

program loops;

var
 i: integer;

begin
  for i := 1 to 10 do
  begin
    Write(i, ' ');
  end;
  
  Writeln;
  
  i := 1;
  while not (i = 11) do
  begin
    Write(i, ' ');
    i := i + 1;
  end;

  Writeln;

  i := 1;
  repeat
    Write(i, ' ');
    i := i + 1;
  until
   i = 11;
end.

Scripts recomendados

Executar comando do DOS.

Primo_for

Calculadora De Decimo Terceiro Salário feita no Lazarus (Delphi 7 para Linux)

Calculadora de décimo terceiro salário(Lazarus)

exemplo de vetores


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts