di_sakai

Salve!! Fellas to precisando de um ajuda de voce em estou fazendo um algoritimo com menu e submenu o primeiro menu eu consegui! mas quando eu tipo uma opçao diferente o programa não roda por favor da uma ajuda ai não sei onde eu estou errando program submenu; uses winCrt; { Função : Programa com menu e submenu} { Autor : Mateus} { Data : 2008-09-20} { Seção de Declarações} var Menu1, Menu2, Menu3 : char; EscolhaConv: string;{Tipo de Conversão} TipoConv : string; m,cm,mm: integer; min: integer; num : integer; begin { Seção de Comandos} cm:= 0; mm:= 0; min:= 0; num:= 0; writeln ('Por favor escolha uma das seguintes opções abaixo:'); writeln (''); writeln ('Escolha um tipo de conversao : '); writeln (''); writeln ('CM para Conversão de medidas'); writeln ('CT para Conversão de tempo'); writeln ('CP para Conversão de peso'); readln (EscolhaConv); writeln (''); while (EscolhaConv <> 'CM') and (EscolhaConv <> 'CT') and (EscolhaConv <> 'CP') do begin writeln ('Escolha de Conversão Invalida. Digite novamente'); readln (EscolhaConv); end; writeln (''); if (EscolhaConv = 'CM') then begin writeln ('Conversão de Medidas'); writeln (''); writeln ('1 - para Converter Metros em Centimentos'); writeln ('2 - para Converter Metros em Milimetros '); readln(TipoConv); while (Tipoconv <> '1') and (TipoConv <> '2') do begin writeln ('Conversão Indisponivel. Digite novamente'); readln(TipoConv); end; if (TipoConv = '1') then begin write ('Digite o numero a ser convertido para Centimetro : '); readln (num); cm := (num * 100); writeln ('Resultado da Conversão é : ',cm,',', ' cm'); readln(cm); end else if (TipoConv = '2') then begin write ('Digete o numero a ser convertido para Milimetros : '); readln(num); mm := (num * 1000); writeln ('Resultado da Conversão é : ',mm,',', ' mm'); readln(mm); end else begin if (EscolhaConv = 'CT') then begin writeln ('Conversão de Medidas'); writeln (''); writeln ('1 - para Converter horas em minutos'); writeln ('2 - para Converter Metros em segundos '); readln(TipoConv); while (Tipoconv <> '1') and (TipoConv <> '2') do begin writeln ('Conversão Indisponivel. Digite novamente'); readln(TipoConv); end; begin if (TipoConv = '1') then begin write ('Digite o numero a ser convertido para Centimetro : '); readln (num); cm := (num + 60); writeln ('Resultado da Conversão é : ',min,',', ' min'); readln(min); end; end; end; end end end.

PEÇO AJUDA DE VOCES POIS ESTOU TENTANDO A DIAS PASSAR O PASCAL PRA O FLUXO MAS NÃO ESTOU CONSEGUINDO program consumo_mensal_energia_eletrica; uses winCrt; { Função :} { Autor :} { Data : 21/4/2011} { Seção de Declarações} var precokwh, quantkwhMensal, quantkwhDia, maior, menor:real; restotal, comtotal, indtotal, mediageral:real; cont:integer; numcons:integer; CodTc: string; begin { Seção de Comandos} {numero do consumidor for igual 999 flag de saída} cont:= 1; numcons:= 1; restotal:= 0; comtotal:= 0; indtotal:= 0; repeat write('Digite o preço de KWH consumidos durante o mês: '); readln(precokwh); write('Digite o numero do consumidor: '); readln(numcons); write('Digite a quantidade de KWH consumidos durante o mês: '); readln(quantkwhMensal); writeln('Digite que tipo de consumidor: '); write('R para Residencial, C para Comercial e I para industrial): '); readln(CodTc); {a)Para cada consumidor, o total a pagar;} {B) o maior consumo verificado} {c) O menor consumo verificado} {d) O total de consumo para cada um dos três tipos de consumidores} {e) A média geral de consumo} if(quantkwhmensal > quantkwhmensal)then begin maior:= quantkwhMensal; end; if(quantkwhmensal < quantkwhmensal)then begin menor:= quantkwhMensal; end; cont:= cont+1; if(codtc = '1')then begin quantkwhMensal:= precokwh * quantkwhDia); restotal := (restotal + quantkwhmensal); write('Consumidor', codtc,' pagará no total:R$ ', quantkwhmensal); end; if(codtc = '2')then begin quantkwhMensal:= precokwh * quantkwhDia; comtotal:= comtotal + quantkwhmensal; write('Consumidor', codtc,' pagará no total:R$ ', quantkwhmensal); end; if(codtc = '3')then begin quantkwhMensal:= precokwh * quantkwhDia; indtotal:= indtotal + quantkwhdia; write('Consumidor', codtc,' pagará no total:R$ ', quantkwhmensal); end; until (numcons >= 999); mediageral:= (restotal + comtotal+ indtotal)/3; writeln('Maior consumo foi: ', maior); writeln('Menor consumo foi: ', menor); writeln('Total consumido por residenciais: ', restotal); writeln('Total consumido por comerciais: ', comtotal); writeln('Total consumido por industriais: ', indtotal); writeln('A média geral de consumo é: ', mediageral); end.

Valeu mesmo cara! muito obrigado por me ajudar! desculpa o incomodo! Abraços

por exmplo: o consumo 1 foi : 45 comsumo 2 foi : 59 ai quando passar de 999 por exemplo consumo 1055 fois 695 na hora de mostrar todos valores ele exibe o maior e menor no programa ta mostrando 695 de maio e 695 de menor mas o certo seria se menor fosse igual a 45 ! não conseguindo fazer que reconheça o menor valor

AJUDA AI FELLAS O PROGRAMA TA FUNCIONANO POREM NA HORA DE MOSTRAR O MAIOR CONSUMO E MENOR CONSUMO OS VALORES FICAM IGUAIS AONDE QUE ESTA O ERRO QUE NÃO CONSIGO ACHAR DESDE já AGRADEÇO!!! program teste_looping_1; uses WinCrt; var numero, contador, consumo, preço, soma,maior, menor:integer; total:integer; begin contador := 1; soma := 1; write ('Digite o numero do consumidor '); readln (numero); write ('Digite a quantidade do kWh consumido durante o mes '); readln (consumo); maior := consumo; menor := consumo; while (numero <= 999) do begin Contador := contador +1; write ('Digite o preço do kWh '); readln (preço); total :=preço * consumo; writeln ('total a pagar pelo consumidor Numero: ', numero, '= R$', total); writeln; soma := soma + total; writeln ('Digite o numero do consumidor '); readln (numero); writeln ('Digite a quantidade do kWh consumido durante o mes '); readln (consumo); writeln ('O maior consumo verificado foi' ,maior,',','KWh'); writeln ('O menor consumo verificado foi' ,menor,',','KWh'); writeln ('A media geral de consumo da cidade e:' ,soma/contador); end; if (consumo > maior)then begin maior := consumo; end; if (consumo < menor)then begin menor := consumo; end; end.

Bom fellas consegui fazer o programa certinho e esta funcionando normal mas to com uma duvida olhem: Program proint1; Uses wincrt; {Declaração de variáveis} Var cod:integer; {cod=código} pp,pt,qtd,des,vtc:Real; {pp=preço do produto,pt=preço total, qtd=quantidade, des=desconto, vtc=valor total da compra} Begin {inicio do programa} Writeln('Insira o código do produto...'); readln(cod); begin If((cod<1) or (cod>40))then Begin Writeln('Codigo invalido'); end else If((cod>=1)and(cod<=10))then begin pp:=10.00; end else If((cod>10)and(cod<=20))then begin pp:=15.00; end else If((cod>20)and(cod<=30))then begin pp:=20.00; end else begin pp:=30.00; end end; Begin Writeln('Digite a quantidade do produto...'); readln(qtd); pt:=pp*qtd; If(pt<=500.00)then Begin des:=pt*5/100; end else If((pt>=500.01)and(pt<=1000.00))then begin des:=pt*10/100; end else begin des:=pt*15/100; end end; vtc:=pt-des; Writeln('O valor do produto é R$ ',pp:0:2,', O preço da sua compra é de R$ ',pt:0:2); writeln('O valor do descondo da sua compra é de R$ ',des:0:2); writeln('O valor final da sua conta é de ',vtc:0:2,'.'); readkey; donewincrt; {Fim do programa} end. Writeln('Insira o código do produto...'); readln(cod); begin If((cod<1) or (cod>40))then Begin Writeln('Codigo invalido'); (nessa parte que estou com uma duvida como eu faço para que programa começe denovo quando aparece a msg condigo invalido quero que volte ao incio do programa sakaram?) peço a juda de vocês por favor!!

Fellas To precisando de uma grande ajuda de voces a resolver essa questão Faça um algoritmo (Fluxograma) que receba: • O código do produto comprado; • A quantidade comprada de um produto. Calcule e mostre: • Preço unitário do produto comprado conforme a tabela abaixo: código Preço (R$) 1 a 10 10,00 11 a 20 15,00 21 a 30 20,00 31 a 40 30,00 • O preço total da nota; • O valor do desconto, segundo a tabela abaixo e aplicado sobre o preço total da nota; Preço total da nota % de desconto Até R$ 500,00 5 Entre R$ 500,01 e R$ 1000,00 10 De R$ 1000,01 para cima 15 • O preço final da nota depois do desconto. Desde já agradeço

Faça um algoritmo (Fluxograma) que receba: • O código do produto comprado; • A quantidade comprada de um produto. Calcule e mostre: • Preço unitário do produto comprado conforme a tabela abaixo: código Preço (R$) 1 a 10 10,00 11 a 20 15,00 21 a 30 20,00 31 a 40 30,00 • O preço total da nota; • O valor do desconto, segundo a tabela abaixo e aplicado sobre o preço total da nota; Preço total da nota % de desconto Até R$ 500,00 5 Entre R$ 500,01 e R$ 1000,00 10 De R$ 1000,01 para cima 15 • O preço final da nota depois do desconto.

Muito Agradecido man!!

Salve fellas estou precisando uma baita ajudar de vocês! Comecei fazer facul de rede de computadores estou aprendendo algoritmos só que estou tendo muita dificuldade para entender os exercícios vocês poderiam me ajudar?? obs: voces poderiam me explicar de uma maneria simples? 1) Criar um algoritmo que receba um número inteiro e mostre em qual faixa de números inteiros ele aparece: a. Abaixo de 10; b. Entre 10 e 20; c. Acima de 20; 2) Criar um algoritmo receba a média de um aluno e mostre a situação do aluno: a. Aprovado  média maior ou igual a 5; b. Exame  média entre 3 e 5; c. Reprovado  média menor do que 3; F (sexo < > ‘f’) E (sexo < > ‘F’) E (sexo < > ‘m’) E (sexo < > ‘M’) Inicio sexo V ’Valor inválido’ (sexo = ‘f’) ou (sexo = ‘F’) F ’Feminino’ ’Masculino’ Fim V 3) Criar um algoritmo que receba a idade de uma pessoa e mostre: a. Se é maior de idade; b. Se é menor de idade; c. Se é maior de 65 anos;