terça-feira, 7 de maio de 2013

Soma da sequencia (n * n) + 1

Program Pzim ;
Var
x,num,soma,soma2:integer;
Begin
    Writeln('Digite um numero maior que ZERO :');              //solicita que seja digitado um numero
    Read(Num); // lê o número
    If num<=0 then //se o número for invalido recusa
    Write ('Número digitado invalido, digite um mumero maior que zero') // exibe a mensagem
    else                           
   
    For x:=1 to num do                         //faz de 1 até o numero
        Begin                                //
            soma:=(x*x)+1;
            soma2:=soma2+soma;               //
        End;

        Write ('Dada a formula (n*n)+1,a soma dos ',num,' numeros é :',soma2);     //exibe a mensagem uma vez
   
End.

sexta-feira, 9 de março de 2012

1) Identifique as entidades:


Deseja-se construir um banco de dados para um sistema de vendas. Em cada venda são vendidos vários produtos e um determinado produto pode aparecer em diferentes vendas. Cada venda é efetuada por um vendedor para um determinado cliente. Um produto está armazenado em uma prateleira.

terça-feira, 10 de janeiro de 2012

Cabo Verde


Obrigado pela visita dos internautas de Cabo Verde, continuem visitando. Um dia visito vocês.

quarta-feira, 26 de outubro de 2011

SIMULADOR DE LOTERIA


{Escrever um programa que simule um jogo da loto. O computador deve gerar 5 números aleatórios
entre 50 possíveis (0 a 49), armazenando-os em um vetor (dez_sort) de 5 posições. Em seguida,
o usuário deverá ler um vetor (aposta)com 10 posições (que representa uma aposta).
O programa deve, então, verificar e imprimir uma mensagem mostrando quantos números o usuário acertou.
De acordo com o exemplo abaixo o usuário acertou 4 dezenas.
}
Program Exer_99 ;
var
dez_sort :array[1..5]of integer;    //vetor para receber as dezenas geradas aleatoriamente
aposta :array[1..10]of integer; //vetor para receber as dezenas apostadas
a, acerto,posi,i,j:integer;

Begin
acerto:=0;
for j:= 1 to 5 do      // for para gerar as cinco dezenas aleatórias
begin
a:=(random(50))-1;     //o -1 é para gera de 0 a 49
dez_sort[j]:=a;        //o vetor recebe na posição j de 1 ate 5, as 5 dezenas geradas
writeln(dez_sort[j]);  // motra das dezenas geradas, para comparação,
end; // não precisa ter no programa
for i:= 1 to 10 do
begin                         // for para receber no vetor as dezenas apostadas
writeln('Digite 1 numero de 0 a 49');
readln (aposta[i]);     // o indice i vai de 1 ate 10
end;

for j:= 1 to 10 do              //esse for é para receber as dezenas apostadas
begin
for i:= 1 to 5 do     //esse é para comparar as sorteadas com a apostada, testa as 5 sorteadas com cada apostada
begin
if aposta[j]=dez_sort[i] then     //se for iguais ...
acerto:=acerto+1; // acrescenta mais 1
end;
end;
writeln('Os acertos foram: ', acerto ); //no final mostra quantas foram acertadas.
End.

sexta-feira, 14 de outubro de 2011

ALGORITMO QUE RECEBA 3 VALORES INTEIROS

 ALGORITMO QUE RECEBA 3 VALORES INTEIROS
( CONSIDERE QUE NÃO SERÃO INFORMADOS VALORES IGUAIS )
- ESCREVA A SOMA DOS DOIS NÚMEROS MAIORES.


Program Soma_Maiores;
var X, Y, Z, S1, S2, S3, Soma: Integer;

Begin
write ('Informe um número inteiro: ');
read (X);
write ('Informe outro número diferente do anterior: ');
read (Y);
write ('Informe outro número diferente dos anteriores: ');
read (Z);
S1:=X+Y;
S2:=Y+Z;
S3:=X+Z;
IF ((S1>S2) AND (S1>S3)) Then
Soma:= S1;
IF ((S2> S1) AND (S2>S3)) Then
Soma:= S2;
IF ((S3>S1) AND (S3>S2)) THEN
Soma:= S3;
write ('A soma dos números é ',Soma);
End.

sábado, 3 de setembro de 2011

Exercício com Vetores


O usuário informa 2 vetores (a e b)
Montar o vetor c "oscilando" entre o vetor (a e b).
conforme abaixo

VETOR a
1, 2, 3, 4, 5, 6, 7, 8, 9, 10
VETOR b
11, 12, 13, 14, 15, 16, 17, 18, 19, 20

tendo como resposta o
VETOR c
1, 11, 2, 12, 3, 13, 4, 14...
------------------------------------------------

Program Ex7 ;
Var
a,b:array [1..10] of integer;
c:array [1..20] of integer;
i,j:integer;
Begin
for i:=1 to 10do
begin
writeln('informe o vetor1 V[',i,']:');
readln(a[i]);
end;
for i:=1 to 10 do
begin
writeln('informe o vetor2 V[',i,']:');
readln(b[i]);
end;
j:=1;
for i:=1 to 10 do
begin
c[j]:=a[i];
j:=j+2;
end;
j:=2;
for i:=1 to 10 do
begin
c[j]:=b[i];
j:=j+2;
end;
for i:=1 to 20 do
begin
write(c[i],' ');
end;
End.