Exercicio 04 Prova 03 - TP

04 - Criar um programa onde o o usuario informe o caracter a ser mostrado e a
quantidade de linhas, para formar a seguinte figura que deve ser centralizada
na tela:

 
                                        *
                                       ***
                                      *****
                                     *******
                                    *********
                                   ***********
                                  *************

Fonte:

program prva03ex04;
uses crt;
procedure arvore(car:string;qtlin:integer);
var col,lin:integer;
copcar:string;
begin
clrscr;
copcar:=(copy(car,1,1));
copcar:=copcar+copcar;
col:=40;
lin:=1;
for lin:=1 to qtlin do
begin
gotoxy(col,lin);
write(car);
car:=car+copcar;
col:=col-1;
delay(100);
end;
end;
var car:string;
qtlin:integer;
begin
clrscr;
write('Digite o Caracter que deseja utilizar......: ');
readln(car);
write('quantidade de linhas (max 25/min 1)........: ');
readln(qtlin);
arvore(car,qtlin);
readln;
end.

Exercicio 03 Prova 03 - TP

03 - Criar um programa que receba dois numeros: A e B . Este programa devera conter um subprograma para fazero calculo onde o numero A deve ser elevado ao numero B.

program prova03ex03;
uses crt;
procedure expo(numero,exp:integer);
var cont,vlr:integer;
begin
vlr:=numero;
if exp=0 then
vlr:=1
else
if exp=1 then
vlr:=numero
else
for cont:=(exp-1) downto 1 do
begin
vlr:=vlr*numero;
end;
writeln;
writeln(numero,' Elevado a ',exp,' = ',vlr);
end;
var numero,exp:integer;
begin
clrscr;
write('Digite um numero inteiro: ');
readln(numero);
write('Digite o exp p/ o calculo :');
readln(exp);
while exp<0 do
begin
write('Expoente Invalido! Redigite...: ');
readln(exp);
end;
expo(numero,exp);
readln;
end.

Exercicio 02 Prova 03 - TP

02 - 02 - Criar um programa que receba idade e sexo, até que a idade seja igual a 0.

Mostrar na tela:
- Média de idade do grupo
- Maior idade entre o grupo masculino
- Maior idade entre o grupo feminino
- Percentual de individuos do sexo maculino
- Percentual de individuos do sexo feminino
- Total de Pessoas informadas

program prova03ex02;
uses crt;

var idade,mmasc,mfem,total,idt,masc:byte;
sexo:char;
mdgrupo,pcfem,pcmasc:real;
begin
clrscr;
write('Idade....: ');
readln(idade);
mmasc:=0;
mfem:=0;
while idade <>0 do
begin
write('sexo (M/F).: ');
readln(sexo);
sexo:=upcase(sexo);
while (sexo<>'M')and (sexo <>'F') do
begin
write('Sexo invalido! Redigite....: ');
readln(sexo);
sexo:=upcase(sexo);
end;
inc(total,1);
inc(idt,idade);
case sexo of
'M': begin
if idade>mmasc then
mmasc:=idade;
inc(masc,1);
end;
'F': begin
if idade>mfem then
mfem:=idade;
end;
end;
write('Idade....: ');
readln(idade);
end;
mdgrupo:=idt/total;
pcfem:=((total-masc)/total)*100;
pcmasc:=masc/total*100;
writeln;
writeln('Media Idade Grupo...................: ',mdgrupo:5:2);
writeln;
writeln('Maior idade entre o grupo masculino.: ',mmasc);
writeln;
writeln('Maior Idade entre o grupo feminino..: ',mfem);
writeln;
writeln('Percentual de individuos do sexo "M": ',pcmasc:5:2,' %');
writeln;
writeln('Percentual de individuos do sexo "F": ',pcfem:5:2,' %');
writeln;
writeln('Total de Pessoas Informadas.........: ',total);
readln;
end.

Exercicio 01 prova 03 - TP

01 - Crie um programa que receba um numero inteiro, calcule o seu fatorial em uma function
e mostre o resultado na tela.

Fonte:

program prova03ex01;
uses crt;
function fator(numero:integer):integer;
var cont,valor:integer;
begin
valor:=0;
for cont:=(numero-1) downto 2 do
begin
valor:=valor+(numero*cont);
end;
fator:=valor;
end;
var numero:integer;
begin
clrscr;
write('Informe um numero inteiro...: ');
readln(numero);
writeln;
writeln('Fatorial do numero ',numero,' eh: ',fator(numero));
readln;
end.