escreve os números de 1 a 9 com repeat - until
Publicado por NewLinuxer 14/12/2005
[ Hits: 7.176 ]
programa de exemplo feito pra escrever os números de 1 a nove com o repeat - until
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.
Função Fatorial Recursiva em Ada 95
Calculadora de décimo terceiro salário em Pascal
dizer se o aluno passou ou nao
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.
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
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
Criando uma VPC na AWS via CLI
Multifuncional HP imprime mas não digitaliza
Dica básica para escrever um Artigo.
Como Exibir Imagens Aleatórias no Neofetch para Personalizar seu Terminal
Tópicos
Não consigo instalar linux mint [RESOLVIDO] (8)
Melhorando a precisão de valores flutuantes em python[AJUDA] (14)
Instalação Uefi com o instalador clássico do Mageia [RESOLVIDO] (2)
Top 10 do mês
-
Xerxes
1° lugar - 68.870 pts -
Fábio Berbert de Paula
2° lugar - 52.523 pts -
Buckminster
3° lugar - 19.428 pts -
Mauricio Ferrari
4° lugar - 16.305 pts -
Alberto Federman Neto.
5° lugar - 15.084 pts -
Diego Mendes Rodrigues
6° lugar - 13.710 pts -
Daniel Lara Souza
7° lugar - 14.153 pts -
edps
8° lugar - 11.871 pts -
Andre (pinduvoz)
9° lugar - 11.449 pts -
Alessandro de Oliveira Faria (A.K.A. CABELO)
10° lugar - 11.219 pts
Scripts
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:
