Programação Estruturada em Pascal

Program cubo ; {Fazer um programa para ler um número e chamar uma função que retorna o cubo do numero} var num:integer;    //variavel de entrada que recebe o numero digitado r_cubo:real;    //variavel de saida que recebe a resposta da função //inicio da função function cubo(n:integer):real;     begin         cubo:= exp(3*ln(n));     end; //fim da função e incio do algoritmo //se inicia pelo programa, pedindo pra digitar um número e depois lê esse número  Begin      writeln('Digite um número : ');      readln(num);         r_cubo:=cubo(num);  //a variavel recebe o resultado e chama a função         writeln('O cubo no número : ',num, ' é ',r_cubo:1:2); // exibe o resultado  End.

Program Pzim ; {Escrever um programa que, utilizado de procedimentos, leia um valor e mostre : a) seu fatorial b) seu quadrado garante que o numero lido seja positivo.} var    //variaveis globais num:integer; {a partin daqui é o procedimento de fatorial } procedure fatorial(x:integer); var fat:integer; i:integer; begin     fat:=1; // inicia-se a variavel com 1, pois por padrão seria zero, e se voce multiplica qualquer num por zero dá sempre zero     for i:=1 to x do         begin             fat:=fat*i;         end;     writeln('O fatorial do numero ', x, ' é : ',fat);        //aqui mostra o resultado end; {a partin daqui é o procedimento de quadrado } procedure quadrado(y:integer); var quad:integer; begin     quad:=y*y;     ...

Program Pzim ; {Fazer um programa para ler um número (N) e chamar um procedimento que mostra o somatório de 1 até N, garantir que o número seja positivo} var         //variaveis globais n:integer; {aqui é a varviavel go programa - variavel global} procedure soma(x:integer); var           //variaveis locais i, somas:integer;              // aqui são variaveis que irão funcionar someente no procedimento,                         // não pode ter variaveis com mesmo nome no programa e no procedimento begin                         // o procedimento é iniciado com um begin     for i:=1 to x do     ...

Program Pzim ; var num,i:integer; procedure somar(x :integer);        begin         for i:=1 to 10 do    //a variavel i é global, por isso não é preciso iniciar ela aqui no procedimento             begin                 writeln(  x, ' + ', i, ' = ', i+x ); // mostra a tabuada             end;                        end;  Begin      {inicio do programa}     writeln('Digite um número : ');      //solicita que entre com um número     readln(num);                    //recebe o numero     clrscr;...

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...