Új hozzászólás Aktív témák

• #2273 tpismylife csendes tag cucka #2272

  Új Válasz 2008-08-12 20:05:01 #2273

  Új hozzászólás

  Ö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

  

  tpismylife

  csendes tag

  válasz cucka #2272 üzenetére

  Hát elég hosszan van levezetve de tudd be annak, hogy nincs egy éve hogy programozok.
  *******************************************
  program kordi;
  uses crt;
  var
  u,v,r,fp,ap,k,x:integer;
  x1,x2:real;

  procedure szamol;
  var
  a,b,c:integer;
  begin
  {fp az eredeti kepletben v}
  a:=1;
  b:=-2*u;
  c:=sqr(u)+sqr(fp)-(2*fp*v)+sqr(v)-sqr(r) ;
  x1:=(-b-sqrt(sqr(b)-4*a*c))/(2*a);
  x2:=(-b+sqrt(sqr(b)-4*a*c))/(2*a);
  end;
  function egeszre(szam:real):integer;
  var
  i:integer;
  begin
  i:=0;
  while i<szam do
  inc(i);
  egeszre:=i-1;
  end;
  begin
  clrscr;
  write('K‚rem az u-t: ');
  readln(u);
  write('K‚rem a v-t: ');
  readln(v);
  write('K‚rem az r-t: ');
  readln(r);
  fp:=v+r;
  ap:=v-r;
  k:=0;
  repeat
  fp:=fp-1;
  szamol;
  {eldönti hogy egész-e a kapott érték}
  if x1=round(x1) then
  begin
  while x1<>x2-1 do
  begin
  inc(k);
  x1:=x1+1;
  end;
  end
  else
  begin
  x:=egeszre(x1);
  while x<>egeszre(x2) do
  begin
  inc(k);
  x:=x+1;
  end;
  end;
  until fp = ap+1;
  writeln;
  writeln('A kordin ta pontok sz ma: ',k);
  readln;
  end.

• #2271 tpismylife csendes tag

  Új Válasz 2008-08-11 19:21:51 #2271

  Új hozzászólás

  Ö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

  

  tpismylife

  csendes tag

  Szóval középpont (u,v) és súgár (r) az r+v megadja a kör legfölső pontját
  ezt repeat ciklúsba tettem és mindig eggyel csökkentettem míg el éri az alsópontot (v-r)
  (ez a kilépésifeltétel is). A lényeg pedig a megoldó képlet a körív és az (r+v)-1 metszés pontja innen pedig 'csak' meg kelllet számolni. Szerintem nagyon érdekes. De minden progiban van valami amitől érdekes, szerintem.
  De nagyon kiváncsi vagyok a te megoldásodra is ha vázolnád legalább az algoritmust az jo lenne.

• #2269 tpismylife csendes tag

  Új Válasz 2008-08-11 18:47:17 #2269

  Új hozzászólás

  Ö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

  

  tpismylife

  csendes tag

  Ha már ilyen penge mindenki megmondaná nekem valaki azt, hogy egy progi amely bekér
  "x","y" középpontu "r" sugarú kör érkékeit és megmondja a körönbelül lévő kordinátapontok számát és értékeit milyen nehézségü. Csináltam egy ilyet és kiváncsi vagyok
  van-e esélyem az egyetemen. Ja és ha valaki tud mutathatna nekem egy mintát a "maxint" használatára. Köszi.

Új hozzászólás Aktív témák