Programa Exemplo 1

Aqui Vai um programa-exemplo com tudo o que aprendemos com os tutoriais de pascal até agora, vamos colocar na prática o que aprendemos.

__________

Program Exemplo;
uses crt;
var porcentagem,num,resultado:real;

begin
clrscr;
writeln('Este programa calcula a porcentagem de um numero');
write('Digite o numero : ');
readln(num);
write('Digite a porcentagem a ser encontrada do numero Anterior : ');
readln(porcentagem);
writeln; {este comando adiciona uma linha em branco}

clrscr;

resultado:=(num/100)*porcentagem; {este ‚ o processamento}

{Nota: A porcentagem Y de X ‚ (X/100)*Y }

writeln( porcentagem:3:2,' % de ', num:3:2,' ‚ ', resultado:3:2);
readkey;

end.

__________

Dica: Você pode ter dificuldades de colar este código em seu editor, já que o editor não conta com o recurso de copiar e colar, faça o seguinte: Cole este programa em um arquivo do bloco de notas (.TXT) e depois renomeie para .PAS e abra o com o seu editor.

Obrigado por acessarem o blog