HUNTER020
Membro Pleno-
Posts
20 -
Cadastrado em
-
Última visita
Tipo de conteúdo
Artigos
Selos
Fabricantes
Livros
Cursos
Análises
Fórum
Tudo que HUNTER020 postou
-
@flávio pedroza obrigado, funcionou agora. program exercicio_4 ; var altura, base, indice, s, n : integer; area, cont : real; begin clrscr; area := +1; indice := indice+1; repeat write('digite a base'); read(base); write('digite a altura'); read(altura); area := (base*altura) / 2.0; writeln('area = ', area:0:2); until(indice >6); writeln('deseja continuar (s/n)'); end. Agora preciso limitar a repetição em 6 vezes apenas, tem alguma dica de como posso fazer isso?
-
Program exercicio_4 ; VAR ALTURA, BASE, INDICE : INTEGER; AREA, cont : REAL; Begin clrscr; area := 1; INDICE := INDICE+1; REPEAT WRITE('DIGITE A BASE'); read(BASE); WRITE('DIGITE A ALTURA'); READ(ALTURA); cont := BASE*ALTURA/2; WRITELN('AREA = ', indice:0:2); until(INDICE >6); readln; End. queria saber como arrumar o erro com o calculo, sempre a resposta é 1,00 independente do numero digitado
-
Pascal Alguem sabe me ajudar com esse erro?
HUNTER020 respondeu ao tópico de HUNTER020 em Programação - outros
@simon viegas program lista_de_exercicios ; var exercicio: integer; resposta : char; begin repeat writeln(''); writeln('======================================================================================'); writeln(' lista de exercicios '); writeln('======================================================================================'); writeln(''); writeln(''); writeln('================================================================================'); writeln(' 1_exercicio 1 '); writeln(' 2_exercicio 3 '); writeln(' 3_exercicio 5 '); writeln(' 4_finalizar '); writeln('================================================================================'); writeln(''); writeln('informe o exercicio (1, 2 ou 3 - press 4 para finalizar o programa): '); readln(exercicio); case (exercicio) of 1: begin clrscr(); writeln('exercicio1') ; writeln('1_qual dos itens e um dispositivo de entrada?'); writeln(''); writeln('=============================================================================='); writeln(' a - teclado '); writeln(' b - monitor '); writeln(' c - caixa de som '); writeln(' d - impressora '); writeln('=============================================================================='); writeln('digite a resposta (a, b, c ou d): '); readln(resposta); end; 2: begin clrscr(); writeln('exercicio2') ; writeln('3_qual dos itens e um dispositivo de saida?'); writeln(''); writeln('=============================================================================='); writeln(' a - teclado '); writeln(' b - mouse '); writeln(' c - monitor '); writeln(' d - cpu '); writeln('=============================================================================='); writeln('digite a resposta (a, b, c ou d): '); readln(resposta); end; 3: begin clrscr(); writeln('exercicio3') ; writeln('5_qual destes pode ser considerado hardware?'); writeln(''); writeln('=============================================================================='); writeln(' a - windows '); writeln(' b - linux '); writeln(' c - chrome '); writeln(' d - placa-mãe '); writeln('digite a resposta (a, b, c ou d): '); readln(resposta); writeln(); end; 4: begin clrscr(); //aqui você deve utilizar o comando continue para que o algoritmo pule esta etapa e possa finalizar sua estrutura de repetição. continue; end; else begin writeln('número inválido') ; writeln('erro, a questao digitada e invalida!') end; end; until((exercicio) = 4); end. agora estou apenas com o problema de o código não reconhecer as opções de resposta a, b, c e d, alguem poderia me dar uma ajuda -
Pascal Alguem sabe me ajudar com esse erro?
HUNTER020 respondeu ao tópico de HUNTER020 em Programação - outros
Simon está online aí? adicionado 4 minutos depois tive que modificar o codigo que eu tinha escrito quase que por completo utilizando estrutura de multipla escolha só que ele não reconhece as respostas agora adicionado 5 minutos depois program lista_de_exercicios ; var exercicio: integer; resposta : char; begin clrscr(); repeat writeln(''); writeln('======================================================================================'); writeln(' lista de exercicios '); writeln('======================================================================================'); writeln(''); writeln(''); writeln('================================================================================'); writeln(' 1_exercicio 1 '); writeln(' 2_exercicio 3 '); writeln(' 3_exercicio 5 '); writeln(' 4_finalizar '); writeln('================================================================================'); writeln(''); writeln('informe o exercicio (1, 2 ou 3 - press 4 para finalizar o programa): '); readln(exercicio); case (exercicio) of 1: begin writeln('exercicio1') ; writeln('1_qual dos itens e um dispositivo de entrada?'); writeln(''); writeln('=============================================================================='); writeln(' a - teclado '); writeln(' b - monitor '); writeln(' c - caixa de som '); writeln(' d - impressora '); writeln('=============================================================================='); writeln('digite a resposta (a, b, c ou d): '); readln(resposta); end; 2: begin writeln('exercicio2') ; writeln('3_qual dos itens e um dispositivo de saida?'); writeln(''); writeln('=============================================================================='); writeln(' a - teclado '); writeln(' b - mouse '); writeln(' c - monitor '); writeln(' d - cpu '); writeln('=============================================================================='); writeln('digite a resposta (a, b, c ou d): '); readln(resposta); end; 3: begin writeln('exercicio3') ; writeln('5_qual destes pode ser considerado hardware?'); writeln(''); writeln('=============================================================================='); writeln(' a - windows '); writeln(' b - linux '); writeln(' c - chrome '); writeln(' d - placa-mãe '); writeln('digite a resposta (a, b, c ou d): '); readln(resposta); writeln(); end; 4: begin //aqui você deve utilizar o comando continue para que o algoritmo pule esta etapa e possa finalizar sua estrutura de repetição. continue; end; else begin writeln('número inválido') ; writeln('erro, a questao digitada e invalida!') end; end; until((exercicio) = 4); end. é só um rascunho mas ficou assim -
Pascal Alguem sabe me ajudar com esse erro?
HUNTER020 respondeu ao tópico de HUNTER020 em Programação - outros
@Simon Viegas obrigado vou tentar aqui -
Pascal Alguem sabe me ajudar com esse erro?
HUNTER020 respondeu ao tópico de HUNTER020 em Programação - outros
@Simon Viegas Na linha de baixo do if, e digito só else mesmo? -
Pascal Alguem sabe me ajudar com esse erro?
HUNTER020 respondeu ao tópico de HUNTER020 em Programação - outros
@simon viegas program lista_de_exercicios ; var exercicio, exercicio1 : string; resposta : char; begin repeat writeln(''); writeln('==========================================================================================='); writeln(' lista de exercicios '); writeln('==========================================================================================='); writeln(''); writeln(''); writeln('================================================================================'); writeln(' 1_exercicio 1 '); writeln(' 2_exercicio 3 '); writeln(' 3_exercicio 5 '); writeln(' 4_finalizar '); writeln('================================================================================'); writeln(''); writeln('informe o exercicio (1, 2 ou 3 - press 4 para finalizar o programa): '); readln(exercicio); if(exercicio = '1') then begin writeln('qual dos itens e um dispositivo de entrada?'); writeln(''); writeln('=============================================================================='); writeln(' a - teclado '); writeln(' b - monitor '); writeln(' c - caixa de som '); writeln(' d - impressora '); writeln('=============================================================================='); writeln('digite a resposta (a, b, c ou d): '); readln(resposta); if(resposta = 'a') then writeln('resposta correta teclado!') else writeln('resposta incorreta'); end; until((exercicio) = '4'); end. -
Pascal Alguem sabe me ajudar com esse erro?
HUNTER020 respondeu ao tópico de HUNTER020 em Programação - outros
@Simon Viegas as duas ultimas adicionado 0 minutos depois as outras 5 já fiz aqui -
Pascal Alguem sabe me ajudar com esse erro?
HUNTER020 respondeu ao tópico de HUNTER020 em Programação - outros
@Simon Viegas Desculpe a falta de experiencia, mas como faço isso? -
Pascal Alguem sabe me ajudar com esse erro?
HUNTER020 respondeu ao tópico de HUNTER020 em Programação - outros
@Simon Viegas OK -
Pascal Alguem sabe me ajudar com esse erro?
HUNTER020 respondeu ao tópico de HUNTER020 em Programação - outros
program lista_de_exercicios ; var exercicio, exercicio1 : string; num1, num2, num3, num4 : real; resposta : string; cont : string; begin repeat writeln(''); writeln('==========================================================================================='); writeln(' lista de exercicios '); writeln('==========================================================================================='); writeln(''); writeln(''); writeln('================================================================================'); writeln(' 1_exercicio 1 '); writeln(' 2_exercicio 3 '); writeln(' 3_exercicio 5 '); writeln(' 4_sair '); writeln('================================================================================'); writeln(''); writeln('informe o exercicio (1, 2 ou 3 - press 4 para finalizar o programa): '); readln(exercicio); if(exercicio = '1') then begin writeln('qual dos itens e um dispositivo de entrada?'); writeln(''); writeln('=============================================================================='); writeln(' a - teclado '); writeln(' b - monitor '); writeln(' c - caixa de som '); writeln(' d - impressora '); writeln('=============================================================================='); writeln('digite a resposta (a, b, c ou d): '); readln(resposta); if(resposta = 'a') then begin writeln('resposta correta teclado!'); end else if(resposta = 'b, c, d') then else writeln('resposta incorreta'); end; readln(cont); until((cont) = '4'); end. -
Pascal Alguem sabe me ajudar com esse erro?
HUNTER020 respondeu ao tópico de HUNTER020 em Programação - outros
@Simon Viegas @Simon Viegaswriteln('deseja realizar outro exercício? (y/4): '); Essa eu coloquei pra pessoa saber qual tecla utilizar para permanecer ou sair do programa -
Pascal Alguem sabe me ajudar com esse erro?
HUNTER020 respondeu ao tópico de HUNTER020 em Programação - outros
@simon viegas program lista_de_exercicios ; var exercicio, exercicio1 : string; num1, num2, num3, num4 : real; a, b, c, d : char; resposta : string; cont : string; begin repeat writeln(''); writeln('======================================================================='); writeln(' lista de exercicios '); writeln('======================================================================='); writeln(''); writeln(''); writeln('======================================================================='); writeln(' 1_exercicio 1 '); writeln(' 2_exercicio 3 '); writeln(' 3_exercicio 5 '); writeln(' 4_sair '); writeln('======================================================================='); writeln(''); writeln('informe o exercicio (1, 2 ou 3 - press 4 para finalizar o programa): '); readln(exercicio); if(exercicio = '1') then begin exercicio1 := ('qual dos itens e um dispositivo de entrada?'); writeln(''); writeln('========================================='); writeln(' a - teclado '); writeln(' b - monitor '); writeln(' c - caixa de som '); writeln(' d - impressora '); writeln('========================================='); writeln('digite a resposta (a, b, c ou d): '); readln(resposta); if(resposta = 'a') then begin writeln('resposta correta!'); end else if(resposta = 'b, c, d') then else writeln('resposta incorreta'); end; writeln('deseja realizar outro exercício? (y/4): '); readln(cont); until(upcase(cont) = '4'); end. -
Pascal Alguem sabe me ajudar com esse erro?
HUNTER020 respondeu ao tópico de HUNTER020 em Programação - outros
@Simon Viegas não consegui fazer o código repetir a função -
Pascal Alguem sabe me ajudar com esse erro?
HUNTER020 respondeu ao tópico de HUNTER020 em Programação - outros
@Simon Viegas ok, obrigado pela ajuda cara, me salvou aqui -
Pascal Alguem sabe me ajudar com esse erro?
HUNTER020 respondeu ao tópico de HUNTER020 em Programação - outros
@Simon Viegas no final do código? -
Pascal Alguem sabe me ajudar com esse erro?
HUNTER020 respondeu ao tópico de HUNTER020 em Programação - outros
@simon viegas @simon viegas program lista_de_exercicios ; var exercicio, exercicio1 : string; num1, num2, num3, num4 : real; a, b, c, d : char; resposta : string; begin writeln(''); writeln('========================================='); writeln(' lista de exercicios '); writeln('========================================='); writeln(''); writeln(''); writeln('========================================='); writeln(' 1_exercicio 1 '); writeln(' 2_exercicio 3 '); writeln(' 3_exercicio 5 '); writeln(' 4_sair '); writeln('========================================='); writeln(''); writeln('informe o exercicio (1, 2 ou 3 - press 4 para finalizar o programa): '); readln(exercicio); if(exercicio = '1') then begin exercicio1 := ('qual dos itens e um dispositivo de entrada?'); writeln(''); writeln('========================================='); writeln(' a - teclado '); writeln(' b - monitor '); writeln(' c - caixa de som '); writeln(' d - impressora '); writeln('========================================='); writeln('digite a resposta (a, b, c ou d): '); readln(resposta); if(resposta = 'a') then begin writeln('resposta correta!'); end else if(resposta = 'b') then else writeln('resposta incorreta'); end else if(resposta = 'c') then else writeln('resposta incorreta'); if(resposta = 'd') then writeln('resposta incorreta'); end. -
Pascal Alguem sabe me ajudar com esse erro?
HUNTER020 respondeu ao tópico de HUNTER020 em Programação - outros
Estou utilizando o pascalzin writeln('informe o exercicio (1, 2 ou 3 - press 4 para finalizar o programa): '); readln(exercicio); if(exercicio = '1') then begin exercicio1 := ('qual dos itens e um dispositivo de entrada?'); writeln(''); writeln('========================================='); writeln(' a - teclado '); writeln(' b - monitor '); writeln(' c - caixa de som '); writeln(' d - impressora '); writeln('========================================='); writeln('digite a resposta (a, b, c ou d): '); readln(resposta); if(resposta = 'a') then begin writeln('resposta correta!'); end else if(resposta = 'b') then else writeln('resposta incorreta'); end else if(resposta = 'c') then else writeln('resposta incorreta'); if(resposta = 'd') then writeln('resposta incorreta'); end. adicionado 1 minuto depois O objetivo final era esse: 2) Elabore um algoritmo que monte um menu com as seguintes opções: 1 – Exercício 1 2 – Exercício 3 3 – Exercício 5 4 – Fim Se o usuário executar a opção 1, o algoritmo deve executar o exercício 1 desta lista. Se o usuário executar a opção 2, o algoritmo deve executar o exercício 3 desta lista. Se o usuário executar a opção 3, o algoritmo deve executar o exercício 5 desta lista. Se o usuário executar a opção 4, o algoritmo deve finalizar a execução do algoritmo com a mensagem, “fim de execução - tudo de bom.”. Caso seja informado um número diferente de 1, 2 3 e 4, o algoritmo deve emitir a mensagem de opção inválida e voltar a pedir uma opção de menu novamente. -
Pascal Alguem sabe me ajudar com esse erro?
HUNTER020 respondeu ao tópico de HUNTER020 em Programação - outros
estou tentando aqui mas ainda está dando erro no end do final do código -
Estou tento um erro no end final do código e não consigo resolver program lista_de_exercícios ; var exercicio, exercicio1 : string; num1, num2, num3, num4 : real; a, b, c, d : char; begin writeln(''); writeln('========================================='); writeln(' lista de exercicios '); writeln('========================================='); writeln(''); writeln(''); writeln('========================================='); writeln(' 1_exercicio 1 '); writeln(' 2_exercicio 3 '); writeln(' 3_exercicio 5 '); writeln(' 4_sair '); writeln('========================================='); writeln(''); repeat writeln('informe o exercicio (1, 2 ou 3 - press 4 para finalizar o programa): '); read(exercicio); if(exercicio = '1') then begin exercicio1 := ('qual dos itens e um dispositivo de entrada?'); writeln(''); writeln('========================================='); writeln(' a - teclado '); writeln(' b - monitor '); writeln(' c - caixa de som '); writeln(' d - impressora '); writeln('========================================='); writeln('digite a resposta (a, b, c ou d): '); read(resposta); if(resposta = 'a') then begin writeln('resposta correta!'); end else if(resposta = 'b') then begin writeln('resposta incorreta'); end; begin if(resposta = 'c') then begin writeln('resposta incorreta'); end; begin if(resposta = 'd') then writeln('resposta incorreta'); end.
Sobre o Clube do Hardware
No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais
Direitos autorais
Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais