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

Publicado por NewLinuxer 14/12/2005

[ Hits: 7.171 ]

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

Fatorial

armazenar estoque em uma matriz

Jogo Sudoku em Pascal

Metodo de Ordenacion : Burbuja

exemplo de vetores


  

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

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

O mínimo que você precisa saber sobre o terminal (parte 2)

O mínimo que você precisa saber sobre o terminal (parte 1)

Dicas

Como renomear arquivos de letras maiúsculas para minúsculas

Imprimindo no formato livreto no Linux

Vim - incrementando números em substituição

Efeito "livro" em arquivos PDF

Como resolver o erro no CUPS: Unable to get list of printer drivers

Tópicos

Não to conseguindo resolver este problemas ao instalar o playonelinux (1)

Excluir banco de dados no xampp (1)

phpmyadmin não abre no xampp (2)

Ubuntu não sai som (0)

KeepOS Não consigo usar o comando sudo. (4)

Top 10 do mês

Scripts

[Python] Automação de scan de vulnerabilidades

[Python] Script para analise de superficie de ataque

[Shell Script] Novo script para redimensionar, rotacionar, converter e espelhar arquivos de imagem

[Shell Script] Iniciador de DOOM (DSDA-DOOM, Doom Retro ou Woof!)

[Shell Script] Script para adicionar bordas às imagens de uma pasta

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: