Cálculos - Limites (Resposta)

E ai, galera? Conseguiram resolver a questão de limites do último post?

Segue resolução:

Dúvidas?

Se gostarem comentem para eu solucionar mais casos.

Programa que calcula Porcentagem - PZim!

Boa noite pessoal!

O algoritmo a seguir vai fazer as seguintes instruções:

Vai ler e imprimir o ID do garçom, a quantidade de mesas atendidas, assim como o valor arrecadados pelo garçom, e ao final vai calcular e mostrar os 10% que o garçom vai ganhar. A condição para o programa parar de calcular é o ID ser igual a 0 (Zero).

Program Gorjeta ;
var
id, qnt_mesa: integer;
valor_mesas, porc: real;
Begin
 
 
  writeln ('Digite ID Garçom, digite 0 "Zero" para parar: ');
  read (id);
 
  While (id <> 0) do
  begin
  Writeln ('Digite quantidade de mesas atendidas: ');
  read (qnt_mesa);
  writeln ('Digite o valor arrecadados pelo garçom: ');
  read (valor_mesas);
 
  writeln ('ID do garçom: ', id);
  writeln ('Quantidade de mesas atendidas: ', qnt_mesa);
  writeln ('10% do garçom R$', valor_mesas * 0.10:3:2);

writeln ('Digite ID Garçom: ');
read (id);
end;

End.

Cálculos - Limites

Olá mundo!
A matéria de Cálculos é uma das mais preocupantes, vou por alguns exemplos de Limites para que vocês possam se basear:

Essa função é resolvida da seguinte forma,

O limite está tendendo para 2, como você pode ver logo abaixo do lim (limite). Basta você substituir os valores de x, por 2. E calcular normalmente, onde você vai encontrar o valor de 3.

Vamos praticar? Busquem a solução para equação abaixo:

Na próxima postagem eu trago a solução.

Video-Aula de Como Instalar Prestashop (Loja Virtual)

Olá Mundo!

Essa vídeo aula foi da minha época de IFBA. Foi feito na matéria de Web Design. Ensina como instalar na sua máquina uma loja virtual. É bem interessante pra quem quer hospedar sua loja sem custos em seu próprio computador.

Pegadinha com IF - Pascal Zim!

Olá Mundo!

Segue um programa básico para entender o funcionamento do if..else.
Note que há duas condições para esse programa funcionar.. primeira   if a or (5>3) then, se essa condição fosse falsa, iria direto para o fim do programa e executaria o segundo bloco e executaria o que está fora dos blocos, após o end; E, se essa condição for verdadeira, o programa ainda vai verificiar se  if 7 < 2 then é verdadeiro para poder executar o primeiro bloco de instruções.
Note que sempre o que está fora do end; vai ser executado, independente do resultado das condições.

Vamos praticar?

Program Pzim ;
var a: boolean;

Begin

  a := false;

  if a or (5>3) then          
  if 7 < 2 then
  begin
    writeln ('a');
    writeln ('b');
  end
  else
  begin
    writeln ('c');
    writeln ('d');
  end
  else
  begin
    writeln ('e');
    writeln ('f');
  end;
  writeln ('e');          

End.

Programa em Pascal.

Agora um programa que classifica as notas de uma turma em "Suficientes", "Insuficientes", e "Excelente". Sendo que é usado uma estrutura de repetição, para o programa continuar solicitando notas até que determinado comando (-1) seja inserido. Ao final ele te mostra quantas notas foram suficientes, quantas insuficientes e quantas excelentes, além de dar a média da turma.

Código:

Program MediaTurma;

var

Media_Aluno,

Soma,

Media_Total:real;

s_excelentes ,

s_suficientes ,

contador,

s_insuficientes: integer;

Begin

  

  Soma := 0;

  

  s_excelentes := 0;         //guarda a quantidade de notas excelentes

  s_suficientes :=0;       //guarda a quantidade de notas suficientes

  s_insuficientes :=0;      //guarda a quantidade de notas insuficientes

  contador := 0;

  

  writeln('Este programa classifica as notas de uma turma em excelente, suficiente e insuficiente.');

  writeln;

  writeln('Digite -1 para finalizar de entrar as notas.');

  

  

  write ('Digite a media de um aluno: ');

  readln (Media_Aluno);

  

  while (media_aluno <> -1) do    //Se a nota digiitada for -1 ele finaliza o programa

  begin

    if (media_aluno >=0) and (media_aluno <=10) then     // condição para que a nota seja entre 0 a 10

    begin

      

      Soma := Soma + Media_aluno;    //guarda as médias digitadas

      Contador := Contador + 1;      //guarda a quantidade de médias digitadas

      

      if (media_aluno >= 9) and (media_aluno <= 10) then    //condição para armazenar as notas excelentes

      begin

        s_excelentes := s_excelentes + 1

      end

      else

      

      if (media_aluno  >= 7) and (media_aluno <= 8) then        //condição para armazenar as notas suficientes

      begin

        s_suficientes := s_suficientes + 1

      end

      

      else

      

      if (media_aluno >=0) and (media_aluno <= 6) then   //condição para armazenar as notas insuficientes

      begin

        s_insuficientes := s_insuficientes + 1

      end

      

      else;

      write ('Digite a media de um aluno: ');   //repete o bloco

      readln (Media_Aluno);

    end

    

    else

    begin

      write ('Nota inválida, digite uma nota de 0 a 10, ou -1 para sair: ');     //caso seja digitada uma nota maior que 10, exibe essa mensagem

      readln (Media_Aluno);

    end ;

    if (media_aluno <= -2)  then                   // condição para que nenhuma nota negativa seja digitada

    begin

      write ('Nota negativa inválida, digite uma nota de 0 a 10, ou -1 para sair: ');

      readln (Media_Aluno);

    end

  end;

  

  Media_Total := soma / contador;    //calcula a média total

  

  writeln;

  writeln;

  writeln('Número de notas Excelentes: ', s_excelentes);     //exibe as notas excelentes.

  writeln('Número de notas Suficientes: ', s_suficientes);        //exibe as notas suficientes.

  writeln ('Número de notas Insuficientes: ', s_insuficientes);        //exibe as notas insuficientes.

  

  writeln;

  writeln;

  writeln('A média das notas = ', Media_Total:3:1)    //exibe a média

End.

Pratiquem! ;)

Linguagem de Programação

Em principio, para aprendermos o que é lógica da programação, usamos no primeiro semestre do curso a linguagem Pascal, o Pascal Zim (Você pode fazer o download no post anterior), é o compilador que é utilizado para o desenvolvimento dessa linguagem. É uma linguagem simples e de fácil entendimento.
Vou postar gradualmente programas desenvolvidos durante o semestre, para servir como base para futuros trabalhos e pesquisas para vocês.

Abaixo segue um programa que lê o nome do usuário, além de ler o valor de três variáveis e somá-las..

Program Somatorio;
var nome: string;
var a, b, c, soma: integer;
begin
  writeln('Bom dia!');
  write ('Qual é o seu nome? ');
  readln(nome);
  writeln;
  writeln(nome,', este programa calcula a soma de três números');
  writeln;
  write('Digite três números separados por um espaço: ');
  read (a);
  read (b);
  read (c);
  soma:= a+b+c;
  writeln;
  writeln ('Resultado: ', a, ' + ', b, ' + ', c ,' = ', soma);
  
  readln;
end.

Faça o teste, copie o código e cole-o no compilador.

Bons estudos!