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

Publicado por NewLinuxer 14/12/2005

[ Hits: 7.192 ]

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

Mostrar maior e menor

Cadastro de Passagens Aéreas

Calculadora Empresarial Lazarus

Cauculadora em Pascal

Funções strings e matemáticas


  

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.

[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


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Enviar mensagem ao usuário trabalhando com as opções do php.ini

Meu Fork do Plugin de Integração do CVS para o KDevelop

Compartilhando a tela do Computador no Celular via Deskreen

Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota

Configuração para desligamento automatizado de Computadores em um Ambiente Comercial

Dicas

Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil

Cups: Mapear/listar todas as impressoras de outro Servidor CUPS de forma rápida e fácil

Criando uma VPC na AWS via CLI

Multifuncional HP imprime mas não digitaliza

Dica básica para escrever um Artigo.

Tópicos

Quero saber sobre os melhores aplicativos de office para usar em 2024 ... (4)

Problemas com o PulseAudio no lubuntu (8)

Som e sistema de janelas não obedecem (1)

Toda vez que tento atualizar o clamav me deparo com erros ao atualizar... (1)

Sudo apt update (6)

Top 10 do mês

Scripts

[C/C++] reverse shell na marra!

[Outros] Dicas e truques Matematica Básica

[C/C++] criptografia de modo simples

[C/C++] intdb - gerador de wordlist numerica

[C/C++] genpass - gerador de senhas seguras

A maior comunidade GNU/Linux da América Latina! Artigos, dicas, tutoriais, fórum, scripts e muito mais. Ideal para quem busca auto-ajuda.

Site hospedado por: