kakajr10

não recebi seu arquivo meu amigo

@Mauro Britivaldo , preciso resolver e não estou entendendo, poderia fazer?

6. Faça um programa que solicita ao usuário dois números inteiros e armazena nas variáveis A e B. a. A seguir (utilizando apenas atribuições entre variáveis) troque os seus conteúdos fazendo com que o valor que está em A passe para B e vice-versa. b. Ao final escreva os valores que ficaram armazenados nas variáveis A e B respectivamente. 7. Faça um programa que calcula os gastos com combustível em uma viagem. a. O programa deve solicitar ao usuário a distância a ser percorrida em Km, o consumo do carro em Km/litro e o preço do litro do combustível. b. Como resposta o programa deverá informar qual o valor em R$ a ser gasto com combustível na viagem. 8. O sistema de avaliação de determinada disciplina, é composto por três provas. A primeira prova tem peso 2, a segunda tem peso 4 e a terceira prova tem peso 6. Faça um programa que solicita as notas para o aluno, calcula e exibe a média final deste aluno. 9. João recebeu seu salário S1 (em reais) e precisa pagar duas contas (C1 e C2) que estão atrasadas. Como as contas estão atrasadas, João terá de pagar multa de 2% sobre cada conta. Faça um algoritmo que calcule e mostre quanto restará do salário do João

Pessoal, poderiam me ajudar concluir esse exercício, estou tendo problema no calculo do titulo e não sei se a decisão final está correta, do laço Program exercicio; //SISTEMA DESCONTO BANCARIO ; VAR CLIENTECR:STRING; NOMECR:STRING; VALORCR:REAL; DIASCR:REAL; TAXACR:REAL; DESCONTADOCR:REAL; RESPCR:CHAR; //CONTROLE DE LAÇO BEGIN repeat ClrScr; //limpar a tela writeln(' SISTEMA DESCONTO BANCÁRIO - tela entrada '); writeln(' ----------------------------------- '); writeln(' TIPO DE CLIENTE ( F/J): '); readln(CLIENTECR); writeln(' NOME DO CLIENTE: '); readln(NOMECR); writeln(' VALOR DO TITULO: '); readln( VALORCR ); writeln('DIAS ANTECIPAÇÃO:'); readln (diascr); writeln('------------------------------------ '); //logica da taxa de descontos: IF (CLIENTECR=F)AND(VALORCR<100) THEN BEGIN TAXACR:=VALORCR*0.07; END; IF (CLIENTECR=F)AND(VALORCR>=100) THEN BEGIN TAXACR:=VALORCR*0.06; END; IF (CLIENTECR=F)AND(VALORCR<=500) THEN BEGIN TAXACR:=VALORCR*0.06; END; IF (CLIENTECR=F)AND(VALORCR>500) THEN BEGIN TAXACR:=VALORCR*0.05; END; IF (CLIENTECR=J)AND(VALORCR<=500) THEN BEGIN TAXACR:=VALORCR*0.05; END; IF (CLIENTECR=J)AND(VALORCR<500) THEN BEGIN TAXACR:=VALORCR*0.035; END; //calculo do titulo DESCONTADOCR=VALORCR*(1+TAXACR*DIASCR/3000); ClrScr; writeln('------------------------------'); writeln( ' SISTEMA DESCONTO BANCARIO - TELA SAIDA '); writeln('------------------------------'); writeln(' TAXA DESCONTO MENSAL (%):',TAXACR:0:2 ); descontadocr=valorcr*(1+ writeln(' VALOR DO TITULO DESCONTADO:',DESCONTADOCR:0:2); writeln('------------------------------'); writeln('TECLE S PARA NOVO TITULO OU N PARA SAIR': ); readln(respcr); until (respcr=' n '); END.

@Simon Viegas meu amigo, nao estou conseguindo fazer o programa funcionar, pode me ajudar? Program ATIVIDADE3 ; VAR PRODCR: STRING; PRECOCR: REAL; QUANTCR: INTEGER; TOTALPCR: REAL; TOTALCCR: REAL; DESCCR: REAL; TOTALLCR: REAL; RESPCR:CHAR; //CONTROLE DO LAÇO Begin REPEAT CLRSCR; //LIMPAR A TELA WRITELN ( ' SISTEMA COMPRA/VENDA - TELA ENTRADA '); WRITELN ( ' ----------------------------------- '); WRITELN ( ' PRODUTO---------------------------- '); READLN ( PRODCR ); WRITELN ( ' PREÇO UNITÁRIO--------------------- '); READLN ( PRECOCR ); WRITELN ( ' QUANTIDADE------------------------- '); READLN ( QUANTCR ); WRITELN ( '------------------------------------ '); TOTALPCR:= PRECOCR*QUANTCR; TOTALCCR:= TOTALCCR+TOTALPCR; WRITELN ( ' TOTAL PARCIAL----:', TOTALPCR:0:2); WRITELN ( 'TOTAL DA COMPRA---:', TOTALCCR:0:2); WRITELN ( '---------------------------------'); WRITE ( 'OUTRO PRODUTO ( S/N )?'); READLN ( RESPCR ); UNTIL ( RESPCR = ' N ' ); READLN; //INICIO DOS CALCULOS IF(TOTALCCR<100)THEN DESCCR:=TOTALCCR*0.10 ELSE IF(TOTALCCR>=100)THEN DESCCR:=TOTALCCR*0.20; TOTALCCR:=TOTALCCR-DESCCR; CLRSCR; WRITELN ('------------------------------'); WRITELN ( ' SISTEMA COMPRA/VENDA - TELA SAIDA '); WRITELN ('------------------------------'); WRITELN (' TOTAL DA COMPRA:',TOTALPCR:0:2 ); WRITELN (' DESCONTO:',DESCCR:0:2 ); WRITELN (' TOTAL LIQUIDO:',TOTALLCR:0:2 ); WRITELN ('------------------------------'); WRITELN ('FIM DE PROGRAMA, TECLE ENTER' ); End.

@Simon Viegas esses CR são apenas as inicial do meu nome, para diferenciar dos demais alunos

pessoal, to com esse exercício pra fazer e não consigo desenvolver a segunda tela, a primeira já esta feita, alguém pode me ajudar? segue a primeira tela Program ATIVIDADE3 ; VAR PRODCR: STRING; PRECOCR: REAL; QUANTCR: INTEGER; TOTALPCR: REAL; TOTALCCR: REAL; DESCCR: REAL; TOTALLCR: REAL; RESPCR:CHAR; //CONTROLE DO LAÇO Begin REPEAT CLRSCR; //LIMPAR A TELA WRITELN ( ' SISTEMA COMPRA/VENDA - TELA ENTRADA '); WRITELN ( ' ----------------------------------- '); WRITELN ( ' PRODUTO---------------------------- '); READLN ( PRODCR ); WRITELN ( ' PREÇO UNITÁRIO--------------------- '); READLN ( PRECOCR ); WRITELN ( ' QUANTIDADE------------------------- '); READLN ( QUANTCR ); WRITELN ( '------------------------------------ '); TOTALPCR:= PRECOCR*QUANTCR; TOTALCCR:= TOTALCCR+TOTALPCR; WRITELN ( ' TOTAL PARCIAL----:', TOTALPCR:0:2); WRITELN ( 'TOTAL DA COMPRA---:', TOTALCCR:0:2); WRITELN ( '---------------------------------'); WRITE ( 'OUTRO PRODUTO ( S/N )?'); READLN ( RESPCR ); UNTIL ( RESPCR = ' N ' ); End.