Algoritmos

Disponível somente no TrabalhosFeitos
  • Páginas : 5 (1197 palavras )
  • Download(s) : 0
  • Publicado : 24 de setembro de 2012
Ler documento completo
Amostra do texto
1) A Federação Gaúcha de Futebol contratou você para escrever um programa para fazer uma estatística do resultado de vários GRENAIS. Escreva um algoritmo para ler o número de gols marcados pelo Inter, o número de gols marcados pelo GRÊMIO em um GRENAL, imprimindo o nome do time vitorioso ou a palavra EMPATE. Logo após escrever a mensagem "Novo GRENAL 1.Sim 2.Não?" e solicitar uma resposta. Se aresposta for 1, o algoritmo deve ser executado novamente solicitando o número de gols marcados pelos times em uma nova partida, caso contrário deve ser encerrado imprimindo:
- Quantos GRENAIS fizeram parte da estatística.
- O número de vitórias do Inter.
- O número de vitórias do Grêmio.
- O número de Empates.
- Uma mensagem indicando qual o time que venceu o maior número de GRENAIS (ou NÃOHOUVE VENCEDOR).
Observação: Para implementar um contador em Pascal (incrementar): variável := variável + 1  


program alg01;


var gols_g, gols_i, nov : integer;
gcont, icont, econt :integer;

begin
gols_g := 0; {Gols Grêmio}
gols_i := 0; {Gols Inter}
gcont := 0; {Vitórias do Grêmio}
icont := 0; {Vitórias do Inter}econt := 0; {Empates}

repeat

writeln ('Gols do Gremio: ');
read (gols_g);
writeln ('Gols do Inter: ');
read (gols_i);

if gols_g > gols_i then
writeln ('GREMIO!!!');
if gols_g>gols_i then
gcont:=gcont+1
else
if gols_i > gols_g thenwriteln ('INTER!!!');
if gols_i>gols_g then
icont:=icont+1
else
if gols_g=gols_i then
writeln ('Empate...');
if gols_g=gols_i then
econt:=econt+1 ;
writeln;
writeln ('Novo GRENAL? 1- Sim 2- Não');
read (nov);
until nov=2;if nov=2 then
writeln ('Número de vitórias do Grêmio = ',gcont) ;
writeln ('Número de vitórias do Inter = ',icont) ;
writeln ('Número de empates = ',econt);
if gcont>icont then
writeln ('Grêmio Vencedor');
if icont>gcont then
writeln ('Inter Vencedor');
ifgcont=icont then
writeln ('Não houve Vencedor');

end.



2) Escreva um programa que calcule o fatorial de N (N!), sendo que o valor inteiro de N deve ser escolhido pelo usuário. Sendo que:
N! = 1 * 2 * 3 * ... * (N - 1) * N
0! = 1 (por definição)


Program Alg02;
var N:integer;
F,cont,V:real;
Begin
writeln('Programa para fazer fatorial');
cont:=1;V:=1;
writeln('Inserir número: ');
readln(N);
if N = 0 then
writeln ('Fatorial de ',N,'!= 1')
else
repeat
cont:=cont+1;
F:=V*cont;
V:=F;
If cont=N then
begin
writeln('Fatorial de ',N,'!= ',trunc(F));
end;
until cont=N
End.

3) Faça um programa para calcular o número de dias decorridos entre duas datas (considerar também a ocorrência de anos bissextos),sabendo-se que:
- cada par de datas é lido numa linha, a última linha contém o número do dia negativo
- a primeira data na linha é sempre a mais antiga
- o ano está digitado com quatro dígitos
- um ano será bissexto se for divisível por 400 ou se for divisível por 4 e não o for por 100


Program Alg03 ;
var dia1,mes1,ano1,dia2,mes2,ano2,dif,aux: integer;
biss:integer ;
Beginwriteln ('Insira o primeiro dia');
read (dia1);
writeln ('Insira o primeiro mês');
read (mes1);
writeln ('Insira o primeiro ano');
read (ano1);
writeln ('Insira o segundo dia');
read (dia2);
writeln ('Insira o segundo mês');
read (mes2);
writeln ('Insira o segundo ano');
read (ano2);
dif:=0;
aux:=ano1;
repeat
biss:=aux mod...
tracking img