Programação Estruturada em Pascal

Program Pzim ; {fazer um programa para ler um número e chamar um procedimento que mostra que o numero lido é par ou impar} var num:integer; procedure parimpar(x:integer);      // prcedure nomedo procedimento (variavel:tipo_de_variavel)                             // a variavel deve ser do mesmo tipo, mas de nome diferente     begin         if (x mod 2 = 0) then            //testa se é par             writeln('O número é par')                 // exibe a resposta. antes de else, não se usa ponto e virgula         else                    ...

Program Pzim ; {Faça um algoritmo que leia 7 produtos, contendo codigo, nome, quantidade, preço. No final, imprima os produtos que tenha mais do que 5 unidades.} type r_produto = record     cod:integer;     nome:string;     quant:integer;     preco:real; end; var     v_produto:array [1..3] of r_produto;     i, qmais5:integer;  Begin  qmais5:=0;     for i:=1 to 3 do         begin             writeln('ENTRE COM OS DADOS DOS PRODUUTOS');             writeln('_______________________________');             writeln(' ',I,'o. Produto ');             writeln('_______________________________');             writ...

Program Pzim ; {Faça um algoritmo que, inicialmente, cadastre 5 clientes e depois 5 contas, cada conta de um cliente. No final, imprima o saldo mais alto e o cliente desta conta.} type     r_cliente = record         codigo:integer;         nome:string;         cpf:string;     end;     r_conta = record         codconta:integer;         codcliente:integer;         saldo:real;     end; {nesse caso são dois registros, é necessário somente um type} var v_cliente:array[1..5] of r_cliente; v_conta:array[1..5] of r_conta; i, ref: integer; salmaior:real;  Begin     writeln('C A D A S T R O   D E   C L I E N T E S');     for i:=1 to 5 do         begin...

Program Pzim ; {Foi realizada uma pesquisa entre 20 habitantes de uma cidade. De cada habitante foram coletados os dados: idade, sexo, renda familiar e número de filhos. Faça um programa que leia esses dados, armazenando-os em um vetor. Calcule e mostre a média de salário entre habitantes, a menor e a maior idade do grupo e a quantidade de mulheres com mais de dois filhos} type     r_habitante = record         idade:integer;         sexo:char;         salario:real;         nfilhos:integer;     end; var     v_habitante:array[1..4] of r_habitante;     salmedio, somasal:real;     maiorid, menorid, qtdm2f, i:integer;         Begin      somasal:=0;      qtdm2f:=0;      for i:=1 to 4 d...

Program Pzim ; {A prefeitura de uma cidade fez uma pesquisa entre os seus habitantes, coletando dados sobre o salário, idade e número de filhos. Faça um algoritmo que leia esses dados de 20 pessoas, calcule e mostre: a. A média de salário da população; b. A média do número de filhos; c. O maior salário; d. O percentual de mulheres com salário superior a R$ 1.000,00. antes mesmo de criar as variaveis é necessario cria o registro atraves do type} type     r_pessoas = record        //r_pessoas = registro de pessoas         idade: integer;         salario: real;         filhos: integer;         sexo: char;     end; var     v_pessoas: array[1..5] of r_pessoas;    //v_pessoas = variavel pessoas de r_pessoas     i, somamulher, somafilho: integer; ...

Program Pzim ; {Utilizando a tabela da questão 1, elabore um algoritmo que leia os valores da tabela fornecida. No final, imprima os valores.} var m:array[1..3,1..2] of integer; maior,menor, i,j:integer;  Begin     {inicio do programa}      for i:=1 to 3 do          begin              for j:=1 to 2 do                  begin                      writeln('Digite os valores da matriz : ');                      readln(m[i,j]);                  end;          end;              ...

Program Pzim ; {Elabore um algoritmo que leia a matriz da 3 linhas e 2 colunas. No final, imprima o maior e o menor.} var m:array[1..3,1..2] of integer; maior,menor, i,j:integer;  Begin     {inicio do programa}      for i:=1 to 3 do          begin              for j:=1 to 2 do                  begin                      writeln('Digite os valores da matriz : ');                      readln(m[i,j]);                  end;          end;                 clrscr; // limp...