Agora que eu passe nessa matéria inútil eu coloco um exerciciozinhos pra vcs se divertirem :
1) Um programa pra imprimir a sequencia de Fibonacci ( cada numero é a soma dos dois anteriores )
program fibonacci;
uses crt;
var a,b,c,n,p:integer;
begin
clrscr;
a:=0;
b:=1;
textcolor (yellow);
textbackground (blue);
writeln ('Digite o n£mero de termos da sequencia');
writeln;
readln (p);
writeln;
writeln ('Para o n£mero de ',p,' termos, a sequencia de Fibonacci ‚ :');
writeln;
writeln(a);
writeln(b);
for c:= 1 to (p-2) do
begin
n:=a+b;
a:=b;
b:=n;
writeln (n);
end;
readln;
end.
2) Fazer uma calculadora com as quatro operações principais
program calculadora;
uses crt;
var
opcao:integer;
{ Rotinas de calculos }
{ 1a Rotina : Adicao }
procedure adicao;
var
x,a,b:real;
begin
writeln ('Entre com o primeiro termo');
readln(a);
writeln ('Entre com o segundo termo');
readln(b);
x:=a+b;
writeln('O valor da soma dos termos ‚ ',x:5:2);
writeln ('Tecle <ENTER> para voltar ao Menu');
readln;
end;
{2a Rotina : Subtracao }
procedure subtracao;
var
a,b,x:real;
begin
writeln ('Entre com o maior termo');
readln (a);
writeln ('Entre com o menor termo');
readln (b);
x:=a-b;
writeln ('A diferenca entre os termos ‚ : ',x:5:2);
writeln ('Tecle <ENTER> para voltar ao menu');
readln;
end;
{3a Rotina : Multiplicacao }
procedure multiplicacao;
var
a,b,x:real;
begin
writeln ( 'Entre com o primeiro termo');
readln (a);
writeln ( 'Entre com o segundo termo');
readln (b);
x:=a*b;
writeln ('O produto entre os termos ‚ : ',x:5:2);
writeln ('Tecle <ENTER> para voltar ao menu');
readln;
end;
{ 4a Rotina : Divisao }
procedure divisao;
var
a,b,x:real;
begin
writeln ('Entre com o termo divisor');
readln (a);
writeln ('Entre com o termo dividendo');
readln (b);
x:=a/b;
writeln ('O resultado da divisao dos termos ‚ : ',x:5:2);
writeln ('Tecle <ENTER> para voltar ao programa');
readln;
end;
{ Programa Principal }
begin
opcao:=0;
while opcao<>5 do
begin
clrscr;
writeln ('Tecle uma das opcoes abaixo: ');
writeln;
writeln ('1...........................SOMA');
writeln ('2......................SUBTRACAO');
writeln ('3..................MULTIPLICACAO');
writeln ('4........................DIVISAO');
writeln ('5................FIM DE PROGRAMA');
readln (opcao);
if opcao=1 then
adicao;
if opcao=2 then
subtracao;
if opcao=3 then
multiplicacao;
if opcao=4 then
divisao;
end;
end.
3) Constuir uma matriz de até 100 linhas e exatas 3 colunas. Imprimir a soma da 3ª coluna. Imprimir a matriz. Pesquisar elementos, se o elemento pesquisado estiver na primeira coluna, imprimir a linha onde ele se encontrar, se não estiver na primeira coluna, exibir a mensagem : Código não encontrado. Usar procedures e functions.
program tabela;
uses crt;
type
tab = array [1..100,1..3] of integer;
const
espaco = ' ';
var
num,l,c,cod,flag: integer;
matriz: tab;
{procedure leitura}
procedure leitura (l,c,num:integer; var matriz:tab);
begin
for l:= 1 to num do
for c:= 1 to 3 do
begin
writeln ('Digite o numero da matriz [',l,',',c,']: ');
readln (matriz [l,c]);
writeln;
end;
end; {procedure leitura}
{function soma}
function soma (num:integer):integer;
var
resultado: integer;
begin
resultado:=0;
for l:= 1 to num do
begin
resultado:= resultado + matriz[l,3];
end;
soma:= resultado;
end; {function soma}
{procedure imprime}
procedure imprime (l,c,num:integer; var matriz:tab);
begin
writeln;
for l:=1 to num do
begin
for c:=1 to 3 do
write (matriz[l,c]:5,espaco,'³');
writeln;
end;
end; {procedure imprime}
{procedure pesquisa}
procedure pesquisa (l,c,num:integer; matriz:tab);
begin
while cod >=0 do
begin
writeln;
write ('Digite o elemento que deseja pesquisar: ');
readln (cod);
writeln;
flag:= 0;
for l:=1 to num do
if matriz[l,1]=cod then
begin
flag:= 1;
for c:=1 to 3 do
write (matriz[l,c]:5,espaco,'³');
end;
if (flag = 0) and (cod >= 0) then
begin
writeln ('C¢digo nÆo encontrado');
flag:=0;
end;
writeln;
end;
end; {procedure pesquisa}
{programa principal}
begin
clrscr;
writeln ('Digite o numero de linhas desejado: ');
writeln;
readln (num);
leitura (l,c,num,matriz);
writeln;
writeln ('A soma dos elementos da terceira coluna da matriz e ', soma(num));
imprime (l,c,num,matriz);
pesquisa (l,c,num,matriz);
writeln ('O programa foi finalizado.');
readkey;
end. {programa principal}