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.

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.

Cabo Verde

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

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.

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.

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.

Pense em suas ações !!!