escreve os números de 1 a 9 com repeat

escreve os números de 1 a 9 com repeat - until

Publicado por NewLinuxer 14/12/2005

[ Hits: 7.500 ]

Download exemplo15.pas

0 0

Denuncie Favoritos Indicar

programa de exemplo feito pra escrever os números de 1 a nove com o repeat - until

Esconder código-fonte

program Exemplo;
uses crt;
var i: integer;
{escreve os números de 1 a 9}

begin
  clrscr;
  i:= 1;
  repeat
    writeln(i);
    i:= i+1;
    writeln;

  until(i=10);

  readkey;
end.

Scripts recomendados

cadastro de um cliente com registro

calculo da somatoria da diagonal principal

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

Maior numero do Vetor

cadastro de multiplos clientes com registro

Comentários

[1] Comentário enviado por jobsavage em 14/12/2005 - 14:50h

Sinceramente acho que esse tipo de script soh contribue negativamente para o site. Acredito que o site deveria ser mais seletivo quanto ao que publica. Dar essa quantidade de pontos pra esse tipo de script e o mesmo para qq outro (útil) que eu venha a fazer me desestimula muito a escrever qq coisa por aqui.

0 0

[2] Comentário enviado por wtet em 14/12/2005 - 17:08h

caro Jobsavage, gostaria de lhe dizer que esta seção se trata de introdução portanto, é um local para se colocar scripts simples para quem não tem familiaridade com a linguagem.
é uma forma de ensinar a linguagem

0 0