Pesquisar na Comunidade
Mostrando resultados para as tags ''logica''.
Encontrado 28 registros
-
Olá galera,sou iniciante em programaçao (Comecei a 1 semana ^^),no meu curso estamos usando o Visualg e meu professor passou a seguinte tarefa: Mostar na tela se os numeros digitados podem formar um triangulo Mostrar se o triangulo é equilatero,escaleno ou isoceles. Eu consegui fazer isso,porem mesmo quando os numeros digitados não podem formar um triangulo,a variavel isoceles (Is) é dada como verdadeira. Consegui resolver o problema,colocando na ultima linha :Escreval ("O triangulo é isoceles? ",Is=TRI) Porém apesar de mostrar na tela uma saida certa,não sei se para o computador o resultado e logicamente correto entende?Alguém ai sabe como corrigir?ou está tudo certo?===============Eq=Equilatero, Es=Escaleno TRI= Triangulo ou não algoritmo "triangulo" var L1, L2, L3: Real Eq, Es, TRI, Is: Logico inicio Escreva ("Digite o primeiro lado: ") Leia (L1) Escreva ("Digite o segundo lado: ") Leia (L2) Escreva ("Digite o terceiro lado: ") Leia (L3) TRI <- (L1< L2+L3) e (L2< L1+L3) e (L3< L1+L2) Eq <- (L1=L2) e (L2=L3) Es <- (L1<>L2) e (L2<>L3) e (L3<>L1) Is <- ((L1=L2) e (L3<>L2)) ou ((L2=L3) e (L1<>L2)) ou ((L1=L3) e (L2<>L1)) Escreval ("Pode ser um triangulo? ",TRI) Escreval ("O triangulo é equilatero? ",Eq) Escreval ("O triangulo é escaleno? ",Es) Escreval ("O triangulo é isoceles? ",Is) fimalgoritmo
-
Olá pessoal,boa tarde! Tudo bem ? Estou com umas dúvidas em pascal e gostaria de umas ajudas. Tenho o seguinte exercício: Desenvolva uma pequena aplicação em Pascal que leia do teclado um inteiro n, maior ou igual a 1, e que e que apresente linhas dessa forma: 1 1 1 1 1 4 4 4 4 9 9 9 16 16 25 Dessa forma eu já consegui fazer usando comandos de repetição, todavia o terceiro exercício pede que façamos esse mesmo exercício usando recursividade(sem repetição), não tenho muita ideia de como poderia começar, alguém poderia me dar uma ideia? Segue o código da primeira aplicação program quuest1 (input{teclado}, output{video}); uses crt; var n:integer; procedure esc_linhas(n{e}:integer); var i,t,j :integer; begin t:=n; n:=t-(n-1); for i := t downto 1 do begin for j:= 1 to i do begin write(output, sqr(n),' '); end; writeln; n:=n+1; end; end; begin writeln('Nome do Aluno: Beto'); writeln('Disciplina: Fundamentos de programaçao'); writeln('Primeira Avaliaçao a distancia'); writeln('__________________________________________________'); writeln('Questao 1'); write(output,'Digite um numero inteiro maior ou igual a 1: '); read(input,n); if n>=1 then esc_linhas(n) else writeln(output,' Somente números maiores ou igual a 1 são aceitos'); readkey; end.
- 2 respostas
-
- recursividade
- pascal
-
(e %d mais)
Tags:
-
Olá! Bom pessoal, sou novo aqui no fórum, desde já peço desculpas caso fuja às regras do mesmo. Seguinte... Estou com dúvida ao desenvolver um script PHP e gostaria que me ajudassem, se possível. Comecei a desenvolver o algorítimo, e de começo, pensei em usar a estrutura while, porém me enrolei todo e não consegui. Como sou iniciante em programação php, sinto dificuldade em passar minha ideia por papel (melhor dizendo, pra código kk ), e não consegui muito bem estruturá-las . ( No exemplo, pensei em jogar em um while). Segue o problema: Joãozinho tem 1,50m e cresce 2 centímetros por ano. Pedrinho tem 1,10m e cresce 3 centímetros por ano. Elabore um script em PHP que, analisando a situação recém-descrita, escreva uma página web dinâmica mostrando quantos anos levará para que Pedrinho fique maior do que Joãozinho. Como faço pra ir fazendo a comparação ao mesmo tempo ? Ex: ( joao + 2 && pedrinho + 3) , até que pedro passe joão, e ao mesmo que isso aconteça, armazene o valor relativo ao ano, começando do zero ? ( ano+1 a cada ano que se passe) ? Obrigado desde já.