Aktív témák

• #52 zvaragabor senior tag Lortech #51

  2008-01-18 20:29:35 #52

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  zvaragabor

  senior tag

  válasz Lortech #51 üzenetére

  Itt a teljes:

  Program henger;
  uses crt;
  var m,r,f,t:integer;
  Begin
  clrscr;
  writeln ('Kérem adja meg a henger magasságát (m)!');
  readln (m);
  writeln ('Kérem adja meg a henger sugarát (r)!');
  readln (r);
  f:=2*(r*r)*Pi+m*2*r*Pi;
  t:=r*r*Pi*m;
  writeln ('A henger felszíne: ',f);
  writeln ('A henger térfogata: ',t);
  readln;
  end.

Aktív témák