thegoodfellas/blogset-br huggingface dataset:
escreval("A raiz cubica e ", rc) fimsefimalgoritmo Download arquivo alg. 2 - Faca um programa para verificar se um inteiro positivo lido e par ou impar (mostre por escrito se e par ou impar). Se o numero for impar, multiplique por 2 e mostre o resultado, caso contrario multiplique por 12 e mostre o resultado. (OBS: Par: x mod 2 = 0) algoritmo "parimpar"var result:real n:inteiroinicio leia(n) se (n mod 2 = 0) entao escreval("o numero lido e par") result <- n * 1/2 senao escreval("o numero lido e impar") result <- n * 2 fimse escreval(result)fimalgoritmoDownload arquivo alg.3 - Faca um programa que receba o custo total de um espetaculo teatral e o preco do convite desse espetaculo. Esse programa devera calcular e mostrar a quantidade de convites que devem ser vendidos para que pelo menos o custo do espetaculo seja alcancado.algoritmo "teatro"var total, ingresso, qtd:realinicio escreval("Digite o custo total do espetaculo") leia(total) escreval("Digite o custo do ingresso") leia(ingresso) qtd <- total/ingresso escreval("Voce deve vender no minimo ",qtd, " ingressos")fimalgoritmo Download arquivo alg. 4 - Faca um programa que receba tres numeros e mostre-os em ordem decrescente.algoritmo "decrescente"var A, B, C : inteiroinicio escreval("Digite 3 numeros para ordenar descrescente") leia (A, B, C) se (A > B) e (A > C) entao se (B > C) entao escreval (A, B, C) senao escreval (A, C, B) fimse senao se (B > A) e (B > C) entao se( A > C) entao escreval (B, A, C) senao escreval (B, C, A) fimse senao se (C > A) e (C > B) entao se ( A > B) entao escreval (C, A, B) senao escreval (C, B, A) fimse fimse fimse fimsefimalgoritmoDownload arquivo alg. 5 - Faca um programa que receba a hora do inicio de um jogo e a hora final (cada hora e composta por duas variaveis inteiras: hora e minuto). Calcule e mostre a duracao do jogo (horas e minutos), sabendo-se que o tempo maximo de duracao do jogo e de 24 horas e que ele pode iniciar-se em um dia e terminar no dia seguinte.algoritmo "horaJogo"var horaIni, minIni, horaFim, minFim, minDif, horaDif:inteiroinicio escreval("Digite hora e minutos do inicio do jogo ") leia(horaIni, minIni) escreval("Digite hora e minutos do fim do jogo ") leia(horaFim, minFim) se (minIni > minFim) entao minFim <- minFim + 60 horaFim <- horaFim - 1 fimse se (horaIni > horaFim) entao horaFim <- horaFim + 24 fimse minDif <- (minFim - minIni) horaDif <- (horaFim - horaIni) escreval("O jogo durou", horaDif, " horas e ", minDif, " minutos")fimalgoritmoDownload arquivo alg.6 - Faca um programa que receba cem numeros, calcule e mostre a soma dos numeros pares e a media dos numeros primos.algoritmo "soma"varx,y,nro,primo:inteirocont,media,soma,parcial:realinicio soma<-0 PARA x de 1 ATE 100 FACA escreval("DIGITE UM NUMERO") leia(nro) SE (nro mod 2=0) entao escreval("VC DIGITOU UM NUMERO PAR!") soma<-soma+nro FIMSE primo<-0 PARA y de 1 ATE nro FACA SE (nro mod y =0) ENTAO primo<-primo+1 FIMSE FIMPARA cont<-0 SE primo<=2 ENTAO escreval("VC DIGITOU UM NUMERO PRIMO") cont<-cont+1 parcial<-parcial+primo FIMSE FIMPARA media<-parcial/cont escreval(" A SOMA DOR NUMEROS PARES
E", soma) escreval("A MEDIA DOS NUMERO PRIMOS E", media)fimalgoritmoDownload arquivo alg.7 - Faca um programa que receba a idade e o peso de 75 pessoas, e que calcule e mostre as medias dos pesos das pessoas da mesma faixa etaria. As faixas etarias sao: de 1 a 10 anos, de 11 a 20 anoes de 21 a 30 anos e de 31 anos para cima.algoritmo "cidades" var cont, cod, num_vei, num_acid, maior, cid_maior, menor, cid_menor: inteiro media_vei, media_acid: real soma_vei, soma_acid, cont_acid:inteiroinicio soma_vei <-0 soma_acid <-0 cont_acid <- 0 para cont <- 1 ate 5 faca escreval("Digite o codigo da cidade, o numero de veiculos e o numero de acidentes" ) leia(cod, num_vei, num_acid) se (cont=1) entao maior <- num_acid cid_maior <- cod menor <- num_acid cid_menor <- cod senao se (num_acid > maior) entao maior <- num_acid cid_maior <- cod fimse se (num_acid < menor) entao menor <- num_acid cid_menor <- cod fimse fimse soma_vei <- soma_vei + num_vei se (num_vei < 2000) entao soma_acid <- soma_acid + num_acid cont_acid <- cont_acid + 1 fimse fimpara escreval("O maior indice e ",maior," na cidade ",cid_maior) escreval("O menor indice e ",menor," na cidade ",cid_menor) media_vei <- soma_vei / 5 escreval("A media de veiculos e ",media_vei) se (cont_acid = 0) entao escreval("Nao foi digitada nenhuma cidade com menos de 2000 veiculos" ) senao media_acid <- soma_acid / cont_acid escreval("A media de acidentes em cidades com menos de 2.000 veiculos e ", media_acid) fimsefimalgoritmo Download arquivo alg.8 - Cada espectador de um cinema respondeu a um questionario no qual constava sua idade e sua opiniao em relacao ao filme: otimo 3, bom 2, regular 1. Faca um programa que receba a idade e a opiniao de 75 espectadores, calcule e mostre: a media das idades das pessoas que responderam otimo; a quantidade de pessoas que responderam regular; a percentagem de pessoas que responderam bom, entre todos os espectadores analisados.algoritmo "8"var x,idade,opcao:inteiro contador1,contador2,contador3,idade_o,media_o,media_b:realinicio para x de 1 ate 75 faca escreval("Ola, digite sua idade e opinicao do filme.") escreva("Digite sua idade: ") leia(idade) limpatela escreval("Para Otimo digite 3, para Bom digite 2 e para Regular digite 1.") repita escreva("Digite a opcao desejada: ") leia(opcao) se (opcao<>1) ou (opcao<>2) ou (opcao<>3) entao escreva("Digitou opcao errada, redigite sua opcao!") fimse ate(opcao=1)ou(opcao=2)ou(opcao=3) limpatela se (opcao = 1) entao contador1<-contador1+1 fimse se (opcao = 3) entao contador3<-contador3+1 idade_o<-idade+idade_o fimse se (opcao = 2) entao contador2<-contador2+1 fimse fimpara media_o<-idade_o/contador3 escreval("A media das pessoas que acharam otimo foi de",media_o,".") escreval(contador1," pessoas responderam Regular.") media_b<-75/contador2 escreval(media_b,"% das pessoas responderam Bom.")fimalgoritmoDownload arquivo alg.Nestas aulas tive muita dificuldade em algumas questoes como 5 e 8, principalmente em relacao a logica, mas estou estudando bastante para a prova, que sera muito dificil, e espero depois poder comemorar uma aprovacao ao menos nesta prova.
<= not[l,2]) e (not[l,1] <= not[l,3]) ENTAO cont1<- cont1 + 1 escreval("A menor nota do aluno ",l," e ", not[l,1]) SENAO SE (not[l,2] <= not[l,1]) e (not[l,2] <= not[l,3]) ENTAO cont2<- cont2 + 1 escreval("A menor nota do aluno ",l," e ", not[l,2]) SENAO SE (not[l,3] <= not[l,2]) e (not[l,3] <= not[l,1]) ENTAO cont3<- cont3 + 1 escreval("A menor nota do aluno ",l," e ", not[l,3]) FIMSE FIMSE FIMSE FIMPARA escreval(cont1," alunos tiveram a menor nota na prova 1") escreval(cont2," alunos tiveram a menor nota na prova 2") escreval(cont3," alunos tiveram a menor nota na prova 3")fimalgoritmoDownload arquivo alg.2 - Faca um programa que preencha uma matriz de 5 x 5 com numeros inteiros, calcule e mostre os numeros superiores a cinquenta e suas respectivas posicoes (linha e coluna). O programa devera mostrar mensagem se nao existir nenhum numero nessa condicao. algoritmo "soma2"var som: vetor [1..5, 1..5] de inteiro cont, l, c: inteiroinicio PARA l de 1 ate 5 FACA PARA c de 1 ate 5 FACA escreval("Digite o numero referente a linha ",l," e coluna ",c,":") leia(som[l,c]) FIMPARA FIMPARA cont<- 0 PARA l de 1 ate 5 FACA PARA c de 1 ate 5 FACA SE (som[l,c] > 50) ENTAO cont<- cont +1 escreval("O numero referente a linha ",l," e coluna ",c," e maior do que 50") FIMSE FIMPARA FIMPARA SE (cont = 0) ENTAO escreval("Nenhum numero digitado foi maior do que 50") FIMSEfimalgoritmoDownload arquivo alg. Hoje no inicio da explicacao achei que teria mais dificuldade com o conteudo, mas depois da explicacao do professor vi que a materia nao era nem um bicho de sete cabecas, com escessao da matriz tridimensional, na pratica foi bem melhor compreendida, ja que tudo na pratica se e mais entendido, a dificuldade fica por conta da tao falada logica que as vezes acaba nos traindo, mas consegui resolver os exercicios numa boa.
14 fizemos a prova, nela continha 3 questoes e na aula 15 foram todas corrigidas pelo professor Jossandro.1 - Dados tres valores x, y e z, faca um algoritmo para verificar se eles podem ser os comprimentos dos lados de um triangulo e, se forem, verifique se e um triangulo equilatero, isoscele ou escaleno. Se eles nao formarem um triangulo escreva uma mensagem de alerta. Considere que: * O comprimento de cada lado de um triangulo e menor do que a soma dos outros dois lados;* Um triangulo equilatero tem os seus tres lados iguais;* Um triangulo isoscele tem o comprimento de dois lados iguais; e* Um triangulo escaleno tem os tres lados diferentes.algoritmo "triangulo"var x, y, z:inteiroinicio escreval("Digite a medida dos 3 lados do triangulo") leia(x, y, z) se (x >= y+z) ou (y >= x+z) ou (z >= x+y) entao escreval("As medidas informadas nao formam um triangulo") senao se (x=y) e (y=z) entao escreval("Triangulo equilatero - todos os lados iguais") senao se (x=y) ou (x=z) ou (y=z) entao escreval("Triangulo isoceles - 2 lados iguais") senao se (x<>y) e (x<>z) e (y<>z) entao escreval("Triangulo escaleno - todos os lados diferentes") fimse fimse fimse fimse fimalgoritmoDownload arquivo alg.2 - Faca um programa que receba a medida de um angulo em graus. Calcule e mostre o quadrante em que se localiza esse angulo. Considere os quadrantes da trigonometria e, no caso de angulos maiores que 360o ou menores que -360o, reduzi-los, mostrando tambem o numero de voltas e o sentido da volta (horario ou anti-horario).algoritmo "angulo"var a: inteiro voltas: realinicio escreval("Digite um angulo") leia(a) se (a>360) ou (a < -360) entao voltas <- a / 360 a <- a mod 360 senao voltas <- 0 fimse se (a=0) ou (a=90) ou (a=180) ou (a=270) ou (a=360) ou (a=-90) ou (a=-180) ou (a=-270) ou (a=-360) entao escreval("Esta sobre um dos eixos") senao se ((a >0) e (a < 90)) ou ((a < -270) e (a > -360)) entao escreval("1 quadrante") fimse se ((a >90) e (a < 180)) ou ((a < -180) e (a > -270)) entao escreval("2 quadrante") fimse se ((a >180) e (a < 270)) ou ((a < -90) e (a > -180)) entao escreval("3 quadrante") fimse se ((a >270) e (a < 360)) ou ((a < 0) e (a > -90)) entao escreval("4 quadrante") fimse escreva(" ", voltas," voltas no sentido ") se (a<0) entao escreval(" horario") senao escreval(" anti-horario") fimse fimsefimalgoritmoDownload arquivo alg.3 - Faca um programa que receba varios numeros, calcule e mostre: - a soma dos numeros digitados; - a quantidade de numeros digitados; - a media dos numeros digitados; - o maior numero digitado; - o menor numero digitado - a media dos numeros pares; - a porcentagem de numeros impares entre todos os numeros digitados; - a soma dos numeros primos digitados; Finalize a entrada de dados com a digitacao do numero 99999. Este numero nao pode considerado nos calculos.algoritmo "calculos"var num, prim, soma_prim, soma, qtd, z, maior, menor, qtd_par, soma_par, qtd_impar: inteiro media_par, media, perc : realinicio qtd <- 0 qtd_par<-0 soma_par <-0 soma_prim <-
0 qtd_impar <-0 escreval("Digite um numero") leia(num) repita se (qtd=0) entao maior <- num menor <- num senao se (num > maior) entao maior <- num fimse se (num < menor ) entao menor <- num fimse fimse soma <- soma + num qtd <- qtd + 1 se (num mod 2 = 0) entao soma_par <- soma_par + num qtd_par <- qtd_par + 1 senao qtd_impar <- qtd_impar + 1 fimse prim <- 0 para z de 1 ate num faca se (num mod z = 0) entao prim <- prim + 1 fimse fimpara se (prim <= 2)entao soma_prim <- soma_prim + num fimse leia(num) ate(num=99999) se (qtd = 0) entao escreval("Nenhum numero digitado") senao escreval("A soma e ",soma) escreval("A quantidade e ",qtd) media <- soma / qtd escreval("A media e ", media) escreval("O maior e ", maior) escreval("O menor e ", menor) se (qtd_par = 0 ) entao escreval("Nenhum numero par foi digitado") senao media_par <- soma_par / qtd_par escreval("A media dos pares e ", media_par) fimse perc <- qtd_impar * 100 / qtd escreval("O percentual de impares e ", perc) escreval("A soma dos primos e ",soma_prim) fimsefimalgoritmoDownload arquivo alg.A prova nao estava dificil, mas eu acabei me enrolando em um questao facil como a 1, a dois tive mais dificuldade pois a parte onde o angulo poderia dar mais de uma volta, eu teria de ter usado o comando mod para saber a qual quadrante o angulo pertenceria, ja na questao tres eu consegui fazer quase toda, faltando apenas a parte dos numeros primos.
Na aula de hoje o professor passou mais tres exercicios para resolvermos, dando a aula inteira para resolucao destes, que serao corrigidos na proxima aula, que sera no laboratorio. Abaixo segue os exercicios resolvidos.1 - Faca um programa que preencha dois vetores de cinco elementos numericos cada um e mostre o vetor resultante da multiplicacao dos valores destes vetores. Vetor 1: 3 5 4 2 2 1 2 3 4 5 Vetor 2: 7 15 20 0 18 1 2 3 4 5 Vetor resultante da multiplicacao: 21 75 80 0 36 1 2 3 4 5 algoritmo "mult1"var pm: vetor[1..5] de real sm: vetor[1..5] de real rm: vetor[1..5] de real n: inteiroinicio PARA n de 1 ate 5 FACA escreval("Digite um numero a ser multiplicado: ") leia(pm[n]) escreval("Digite um numero a ser multiplicado com o numero acima: ") leia(sm[n]) rm[n]<-(pm[n]*sm[n]) FIMPARA PARA n de 1 ate 5 FACA escreval("A multiplicacao ",n," tem resultado: ",rm[n]) FIMPARAfimalgoritmoDownload arquivo alg. 2 - Uma pequena loja de artesanato possui apenas um vendedor e comercializa dez tipos de objetos. O vendedor recebe, mensalmente, salario de R$ 400,00, acrescido de 5% do valor total de suas vendas. O valor unitario dos objetos deve ser informado e armazenado em uma matriz; a quantidade vendida de cada peca deve ficar na mesma matriz, em outra coluna. Crie um programa que receba os precos e as quantidades vendidas e armazenando-os na matriz. Depois determine e mostre: um relatorio contendo quantidade vendida, valor unitario e valor total de cada objeto. Ao final devera ser mostrado um valor geral das vendas e o valor da comissao que sera paga ao vendedoro valor do objeto mais vendido e sua posicao na matriz (mostre linha e coluna. Nao se preocupe com empates). algoritmo "loja2"var prod: vetor[1..10,1..2] de real vg,vt,porc,maior: real n,posic: inteiroinicio vg<-0 PARA n de 1 ate 10 FACA escreval("Digite o valor unitario do objeto ",n,": ") leia(prod[n,1]) escreval("Digite a quantidade vendida do produto",n,": ") leia(prod[n,2]) FIMPARA PARA n de 1 ate 10 FACA vt<-(prod[n,1]*prod[n,2]) vg<-(vg+vt) escreval("O produto ",n," tem valor R$ ",prod[n,1]," e foram vendidos ",prod[n,2]," unidades, obtendo o valor total R$ ",vt,".") FIMPARA porc<- ((vg*5)/100) posic<-1 maior<-prod[1,2] PARA n de 2 ate 10 FACA SE (maior < prod[n,2]) ENTAO maior<- prod[n,2] posic<- n FIMSE FIMPARA escreval("O valor geral das vendas e ",vg," e a comissao ganha pelo vendedor neste mes foi de ",porc,".") escreval("O valor do objeto mais vendido foi R$",prod[posic,1]," e esta localizado na coluna 2 e na linha ",posic,".")fimalgoritmoDownload arquivo alg. 3 - Faca um programa que preencha uma matriz 10 x 3 com as notas de dez alunos em tres provas. O programa devera mostrar um relatorio com o numero dos alunos (numero da linha) e a media do aluno nas 3 provas. Ao final do relatorio, devera mostrar a media geral de todos os alunos. algoritmo "alun3"var not: vetor [1..10, 1..3] de real mediag,media,contmediag: real l, c: inteiroinicio PARA l de 1 ate 10 FACA PARA c de 1 ate 3 FACA escreval("Digite a nota da prova ",c," do aluno ",l,": ") leia(not[l,c]) FIMPARA FIMPARA contmediag<-0 PARA
l de 1 ate 10 FACA media<-((not[l,1]+not[l,2]+not[l,3])/3) escreval("O aluno ",l," teve media ",media,".") contmediag<-contmediag+media FIMPARA mediag<- contmediag/10 escreval("A media geral foi ",mediag)fimalgoritmo Download arquivo alg. Como de costume a logica e sempre a grande vila da aula, mas tive grande facilidade em resolver a primeira questao, tendo facilidade tambem para compreender a segunda questao, sendo dificil adaptar a minha logica ao algoritmo, acabei fazendo do jeito mais dificil segundo o professor, mas pelo menos consegui resolver as questoes.
Na aula de hoje o professor Jossandro corrigiu as questoes da aula anterior, e passou mais 3 questoes que disponibilizarei a seguir.1 - Faca um algoritmo que preencha uma matriz M (2x2), calcule e mostre a matriz R, resultante da multiplicacao dos elementos de M pelo seu maior elemento. algoritmo "multi_maior_1"var m:vetor [1..2,1..2] de real r:vetor [1..2,1..2] de real maior,lim,col:real n,i:inteiroinicio PARA n de 1 ate 2 FACA PARA i de 1 ate 2 FACA escreval("Digite um numero para linha ",n," e para coluna ",i,":") leia(m[n,i]) FIMPARA FIMPARA maior<- m[1,1] pos<- 1,1 PARA n de 1 ate 2 FACA PARA i de 1 ate 2 FACA SE (maior < m[n,i]) ENTAO maior<- m[n,i] lim<- n col<- i FIMSE FIMPARA FIMPARA escreval("O numero maior da matriz foi",maior) PARA n de 1 ate 2 FACA PARA i de 1 ate 2 FACA r[n,i]<- m[n,i] * maior escreval("O resultado da multiplicacao entre ",m[n,i]," e ",maior," foi ",r[n,i]) FIMPARA FIMPARAfimalgoritmoDownload arquivo alg. 2 - Faca um programa que preencha: Um vetor com oito posicoes, contendo nomes de lojas;Outro vetor com quatro posicoes, contendo nomes de produtos;Uma matriz com os precos de todos os produtos em cada loja. O programa devera mostrar todas as relacoes (nome do produto nome da loja) em que o preco nao ultrapasse R$ 120,00. algoritmo "aula22_ex2"var loja: vetor [1..8] de caractere prod: vetor [1..4] de caractere preco: vetor [1..8,1..4] de real i, j : inteiroinicio para i <- 1 ate 8 faca escreval("Digite o nome da loja ",i) leia(loja[i]) fimpara para i <- 1 ate 4 faca escreval("Digite o nome do produto ",i) leia(prod[i]) fimpara para i <- 1 ate 8 faca para j <- 1 ate 4 faca escreval("Digite o preco do(a) ",prod[j]," na loja ",loja[i]) leia(preco[i,j]) fimpara fimpara para i <- 1 ate 8 faca para j <- 1 ate 4 faca se (preco[i,j] <= 120) entao escreval(prod[j]," custa R$",preco[i,j]," na loja ",loja[i]) fimse fimpara fimparafimalgoritmoDownload arquivo alg. 3 - Na teoria dos sistemas, define-se o elemento MINMAX de uma matriz como o maior elemento da linha em que se econtra o menor elemento da matriz. Elabore um programa que carregue uma matriz 4x7 com numeros reais, calcule e mostre seu MINMAX e sua posicao (linha e coluna). algoritmo "minmax3"var mat:vetor[1..4,1..7] de real menor,maior,coluna,colunamaior,linha: real n,i: inteiroinicio PARA n de 1 ate 4 FACA PARA i de 1 ate 7 FACA escreval("Digite o numero pertencente a coluna ",i," e a linha ",n,":") leia(mat[n,i]) FIMPARA FIMPARA menor<- mat[1,1] linha<- 1 coluna<- 1 PARA n de 1 ate 4 FACA PARA i de 1 ate 7 FACA SE menor < mat[n,i] ENTAO menor<- mat[n,i] linha<- n coluna<- i FIMSE FIMPARA FIMPARA maior<- mat[linha,1] colunamaior<- 1 PARA n de 1 ate 1 FACA PARA i de 1 ate 7 FACA SE maior < mat[linha,i] ENTAO maior<- mat[linha,i] colunamaior<- i FIMSE FIMPARA FIMPARA escreval("O menor numero e ",menor," esta na linha ",linha,",e na coluna ",coluna," e o maior desta linha e ",maior," esta na coluna ",colunamaior)fimalgoritmoDownload arquivo alg. Como sempre a logica sempre dificulta, na questao 2 tive grande dificuldade na compreensao do exercicio,
mas o professor Jossandro me explicou e acabei compreendendo, as outras duas tive uma certa facilidade em soluciona-las, mesmo o MINMAX da questao 3 e a multiplicacao da matriz pelo maior elemento da questao 1 sendo a principio confusos. Mas depois que conseguimos nos concentrar com certeza todos eles ficam mais faceis..
Na aula 23 acabei nao comparecendo, mas como era a ultima aula antes das ferias o professor passou cinco exercicios por e-mail para serem resolvidos nas ferias. Voltando das ferias na aula 24 o professor Jossandro passou mais 4 questoes, para serem corrigidas na aula 25 juntamente com as da aula 23, porem foi sorteado os alunos que foram ao quadro corrigir, ganhando 0.5 na media final quem acertava a questao, perdendo 0.5 quem nao tivesse feito e quem tivesse feito errado ficaria no 0 a 0, ou seja, nao ganharia mas tambem nao perderia. Na aula 25 acabei ganhando os 0.5 na media final.. Disponibilizarei todos os exercicios abaixo.6 - Crie um programa que preencha uma primeira matriz de ordem 4x5 e uma segunda matriz 5x2. O programa devera, tambem, calcular e mostrar a matriz resultante do produto matricial das duas matrizes anteriores, armazenando-o em uma terceira matriz de ordem 4x2.algoritmo "quest_6"var mat1:vetor[1..4,1..5] de real mat2:vetor[1..5,1..2] de real res:vetor[1..5,1..2] de real l,c: inteiroinicio PARA l de 1 ate 4 FACA PARA c de 1 ate 5 FACA escreval("Digite o numero da linha",l," e coluna ",c,":") leia(mat1[l,c]) FIMPARA FIMPARA PARA l de 1 ate 5 FACA PARA c de 1 ate 2 FACA escreval("Digite o numero da linha",l," e coluna ",c,", da segunda matriz:") leia(mat2[l,c]) FIMPARA FIMPARA PARA l de 1 ate 4 FACA PARA c de 1 ate 2 FACA res[l,c]<- ((mat1[l,1]*mat2[1,c])+(mat1[l,2]*mat2[2,c])+(mat1[l,3]*mat2[3,c])+(mat1[l,4]*mat2[4,c])+(mat1[l,5]*mat2[5,c])) FIMPARA FIMPARA PARA l de 1 ate 4 FACA PARA c de 1 ate 2 FACA escreval (res[l,1]," |",res[l,2]) FIMPARA FIMPARAfimalgoritmoDownload arquivo alg.7 - Um elemento Aij de uma matriz e dito ponto de sela da matriz A se, e somente se , Aij for ao mesmo tempo o menor elemento da linha i e o maior elemento da coluna j. Faca um programa que carregue uma matriz de ordem 5x7, verefique se a matriz possui ponto de sela e , se possuir, mostre seu valor e sua localizacao.algoritmo "ponto_de_sela7"var matr:vetor[1..5,1..7] de real l,c,l2,cont,conta,lin,co: inteiro sela:realinicio PARA l de 1 ate 5 FACA PARA c de 1 ate 7 FACA escreval("Digite o numero referente a linha",l," e coluna",c,":") leia(matr[l,c]) FIMPARA FIMPARA conta<-0 PARA l de 1 ate 5 FACA sela<- matr[l,1] lin<- l co<- 1 PARA c de 1 ate 7 FACA SE sela > matr[l,c] ENTAO sela<- matr[l,c] lin<- l co<- c FIMSE FIMPARA cont<-0 PARA l2 de 1 ate 5 FACA SE sela <= matr[l2,co] ENTAO SE (l2<>lin) e (c<>co) ENTAO cont<- cont+1 FIMSE FIMSE FIMPARA SE cont = 0 ENTAO escreval(" ") escreval("O ponto de sela da matriz esta na linha",lin,", e na coluna",co," e tem valor",matr[lin,co],".") conta<- conta+1 FIMSE FIMPARA SE conta = 0 ENTAO escreval(" ") escreval("Essa matriz nao tem nenhum ponto de sela.") FIMSEfimalgoritmoDownload arquivo alg.8 - Elabore um programa que preencha uma matriz de 6x4 com numeros inteiros, cacule e mostre quantos elementos dessa matriz sao maiores que 30 e, em seguida, monte uma segunda matriz com os elementos diferentes de 30. No lugar do numero 30 da segunda matriz, coloque o numero zero.algoritmo "quest8"var matr: vetor[1..6,1..4] de inteiro l,c,cont:inteiroinicio cont<-0 PARA
Matriz Final ") PARA l de 1 ate 6 FACA escreval(" | ",matr[l,1]," | ",matr[l,2]," | ",matr[l,3]," | ",matr[l,4]," | ",matr[l,5]," | ",matr[l,6]," | ") FIMPARAfimalgoritmoDownload arquivo alg.4 - Leia matriz A de 8x8, depois preencha uma matriz B de mesma ordem, trocando as linhas da matriz A pelas colunas da matriz B. Exemplo: 1a linha da matriz A, sera a 1a coluna da matriz B2a linha da matriz A, sera a 2a coluna da matriz Be assim por diante. Escreva a matriz resultante.algoritmo "linha_colu"var matr:vetor[1..8,1..8] de real matr2:vetor[1..8,1..8] de real l,c:inteiroinicio PARA l de 1 ate 8 FACA PARA c de 1 ate 8 FACA escreval("Digite o valor referente a linha ",l," e coluna ",c,":") leia(matr[l,c]) FIMPARA FIMPARA PARA l de 1 ate 8 FACA PARA c de 1 ate 8 FACA matr2[l,c] <- matr[c,l] FIMPARA FIMPARA escreval(" ") escreval(" Matriz Resultante ") PARA l de 1 ate 8 FACA escreval("| ",matr2[l,1]," | ",matr2[l,2]," | ",matr2[l,3]," | ",matr2[l,4]," | ",matr2[l,5]," | ",matr2[l,6]," | ",matr2[l,7]," | ",matr2[l,8]," | ") FIMPARAfimalgoritmoDownload arquivo alg. A minha grande dificuldade foi nos exercicios 1 e 9 pois a contagem dos numeros repetidos acabava me confundindo.. no restante tive ate uma certa facilidade, resolvendo-os e apresentado para os colegas no projetor duas das minhas questoes resolvidas.