sexta-feira, 3 de junho de 2011

Trabalhando com o comando textbackground

O comando textbackground serve para mudar a cor do fundo do texto. Sua sintaxe é textbackground (cor).

Exemplo:

program cordofundotexto;

Begin

textbackground (red);
write ('Olá Mundo!');

End.

Trabalhando com o comando textcolor

O comando textcolor muda a cor do texto na tela. A sintaxe dele é: textcolor (cor).

Exemplo:


program cordotexto;

Begin

textcolor (red);
write ('Olá Mundo!');

End.

Trabalhando com o comando gotoxy

O comando GOTOXY serve para posicionar seu cursor na tela. A sintaxe dele é: gotoxy (coluna, linha).

Exemplo:


program posicionamento;

Begin

gotoxy (15,20);
write ('Meu nome');

End.

segunda-feira, 23 de maio de 2011

Resposta do Exercício de PASCAL - Programa Tabuada

Program tabuadamultiplicar ;
var
numero, n1,n2,n3,n4,n5,n6,n7,n8,n9,n10: integer;
Begin
writeln ('Digite um numero: ');
read (numero);
n1 := numero * 1;
n2 := numero * 2;
n3 := numero * 3;
n4 := numero * 4;
n5 := numero * 5;
n6 := numero * 6;
n7 := numero * 7;
n8 := numero * 8;
n9 := numero * 9;
n10 := numero * 10;
writeln (numero,'* 1 = ',n1);
writeln (numero,'* 2 = ',n2);
writeln (numero,'* 3 = ',n3);
writeln (numero,'* 4 = ',n4);
writeln (numero,'* 5 = ',n5);
writeln (numero,'* 6 = ',n6);
writeln (numero,'* 7 = ',n7);
writeln (numero,'* 8 = ',n8);
writeln (numero,'* 9 = ',n9);
writeln (numero,'* 10 = ',n10);
End.

Resposta do Exercício de PASCAL - Conta atrasada

Program contaatrasada ;
var
conta,juros,multa,valorfinal: real;
dias: integer;
Begin
writeln ('Digite o valor da conta: ');
read (conta);
writeln ('Digite a quantidade de dias de atraso: ');
read (dias);
multa := (5/100) * conta;
juros := (0.33/100) * conta * dias;
valorfinal := conta + multa + juros;
writeln ('O valor a ser pago e: ',valorfinal:3:2);
End.