Pascal/Turbo Pascal - Quien me ayuda a resolver un ejercicio no entiendo

   
Vista:

Quien me ayuda a resolver un ejercicio no entiendo

Publicado por Skay skay_urdmca@hotmail.com (1 intervención) el 27/03/2012 02:05:27
Quien me pudiera ayudar a resolver este programa de pascal urgente por favor la maestra necesita sacar la calificacion de 3 periodos ese ejercicio lo necesito resolver con un programa de suma que lleve decimales
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Quien me ayuda a resolver un ejercicio no entiendo

Publicado por ramon (2072 intervenciones) el 27/03/2012 17:19:26
{No entiendo bien lo que quiere pero para sumar decimales seria algo asín]

uses
crt;
var
dato1, dato2, dato3 : real; {variables de valores decimales}

function suma(d1, d2, d3 : real) : real; {Funcion sumar 3 valores}
begin
suma := (d1 + d2 + d3);
end;

begin
clrscr;
write('Entre valor 1 : ');
readln(dato1);
write('Entre valor2 : '); {entrada de valores}
readln(dato2);
write('Entre valor 3 : ');
readln(dato3);
writeln;
writeln(suma(dato1,dato2,dato3):8:2); {presentacion}
readln;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar