Programação Estruturada em Pascal

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.

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

{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]);  // m...

 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.

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.