Guest --Hugo -- Postado Junho 8, 2008 Denunciar Share Postado Junho 8, 2008 program saida;uses crt;var nome:string; x:integer;begin nome:='nome'; textbackground(0); textcolor(15); clrscr; gotoxy(5,12); writeln ('Programa desenvolvido por:'); writeln; for x:=1 to length(nome) do begin textcolor(7); if (x=1) or (x=10) or (x=17) then textcolor(11); gotoxy(x+20,15); write(copy(nome,x,1)); delay(80); end; delay(1000);end.Agradeço a resposta desde de já! Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Marcelo Utikawa da Fonseca Postado Junho 11, 2008 Denunciar Share Postado Junho 11, 2008 Eu não sei muita coisa de pascal (para ser sincero quase nada!) mas pelo que entendi o seu programa exibe uma espécie de banner na tela. Converter para C não é tão simples pois isso não faz parte da linguagem e irá variar conforme o SO em uso.No Linux o que é muito usado para isso seria a lib ncurses. Já no dos/windows existia uma lib da borland (turbo c) que continha funções como gotoxy, textcolor... Para que exatamente você precisa converter este código? Não dá para muar alguma coisa? Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Guest --Hugo --
program saida;
uses crt;
var nome:string;
x:integer;
begin
nome:='nome';
textbackground(0);
textcolor(15);
clrscr;
gotoxy(5,12);
writeln ('Programa desenvolvido por:');
writeln;
for x:=1 to length(nome) do begin
textcolor(7);
if (x=1) or (x=10) or (x=17) then textcolor(11);
gotoxy(x+20,15);
write(copy(nome,x,1));
delay(80);
end;
delay(1000);
end.
Agradeço a resposta desde de já!
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.