HUNTER020

@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

@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

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

@Simon Viegas obrigado vou tentar aqui

@Simon Viegas Na linha de baixo do if, e digito só else mesmo?

@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.

@Simon Viegas as duas ultimas adicionado 0 minutos depois as outras 5 já fiz aqui

@Simon Viegas Desculpe a falta de experiencia, mas como faço isso?

@Simon Viegas OK

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.

@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

@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.

@Simon Viegas não consegui fazer o código repetir a função

@Simon Viegas ok, obrigado pela ajuda cara, me salvou aqui