Alguns tipos de loops mais usados no Pascal.

• Download loops.pas
• Enviar nova versão

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.

Calculadora Empresarial (Baseada nas fórmulas de Logística)Lazarus

soma de um intervalo

validando um triângulo e classificando-o como equilátero, isoceles ou escaleno.

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

usando vetor e procedimentos

Nenhum comentário foi encontrado.