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

• #2588 westcoastog veterán

  Új Válasz 2013-03-04 16:55:19 #2588

  Ú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

  

  westcoastog

  veterán

  Üdv, abban kérném a segítségeteket, hogy másodfokú egyenlet megoldást kell bemutatni powerpointban, csak azt nem tudom mi a szart lehet 15 oldalban leírni róla? Nekem elég lenne ha 12-3 oldal lenne, de kb 4. oldalnál kifulladok, mivel nem is értem a pascalt mert sík hülye vagyok hozzá, csak sajnos mégis kell tanulni.
  Ez az a program.
  program elso; {Első program a programozás órákon}
  uses Crt;
  var
  a,b,c,x1,x2,d : Real;
  
  
  Begin
  clrscr;
  Writeln('Kérem az axˇ2+bx+c=0 alakú másodfokú egyenlet eggyütthatóit !');
  Writeln;
  Write('a = '); Readln(a); {REAL - Valós}
  Write('b = '); Readln(b);
  Write('c = '); Readln(c);
  d:=sqr(b)-4*a*c; {Az SQR négyzetre emel}
  
  If d>0 then
  begin
  x1:=(-b+sqrt(d))/(2*a); {Az SQRT gyököt von}
  x2:=(-b-sqrt(d))/(2*a); {valami:= legyen egyenlő valamivel ÉRTÉKADÓ UTASÍTÁS}
  writeln('Az egyenlet gyökei :');
  writeln('x1 = ',x1:6:2,' x2 = ',x2:6:2); {x2:6:2 6 számjegy lesz kiírva 2 tizedesvesszővel}
  end {ELSE elé nem szabad pontosvesszőt tenni}
  
  else
  begin
  if d=0
  then
  begin
  x1:=-b/(2*a);
  writeln('A két gyök egyenlő :'); writeln;
  writeln(' x1 = x2 = ',x1);
  end
  else
  writeln('Az egyenletnek nincs valós megoldása!');
  end;
  
  Writeln;
  Writeln('Nyomj ENTER-t a kilépéshez.');
  Readln;
  End.
  Na most erről hogy csináljak tizen akárhány oldalas bemutatót? El sem tudom magyarázni mikor mi történik.
  Ja és hogyan tudnék gyakorolni hogy pénteken a dolgozatom meglegyen legalább 2-es?...

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