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.282 ]

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

Programa que realiza o reajuste salarial de acordo com o cargo

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

Visualizador de imagem Pascal/Lazarus

Cauculadora em Pascal

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