3 respostas neste tópico

[KARCAS]

var soma1,sub2,mult3,divi4:real;
procedure ler_valores;
var
numero:real;
begin
write('digete um numero:');
readln(numero);
write('digete outro numero:');
readln(numero);
writeln('digite soma1,sub2,mult3,divi4:');
readln;
writeln;

end;

function total(soma1,sub2,mult3,divi4:real):real;
var result:real;

begin

result:=soma1;
result:=sub2;
result:=mult3;
result:=divi4;
total:=result;

end;
begin
ler_valores;
begin
writeln('valor total=',total(soma1,sub2,mult3,divi4));

end;
end.
não estou fazendo ele reconhecer eu digito os dois numeros ai quando escolho qual operação aperto mas ele não reconhece a operação que eu digite ai da sempre zero o resultado...qual comando esta faltando ai para fazer ele reconhecer..

[nickosoft]

writeln('digite soma1,sub2,mult3,divi4:');
readln;
writeln;

você armazenou onde o q foi digitado como operacao?

[KARCAS]

eu não sei sou inciante em pascal to tendo dificuldades...onde tenho que armazenar para que eu digite ele de o resultado com a opereção escolhida...

[nickosoft]

nao conheco pascal, mas o pouco q entendi, você nao guardou em lugar nenhum a operacao escolhida, e nem chamou a funcao q calcula algo, e na funcao deveria ser escolhido o calculo conforme a operacao...