Turbo pascal programmal: van egy 3,8 magas kúp. Térfogata: 30. kérd be x-et, írasd ki 3,8-x-et. A keletkező térfogat mennyivel kisebb az eredetinél? Részletesen!

Egyrészt nem igazán értem mit kell kiírni, mi a feladat.

Mi nem megy, a matematikai része vagy a Turbo pascal?

Tök jó, mikor olyan valaki akar programozni megtanulni, aki még a saját anyanyelvét sem volt képes, és egy értelmes mondatot nem tud leírni.

Előre megsúgom: reménytelen próbálkozás.

program Pkup;

uses crt;

var x,r: real;

function Terfogat(h,r: real): real;

begin

//ide ird a terfogat fuggvenyt

end;

begin

clrscr;

//r =

write("Add meg az x-et: "); readln(x);

writeln(x);

writeln("Regi terfogat: ",Terfogat(3.8,r):0:2);

writeln("Uj terfogat: ",Terfogat(3.8-x,r):0:2);

writeln("Kulonbseg: ",Terfogat(3.8,r)-Terfogat(3.8-x,r):0:2);

readln;

end.

A kúp sugara számolható, ha jól értem ez már sikerült. Ahogy a térfogatszámoló függvény is a kisujjadban van. Ha kérdésed van még szívesen várom.