odair020

@Simon Viegas Simon tentei fazer as alterações porém deu erro

@Simon Viegas Program teste1 ; var not1, not2, not3, not4 : real; opcao : char; retorno : real; procedure medialuno( media : real); begin if(media >= 6.0) then writeln('Você foi aprovado!') else writeln('Sentimos muito mas você foi reprovado'); end; function calcmedia (n1, n2, n3, n4 : real) : real; var med: real; retorno1 : real; begin writeln('ENTRE COM A PRIMEIRA NOTA'); readln(n1); writeln('ENTRE COM A SEGUNDA NOTA'); readln(n2); writeln('ENTRE COM A TERCEIRA NOTA'); readln(n3); writeln('ENTRE COM A QUARTA NOTA'); readln(n4); med:=(n1+n2+n3+n4)/4; writeln('A média do aluno é:',med); calcmedia:=(med); end; Begin repeat retorno := calcmedia (not1, not2, not3, not4); medialuno(retorno); writeln('Deseja realizar outro calculo de media?(S/N)'); readln(opcao); until(opcao = 'N') or (opcao = 'n'); End. Fiz algumas alterações e ficou assim agora, só gostaria de saber como deixar com menos zeros na resposta final

Program teste1 ; var not1, not2, not3, not4 : real; opcao : char; retorno : string; procedure medialuno( media : real); begin if(media >= 6.0) then writeln('Você foi aprovado!') else writeln('Sentimos muito mas você foi reprovado'); end; function calcmedia (n1, n2, n3, n4 : real) : real; var med: real; retorno1 : real; begin writeln('ENTRE COM A PRIMEIRA NOTA'); readln(n1); writeln('ENTRE COM A SEGUNDA NOTA'); readln(n2); writeln('ENTRE COM A TERCEIRA NOTA'); readln(n3); writeln('ENTRE COM A QUARTA NOTA'); readln(n4); med:=(n1+n2+n3+n4)/4; writeln('A média do aluno é:',med); retorno1 := (med) end; Begin repeat retorno := calcmedia (not1, not2, not3, not4); writeln('Deseja realizar outro calculo de media?(S/N)'); readln(opcao); until(opcao = 'N') or (opcao = 'n'); End. fiz algumas alterações e o código ficou assim, porém ainda não consegui deixá-lo em perfeito funcionamento

@KXSY vou tentar aqui adicionado 10 minutos depois Program exercicio9 ; uses Crt; var n1,n2,n3,n4: integer; media: real; function notaaluno(n1,n2,n3,n4:integer): integer; begin writeln('Digite a primeira nota'); Readln(n1); writeln('Digite a segunda nota'); readln(n2); writeln('Digite a terceira nota'); readln(n3); writeln('Digite a quarta nota'); readln(n4); media:=(n1 + n2 + n3 + n4)/4; writeln('A media do aluno e:',media); readln(); end; procedure mediaaluno(n1,n2,n3,n4:integer): integer; begin algo parecido com isso?

@KXSY no procedure e function, não sei muito bem como usar

@KXSY sim, a partir daqui a coisa fica mais complicada

@KXSY só não saquei muito bem como implantar cerrinho no código adicionado 8 minutos depois Program exercicio9 ; var n1,n2,n3,n4,media : integer; begin writeln('Digite a primeira nota'); Readln(n1); writeln('Digite a segunda nota'); readln(n2); writeln('Digite a terceira nota'); readln(n3); writeln('Digite a quarta nota'); readln(n4); media:=(n1+n2+n3+n4)/4; writeln('A media do aluno e:',media); readln(); end. ficou assim agora mas no calculo está dando erro adicionado 12 minutos depois modifiquei aqui, a primeira parte foi, troquei o tipo da variavel da media pra real

não estou conseguindo sair do lugar com isso aí adicionado 2 minutos depois beleza vou tentar aqui

@KXSY basicamente nada cara, fiz um esboço mas nem compilando ele está. Program atividade_09 ; var S, N : char; function mediaaluno(media : integer): string; var media: real; begin Writeln('Entre com as suas quatro notas'); Readln(n1,n2,n3,n4); Writeln(n1, n2, n3, n4); media:= (n1 + n2 + n3 + n4)/4 writeln('Sua media é de', media); end.