nego drama

outra coisa numero impares: qualquer numero divido por 2 e o conciente for diferente de 0 sera impa exp: 13/5 =2 conciente 1 multipo de x: qualquer numerero dividido por x e o concinte igual a 0 é par vamos dizer q x vale de 10 exp: 30 /10 = 3 conciente 0 espero q tenha ajudado qualquer coisa volte a postar

ta legal!! so o que eu sujiro ai mudar desse geito fimse escreva ("soma dos numeros impares:",soma_impar) escreva ("quantidade de produtos pares:",produto_par) escreva ("numeros multiplos de dez:",multiplo_10) escreva ("numeros multiplos de trêz:",multiplo_3) fimpara para esse geito fimse fimpara {obsever q o fim para fica acima das frases, ou seja, ele já vai te mostrar as informaçes no final da execulção e não nomeiro enchendo a tela, mas fique a vontade} escreva ("soma dos numeros impares:",soma_impar) escreva ("quantidade de produtos pares:",produto_par) escreva ("numeros multiplos de dez:",multiplo_10) escreva ("numeros multiplos de trêz:",multiplo_3) fimalgoritmo um abraço

eu apenas coloquei no lugar de Media<- (Vnotas1 [i]+ Vnotas2 [i] / 2) Vmedia[i]<- media é a mesma coisa apenas diminuir o numero de linhas media [cont] := (Prim_bimestre [cont]+ seg_bimestre [cont])/2 se caso queiser usar do seu geito ta certo também

vamos lá, tel agumas coisas ai q precisa ser corrigdo, mas ta ficando bom observq 1. q no exercicio ele pede 100 numeros inteiro e você declarou o numero ou seja (num) como real 2 pra saber se o numero é impar você muda o div pra mod se (num mod 2 <>0) então [code] 3. a mesma coisa você faz pra achar um numero multiplo [code] se (num mod 10 = 0) então tire o senao (não vai ser necessario e coloque as frases Escreva ("soma dos numeros impares:"soma_impares) Escreva("produto dos numeros pares:" produto_pares) Escreva("Quantidade de numeros multiplos de 10:"Multiplo_10) Escreva("Quantidade de numeros multiplos de 3:"Multiplo_3) depois de fim repita tente ai se tiver dulvida volte a postar outra coisa Escreva ("soma dos numeros impares: ",{não esqueça de colcar virgula}soma_impares)

velho eu ainda não comecei a trabalhar uma linguagem mas no seu caso eu utilizaria o laço enquanto porque o laço repita ele so para quando ele chegar a um determinado numero seja inteiro ou real no caso var x : string; begin while x <> 'sair' do begin readln (x); end; end. tente ai depois me diga um abraço

tente complementar o algoritmo eu utilizei o laço enquanto var Prim_bimestre:vetor [1..10] de inteiro seg_bimestre : vetor [1..10] de inteiro media: vetor [1..10] de real media_turma, soma: real cont: inteiro inicio cont:= 1 enquanto cont<= 10 faca escreva ("entre com a nota do primeiro bimestre: ") leia (Prim_bimestre [cont]) escreva ("entre com a nota do segundo bimestre: ") leia (seg_bimestre [cont]) media [cont] := (Prim_bimestre [cont]+ seg_bimestre [cont])/2 soma:= soma + Prim_bimestre [cont]+ seg_bimestre [cont] media_turma := soma / cont cont:= cont + 1 fimenquanto fimalgoritm

velho melhoro mais ainda tem algumas pendecia ai observe o meu var cont, mul_maior_23, Hom_com_18, tot_hom, tot_mul,tot_pess_men_18, idade: inteiro sexo : caracter inicio tot_pess_men_18:= 0 mul_maior_23 := 0 Hom_com_18:= 0 tot_hom := 0 tot_mul:= 0 para cont de 1 ate 5 faca escreva ("entre com o sexo: ") leia (sexo) escreva ("entre com a idade: ") leia (idade) se (sexo = "F" ) então tot_mul := tot_mul + 1 se (idade > 23) então mul_maior_23 := mul_maior_23 + 1 fimse fimse se (sexo = "M") então tot_hom := tot_hom + 1 se (idade = 18) então Hom_com_18:= Hom_com_18 + 1 fimse fimse se (idade < 18) então tot_pess_men_18:= tot_pess_men_18 + 1 fimse fimpara escreva ("total de pessoas menos quer 18: ",tot_pess_men_18,". ") escreva ("total de Mulheres maior quer 23: ",mul_maior_23,". ") escreva ("total de homens com 18: ",Hom_com_18,". ") escreva ("total de homens : ",tot_hom,". ") escreva ("total de mulheres : ", tot_mul,". ") fimalgoritmo eu te aconcelho entra no site www.apostilando.com e baixar algumas apostilas basicas vai te agudar bastante um abraço

shadow007 quando você quer saber a quantidade você tem q criar o laço pra qi quando passar ele contar sempre mais 1 se (sexo = "F" ) então tot_mul := tot_mul + 1 {obs aqui se o sexo for f ou F {femino} você tem q colocar pro contador {tot_mul } somar o mesmo + 1 o mesmo vai acontecer com mulher acima de 23 anos e assim vai ser com os homem} se (idade > 23) então mul_maior_23 := mul_maior_23 + 1 fimse fimse e observe também q ele não pede pra escrever mulher e sim dizer quantas tem qualquer dulvida volte a posta

Sempre organize as variaves e de nomes q facilite a indetificação obsever ai var cont, mul_maior_23, Hom_menor_18, tot_hom, tot_mul,tot_pess_men_18 idade: inteiro sexo : caracter inicio tot_pess_men_18: = 0 mul_maior_23 := 0 Hom_menor_18:= 0 tot_hom := 0 tot_mul:= 0 para cont de 1 ate 5 faca escreva ("entre com o sexo: ") leia (sexo) escreva ("entre com a idade: ") leia (idade) se (sexo = "F" ) então se (sexo = "M" ) então se (idade < 18) então fimpara fimalgoritmo qualquer coisa volte a postar

enquanto eu puder ajudar estamos aqui um abraço

eu falei cont <- cont + 1 e não do geito q você colocou cont <- + 1 e pode ser em qualquer lugar acima do fimse ou abaixo dele, tanto faz mas coloque do geito q estou mostrando acima

velho eu fiz aqui como eu entendi seria bom q você ler se ele e entendece var a, b, c: real i: inteiro inicio leia (i) leia (a) leia (b) leia (c) se (i = 1 ) então se (a > b) e (b > c)então escreva (c, b, a) senao se (a> c) e (c > b) então escreva (b, c, a) senao se (b> a) e (a > c) então escreva (c, a, b) senao se (b > c) e (c >a) então escreva (a, c, b) senao se (c > a) e (a > c) então escreva (b, a, c) senao se (c > b) e (b > a) então escreva (a, b, c) fimse fimse fimse fimse fimse fimse fimse se (i = 2 ) então se (a > b) e (b > c)então escreva (a, b, c) senao se (a> c) e (c > b) então escreva (a, c, b) senao se (b> a) e (a > c) então escreva (b, a, c) senao se (b > c) e (c >a) então escreva (b, c, a) senao se (c > a) e (a > c) então escreva (c, a, b) senao se (c > b) e (b > a) então escreva (c, b, a) fimse fimse fimse fimse fimse fimse fimse se (i = 3) então se (a > b) e (b > c)então escreva (a) senao se (b > a ) e (a > c) então escreva (b) senao escreva (c) fimse fimse fimse fimalgoritmo

você esqueceu de colocar cont := cont + 1 fimse fimse fimse observe ai

sobasta colocar uma virgula (,) entre aux e " " escreva (ContSal_35, " + ", sal " = ", aux COLOQUE UMA VIRGULA AQUI " ") qualquer coisa volte a postar um abraço

eu num entendi uma coisa ai Se i=3 escrever 03 valores a,b, c de forma que 1 fique Maior que os outros 2. no casso a tem q ser maio q b + c a> b+c

Jhonas "eu acho q ele nem começou trabalhar com vetor ou matriz ainda, creio q ficarar muito dificil de ele entender em pascal" shadow007 vou te da umas dicas e você vai tentando resouver nesse caso( eu respondi com 6 variavel mas também resouvir com apenas 3) vamos trabalhar com as 6 pra você entender melhor você vai precisar das seguintes variaves var sal, ContSal_35, ContSal_15, ContSal_5 , aux : real {sal é Salario abreviado ok} cont: inteiro inicio cont:= 1 enquanto cont <= 50 faca aux: = 0 escreva ("Entre com o valo do salario: ") leia (sal) se (sal < 1500) então ContSal_35:= {aqui você multiplica o valor da Porcentagem pelo salario e divide por 100} aux := {aqui você soma o salario + a variavel q calculando a porcentagem (ContSal_35) escreva (contSal_35," + ", sal," = ", aux," ") {dai agora você continua} senao se escreva (contSal_15," + ", sal," = ", aux," ") senao se escreva (contSal_5," + ", sal," = ", aux," ") fimse fimse fimse cont := cont + 1 fimenquanto fimalgoritmo mais uma coisa quando ele fala entre um determinado valor e outro você tem q aninhar os se de forma q compreenda entre um e outro entre 7 e 70 se (variavel >= 7) e (variavel < 70) então ele so vai analisar entre esses valores de 7 ate 69 se não entender volte a postar

rei mande o arquivo p/ robson_nego_drama@yahoo.com.br, porque pode ser arquivo de texo ou som mpeg-1 vcd, manda q dou uma olha e vejo se posso ajudar um abraço

so poste em outro tópico se sua dulvida for diferente o erro ai é o seguite (eu fiz pela ordem do seu execicio) coloque sempre o senao na poxima linha o se ele tem q ficar assim: senao se e outra coisa seria ele tem q ser igual ou maio que X e menor ou igual que Y exemplo se (codigo >= 1) e (codigo <= 20) então escreva("europa") e pra finalizar você conta quantos se você colocou e no final feixe todos ele com fimse no caso vamos dizer q colocamos 4 se então no final ficara 4 fimse se tiver dulvida volte a posta

shadow007 seria bom se caso você conseguir ou não resposder postar indicado se consegui ou não pra nos sabermos se estamos ajudando e comece com alguma coisa pra tentarmos melhorar seu algoritmo e não o responde, senao você num aprende como você pedio com as opção escolha caso na variaver (num) ela receberar o tipo de variavel caracter assim vai dar certo olha ai var num : caracter inicio escreva ("entre com o numero: ") leia (num) escolha num caso "1" escreva ("domingo") caso "2" outro caso escreva ("não corresponde") fimescolha fimalgoritmo qual copilador você usa, portugou, visualg etc? um braço

obsorve no lugar de var num1,num2,num3,num4,num5: inteiro; inicio troque por var codigo : inteiro inicio escreva ("entre com o codigo: ") leia (codigo) e no ninhos de você faz dessa forma se (codigo >= 1) e (codigo <= 20) então escreva("europa") e não se (codigo >= 01) e (<=20) então escreva ("Europa")

valeu!!! e também esqueci de colocar senao vet_3 [z] := 0

é o seguite você so vai precisar trabalhar com uma variavel apenas a variavel codigo e depois tem q ler o codigo e dai sair distribuido os ninhos de se se tiver dulvida voute a postar, um abraço se (codigo >= 1) e (codigo <= 20) então escreva("europa")

eu pensei nisso aqui estou certo? var i,x,z: inteiro vet_1: vetor [1..10] de real vet_2: vetor [1..10] de real vet_3: vetor [1..10] de real inicio i:= 1 x:= 1 z:= 1 enquanto i <= 10 faca leia (vet_1 [i]) i:= i + 1 fimenquanto enquanto x <= 10 faca leia (vet_2 [x]) x:= x + 1 fimenquanto i:= 1 para i de 1 ate 10 faca x:= 1 z:= 1 para x de 1 ate 10 faca se (vet_1 [i] = vet_2 [x]) então vet_3 [z] := i fimse x:= x + 1 z:= z + 1 fimpara i:= i + 1 fimpara fimalgoritmo [/codebox]

pessoal é o seguinte. tenho que fazer um algoritmo que leia e monte dois vetores 1 e 2 de N posições com números reais positivos. Depois de montados procure por cada elemento do vetor 1 no vetor 2 e armazene as suas respectivas posições ( somente do primeiro número achado ) em um vetor 3, sendo que os elementos do vetor 1 que não forem encontrados no vetor 2 deverão ter como valor o número zero no vetor 3 algem me dar essa força eu pensei assim var cont, cont_2, conta, cont_3: inteiro vet_1: vetor [1..10] de real vet_2: vetor [1..10] de real vet_3: vetor [1..10] de real inicio cont:= 1 cont_2 := 1 enquanto cont<= 10 faca leia (vet_1 [cont]) cont:= cont + 1 fimenquanto enquanto cont_2 <= 10 faca leia (vet_2 [cont_2]) cont_2 := cont_2 + 1 fimenquanto cont_2 := 1 cont:= 1 conta:= 1 cont_3:= 1 enquanto conta <=10 faca se(vet_2 [cont_2])= (vet_1 [cont])então vet_3 [cont_3] := vet_1 [cont] fimse cont_2 := cont_2 cont:= cont + 1 conta := conta + 1 cont_3 := cont_3 + 1 fimenquanto fimalgoritmo [/codebox] mas ele não armazena os primeiro numeros encontrados so o últmo