• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

pekeno

centrar texto

9 mensagens neste tópico

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:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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!');

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

É 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.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Errado!

30 vezes é o " " (espaço)!

o "Olá Mundo!" é so uma vez.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Errado!

30 vezes é o " " (espaço)!

o "Olá Mundo!" é so uma vez.

Boas.

O teu codigo esta bem o do mykos é q vai fazer o q disse.

0

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