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

• #8513 asuspc96 őstag

  Új Válasz 2015-02-08 09:50:32 #8513

  Ú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

  

  asuspc96

  őstag

  Helló!

  Valami szintaxis hibát észlel...én nemtudom már mi nem tetszik neki...

  Program masodfoku;
  Uses Crt;
  Var A,B,C,D,x1,x2,z : Real;
  
  Begin
  Clrscr;
  Writeln('Kérem az Axˇ2+Bx+C=0 alakú másodfokú egyenlet eggyütthatóit !');
  Writeln('kerem adja meg A-t');
  readln(A);
  Writeln('kerem adja meg B-t');
  readln(B);
  writeln('kerem adja meg C-t');
  readln(C);
  
  z:=B*B-4*A*C;
  If z<0 then
  begin
  writeln('az egyenletnek nincs valos gyoke');
  end
  
  else
  begin
  if 0<=z then
  begin
  D:=sqrt(z);
  end
  
  else
  begin
  if D>0 then
  begin
  sqrt(z);
  x1:=(-1*B+sqrt(z))/(2*A);
  x2:=(-1*B-sqrt(z))/(2*A);
  Writeln('a gyoke:' ,x1:5:2);
  Writeln('a masik gyoke:' ,x2:5:2);
  end
  
  else
  begin
  if D=0 then
  x1:=(-1*B)/(2*A);
  Writeln('az egyenlet ketszeres gyoke:' ,x1);
  end;
  
  Writeln;
  Writeln('Nyomj ENTER-t a kilepeshez.');
  Readln;
  End.

  Valaki ?

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