Loops

Publicado por Daniel 26/10/2005

[ Hits: 4.417 ]

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

Calculadora básica em Pascal

calculo da somatoria da diagonal principal

mais um modelo de programa com vetor

Calculadora utilizando until e case

Multiplicação de Matrizes


  

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