lucas silva11111

to entendendo amigo, tipo com o while fica while (opcao<>4)do blablabla mas e com o for? não estou conseguindo pensa na estrutura

up??

galera é o seguinte, tenho esse códigozinho ai, que é uma calculadora de áreas, que usa o comando de repetição " repeat " fiquei enrolado, e nao consegui fazer esse mesmo código usando a repetição " while " , e com ' for " vocês poderiam me ajudar por favor?agradeço Program qc; var opcao:integer; a1,a2,a3:real; lado:real; base, altura:real; Begin repeat clrscr; writeln('MENU'); writeln('1: PARA CALCULAR A AREA DO QUADRADO'); writeln('2: PARA CALCULAR A AREA DO RETANGULO'); writeln('3: PARA CALCULAR A AREA DO TRIANGULO'); writeln('4: PARA SAIR'); writeln(' QUAL SUA OPCAO ?'); readln (opcao); case (opcao) of 1: begin writeln('voce ESCOLHEU A AREA DO QUADRADO'); writeln('POR FAVOR INFORME UM DOS LADOS DO QUADRADO'); readln (lado); writeln ('A ÁREA DO SEU QUADRADO É : ', lado*lado :4:2); end; 2: begin writeln ('voce ESCOLHEU CALCULARMOS A ÁREA DO RETANGULO'); writeln ('VAMOS ME AJUDE, INFORME A BASE E A ALTURA DO MESMO'); readln (base,altura); writeln ('A BASE DO SEU RETANGULO É ', base*altura :4:2); end; 3: begin writeln ('VOCEE ESCOLHEU CALCULARMOS A AREA DO TRIANGULO'); writeln ('POR FAVOR INFORME A BASE A ALTURA'); readln (base, altura); writeln ('A AREA DO SEU TRIANGULO É' , ((base*altura) /2):4:2); end else begin if(opcao=4) then begin writeln ('voce OPTOU POR SAIR, BYE BYE'); end else begin writeln ('voce DIGITOU UMA OPCAO INVÁLIDA'); end; end; end; readln; until (opcao=4); End.