Algoritmo Orçamento

DSR1 · 11 de junho de 2009

Pessoal não estou conseguindo terminar esse algoritmo se alguém souber agradeço!

O orçamento de uma residência é calculado tirando-se os gastos mensais da renda familiar total. Faça

um programa que calcule e mostre o quanto sobrou ou faltou no orçamento de uma família sabendo

que os gastos mensais fixos são: luz; água; supermercado; escola; aluguel e internet.

Program salario_da_familia;
uses wincrt;
Var            luz,agua,supr,esc,alug,int,gastos,renda:real;


Begin

               clrscr;
               writeln ('Digite a renda total da familia');
               readln (renda);
               writeln ('Digite o valor de gasto com água');
               readln (agua);
               writeln ('Digite o valor gasto com Supermercado');
               readln (supr);
               writeln ('Digite o valor gasto com Escola');
               readln (esc);
               writeln ('Digite o valor gasto com Aluguel');
               readln (alug);
               writeln ('Digite o valor gasto com Internet');
               readln (int);
               gastos:=agua+supr+esc+alug+int;
               writeln ('O seu gasto mensal é:',gastos);
               writeln ('O que sobrou ou faltou de seu salário é:');
               renda:=renda-gasto;
               readln
               End.

Ricardo HD · 12 de junho de 2009

Pessoal não estou conseguindo terminar esse algoritmo se alguém souber agradeço!
O orçamento de uma residência é calculado tirando-se os gastos mensais da renda familiar total. Faça

um programa que calcule e mostre o quanto sobrou ou faltou no orçamento de uma família sabendo

que os gastos mensais fixos são: luz; água; supermercado; escola; aluguel e internet.

Program salario_da_familia;

uses wincrt;

Var soma, luz,agua,supr,esc,alug,int,gastos:real;

Begin

clrscr;

writeln ('Digite a renda total da familia');

readln (renda);

writeln ('Digite o valor de gasto com água');

readln (agua);

writeln ('Digite o valor gasto com Supermercado');

readln (supr);

writeln ('Digite o valor gasto com Escola');

readln (esc);

writeln ('Digite o valor gasto com Aluguel');

readln (alug);

writeln ('Digite o valor gasto com Internet');

readln (int);

gastos:=agua+supr+esc+alug+int;

writeln ('O seu gasto mensal é:',gastos);

writeln ('O que sobrou ou faltou de seu salário é:');

renda:=renda-gasto;

readln

End.

É para calcular apenas de um mês?

Vou fazer um exemplo para tentar te ajudar, na parte logica.

ex.

continuação do seu programa

  soma:= luz+agua+supr+esc+alug+int+gastos;
  soma:= soma - renda;
  if (soma<0) then
  begin
  writeln ('Faltou');
  end;
 if (soma >) then
 begin
writeln ('Sobrou'); 
end;
if (soma=0) then
writeln ('Zerou');
end;
end.

Este é apenas um exemplo. Não tentei rodar ele para ver se funciona ou não.

Qualquer duvida é so perguntar, mas tente resolver primeiro para depois tirar as duvidas. ok

12 de junho de 2009

Refiz seu programa, tá rodando legal!

Program salario_familia;
uses crt;
var
luz,agua,supr,esc,alug,int,ren,sal_fam,gastos:real;
begin
clrscr;
writeln('Digite o valor da renda da família');
readln(ren);
writeln('Digite o valor gasto com água');
readln(agua);
writeln('Digite o valor gasto com luz');
readln(luz);
writeln('Digite o valor gasto com supermercado');
readln(supr);
writeln('Digite o valor gasto com escola');
readln(esc);
writeln('Digite o valor gasto com aluguel');
readln(alug);
writeln('Digite o valor gasto com int');
readln(int);
gastos:=agua+luz+supr+esc+alug+int;
sal_fam:=ren-gastos;
writeln('Sua renda mensalé:  ',ren:2:2);
writeln('Seu gasto mensal é:  ',gastos:2:2);
writeln('o que sobrou ou faltou do seu sálario é:  ',sal_fam:2:2);
readkey;
end.

DSR1 · 12 de junho de 2009

Refiz seu programa, tá rodando legal!

Program salario_familia;
uses crt;
var
luz,agua,supr,esc,alug,int,ren,sal_fam,gastos:real;
begin
clrscr;
writeln('Digite o valor da renda da família');
readln(ren);
writeln('Digite o valor gasto com água');
readln(agua);
writeln('Digite o valor gasto com luz');
readln(luz);
writeln('Digite o valor gasto com supermercado');
readln(supr);
writeln('Digite o valor gasto com escola');
readln(esc);
writeln('Digite o valor gasto com aluguel');
readln(alug);
writeln('Digite o valor gasto com int');
readln(int);
gastos:=agua+luz+supr+esc+alug+int;
sal_fam:=ren-gastos;
writeln('Sua renda mensalé:  ',ren:2:2);
writeln('Seu gasto mensal é:  ',gastos:2:2);
writeln('o que sobrou ou faltou do seu sálario é:  ',sal_fam:2:2);
readkey;
end.

Muito Obrigado por ter me ajudado, valeu mesmo, mas se não for pedir muito você poderia me explicar no que errei nesse algoritmo copilo ele da OK mas quando digito o nome do Professor da erro, aonde eu errei? desde já agradeço!

Faça um programa que leia o nome e o salário bruto de um professor. Sabendo que o imposto a ser descontado

é de 3% sobre o salário bruto e que ele recebe uma bolsa família de R$120,00; calcule o salário líquido. O

algoritmo deve escrever o nome do professor, o salário bruto, o valor do desconto e o salário líquido.

Program salario_do_Professor;
uses crt;
var             nome,sal_brut,sal_liq,imp,bolfamil:real;


Begin

               clrscr;
               writeln ('Digite o nome do Professor');
               readln (nome);
               writeln ('Digite o salário Bruto');
               readln (sal_brut);
               imp:=(0.03*sal_brut);
               sal_liq:=sal_brut-imp+120;
               writeln ('O desconto de seu salário é de:    ',imp:2:2);
               writeln ('Você receberá a quantia Liquido de R$:    ',sal_liq:2:2);
               readkey;
               End.