Ú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.

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