escreve os números de 1 a 9 com repeat - until [Pascal/Kylix]

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

Publicado por NewLinuxer 14/12/2005

[ Hits: 7.169 ]

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

Crivo de Eratóstenes Simples em Ada 95

Extenso em dll, com parâmetros adicionais

maior elemento de uma matriz

Visualizador de imagem Pascal/Lazarus

mostrar a meior e a menor temperatura do ano com vetor

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

Patrocínio

Site hospedado pelo provedor RedeHost.

Destaques

Agora temos uma assistente virtual no fórum!!! (246)

Links importantes de usuários do VOL (3)

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

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

Flatpak: remover runtimes não usados e pacotes

Mudar o gerenciador de login (GDM para SDDM e vice-versa) - parte 2

Tópicos

Linux rodando do hd externo ou ssd? (0)

Tentando acessar o linux por conexão área remota (1)

Site para donwloads de ISO windows server, xp e outros. (2)

Acabei de formatar meu ssd e deu erro (0)

Não consigo copiar arquivos do Mint para meu smartphone com android 11... (5)

Top 10 do mês

Xerxes
1° lugar - 61.857 pts
Fábio Berbert de Paula
2° lugar - 47.761 pts
Buckminster
3° lugar - 17.689 pts
Mauricio Ferrari
4° lugar - 14.768 pts
Diego Mendes Rodrigues
5° lugar - 12.974 pts
Daniel Lara Souza
6° lugar - 12.815 pts
Alberto Federman Neto.
7° lugar - 12.616 pts
Alessandro de Oliveira Faria (A.K.A. CABELO)
8° lugar - 10.897 pts
edps
9° lugar - 10.134 pts
Andre (pinduvoz)
10° lugar - 9.676 pts

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