Loops

Publicado por Daniel 26/10/2005

[ Hits: 4.412 ]

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

Cronômetro feito no Lazarus(Delphi 7 para Linux)

programa pra somar e tirar média

Tratar campos not null

exemplo de vetores

soma da diagonal principal de uma matriz


  

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