Trabalho Disciplina de Algoritmo Civil.docxOi pessoal, tudo bem?
Eu preciso fazer um programa para entregar amanhã pro meu professor. Tentei até agora mas não consegui. Se alguém pudesse me ajudar... Não estou pedindo para fazer o trabalho pra mim, mas para me ajudar a entender.
Vou anexar o arquivo que meu prof. deu para o trabalho e vou colocar o que eu fiz até agora... Sei que está errado, mas é o que consegui fazer.
vocês vão ver que fiz até o segundo menu, porque estava tentando fazer a repetição de voltar de um para outro, mas sei que tem mais coisa faltando.
Se alguém puder me ajudar a entender.
Fico grata a quem puder me ajudar .
Program TRABALHO ;VAROPCAO,TOTAL,QT,AREIA,CIMENTO,CAL,PEDRA,TC,TB,T1,T2,T3,T4,C1,C2,F1,F2,CE4,CE2,I1,I2,RP,PP,AI,AE,CA,CS:REAL;RESP:STRING;BeginWRITELN(' ****************************************');WRITELN(' * LOJA DE MATERIAL DE CONSTRUÇÃO *');WRITELN(' ****************************************'); WRITELN(' ');WRITELN(' DESEJA INICIAR UM ORÇAMENTO? SE SIM DIGITE S. SE NÃO DIGITE N PARA SAIR:');READLN(RESP); while resp= 'n' do exit;if RESP= 'S' thenBEGIN WRITELN('DIGITE A OPÇÃO DESEJADA', opcao); WRITELN('1 - MATERIAS BÁSICOS'); WRITELN('* AREIA R$80,00 M3', areia); WRITELN('* CIMENTO R$30,00 SACO 50KG', cimento); WRITELN('* PEDRA R$90,00 M3', pedra); WRITELN('* CAL R$15,00 SACO 5KG', cal); WRITELN('* TC-TIJOLO COMUM R$500,00 MILHEIRO', tc); WRITELN('* TB-TIJOLO BAIANO R$390,00 MILHEIRO', tb); while OPCAO = AREIA do TOTAL:= AREIA + QT*80; while OPCAO = CIMENTO do TOTAL:= CIMENTO + QT*30; while OPCAO = PEDRA do TOTAL:= PEDRA + QT*90; while OPCAO = CAL do TOTAL:= CAL + QT*15; while OPCAO = TC do TOTAL:= TC + QT*500; while OPCAO = TB do TOTAL:= TB + QT*390; end else WRITELN('DESEJA OUTRO MATERIAL OPÇÃO ANTERIOR? SE SIM S OU P PROXIMO'); READLN(RESP); if RESP= 'P' then BEGINWRITELN('2 - HIDRÁULICA'); WRITELN('* T1 TUBO PVC BARRA 6MTS MARROM 3/4 R$22,00 BARRA'); WRITELN('* T2 TUBO PVC BARRA 6MTS MARROM 50mm R$50,00 BARRA'); WRITELN('* T3 TUBO PVC BARRA 3MTS AQUATERM R$30,00 BARRA'); WRITELN('* T4 TUBO PVC BARRA 6MTS BRANCO ESGOTO R$40,00 BARRA'); WRITELN('* C1 CURVA PVC 45G 50mm R$10,00 UN.'); WRITELN('* C2 COTOVELO você 25mm R$10,00 UN.'); IF OPCAO = T1 THEN TOTAL:= T1+ QT*22; IF OPCAO = T2 THEN TOTAL:= T2 + QT*50; IF OPCAO = T3 THEN TOTAL:= T3 + QT*30; IF OPCAO = T4 THEN TOTAL:= T4 + QT*40; IF OPCAO = C1 THEN TOTAL:= C1 + QT*10; IF OPCAO = C2 THEN TOTAL:= C2 + QT*10; end End.