Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #57 da revista programar. Faz já o download aqui!

pekeno

centrar texto

Mensagens Recomendadas

electron++    0
electron++

Não existe propriamente uma função.

normalmente uma shell tem 80 caracteres assumindo que não a redimensionaste.

queres colocar o texto Olá Mundo!

tamanho do texto=10

80/2=40

fazes

for(i:=1 to (40-(10/2)))

write(" ");

writeln("Olá Mundo!");

Basicamente é matemática, para este exemplo vais "imprimir" 30 caracteres de espaço e depois o texto com uma mudança de linha.

PS:Já não programo pascal ha bue mas acho que o codigo é +/- aquilo :cheesygrin:

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
mykos    0
mykos

Não existe propriamente uma função.

normalmente uma shell tem 80 caracteres assumindo que não a redimensionaste.

queres colocar o texto Olá Mundo!

tamanho do texto=10

80/2=40

fazes

for(i:=1 to (40-(10/2)))

write(" ");

writeln("Olá Mundo!");

Basicamente é matemática, para este exemplo vais "imprimir" 30 caracteres de espaço e depois o texto com uma mudança de linha.

PS:Já não programo pascal ha bue mas acho que o codigo é +/- aquilo :thumbsup:

É Kuase isso so uma pekena coisa que te escapou

for(i:=1 to (40-(10/2))) do

begin

write(" ");

writeln("Olá Mundo!");

end;

mas tambem podes usar o comando gotoxy

por exemplo

se vais escrever ola mundo!

tem 10 caracteres, logo 80-10=70

70/2=35

logo tens que começar a escrever na coluna 35

gotoxy(coluna,linha)

e fica:

gotoxy(35,1);

writeln('ola mundo!');

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
electron++    0
electron++

estive mesmo para referir o gotoxy mas optei por não o fazer porque nem toda a gente usa o mesmo compilador. eu lembro-me que no 10º usa o Pzim e adorava aquilo :P mas depois tinhas o Turbo Pascal, Free Pascal Compilar, compiladores da treta etc etc

e alguma funções ou tinham outro nome ou simplesmente não existiam dai a ter optado pelo metodo das "3 pancadas" :thumbsup:

Mykos

O teu codigo ta errado pah!

o que ele vai fazer é escreve

Olá mundo! Olá Mundo! etc etc etc

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
electron++    0
electron++

Lazarus usa o Free Pascal Compiler. E o Lazarus é um IDE não um compilador e é usado para Delphi que não passa de Pascal Oriented-Object.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
NCS_One    2
NCS_One

É Kuase isso so uma pekena coisa que te escapou

for(i:=1 to (40-(10/2))) do

begin

write(" ");

writeln("Olá Mundo!");

end;

mas tambem podes usar o comando gotoxy

por exemplo

se vais escrever ola mundo!

tem 10 caracteres, logo 80-10=70

70/2=35

logo tens que começar a escrever na coluna 35

gotoxy(coluna,linha)

e fica:

gotoxy(35,1);

writeln('ola mundo!');

Boas.

Como ele tinha estava bem, como tens vai escrever "(ESPAÇO)Olá Mundo!" 30 vezes.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita a nossa Política de Privacidade