home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 July / Chip_1997-07_cd.bin / tema / baltazar / sgpbc / rovnice.sgp < prev    next >
Text File  |  1997-05-19  |  3KB  |  73 lines
  1. SGPC   3.15 S#310000 29.06.1995 12:03:11                                        StructNo 0   0
  2. ; Vytvo²en ze vzoru: C:\SGPBC315\VZORBC.000
  3.  
  4. # include <baltazar.h>
  5.  
  6. ;-h------------------------------------------------------------------------
  7. /***** globální prom╪nné *****/
  8.  
  9. ;-h---------------------------------------------------------------------------
  10. /***** hlavní program *****/
  11. void main( void )
  12. -s--ROVNICE                                                                     ■   2  -2  -1 259
  13.    ______________________Kvadratická_rovnice_________________________
  14. Zaƒátek         ______________V∞poƒet_______________              Konec
  15.   0!       ___Zadání___     Diskriminant         ⁿeτení             !K
  16.         Naƒtení      Tisk       3!      ______Diskriminant?______
  17.       koeficientà   rovnice             /:D>0      /:D<0        /
  18.          a,b,c        2!              Reálné   Komplexní      Jeden
  19.           1!                          ko²eny     ko²eny   reáln∞-ko²en
  20.                                        4!         5!           6!
  21. -o1- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  22. 0 ;deklarace prom╪nn∞ch
  23.     double R1, R2, C1, D, a, b, c;
  24. 1 ;naƒti hodnoty koeficietà a,b,c
  25.     TxtPiτⁿet╪zec("Zadejte:\n");
  26.     TxtPiτⁿet╪zec("a="); Txt¼tiD¼íslo(a);
  27.     TxtPiτⁿet╪zec("b="); Txt¼tiD¼íslo(b);
  28.     TxtPiτⁿet╪zec("c="); Txt¼tiD¼íslo(c);
  29. 2 ;vypiτ tvar rovnice
  30.     TxtPiτⁿet╪zec("Rovnice "); TxtPiτD¼íslo(a,5,5);
  31.     TxtPiτⁿet╪zec("X^2");
  32.     if(b>=0)TxtPiτZnak('+');
  33.     TxtPiτD¼íslo(b,5,5);
  34.     TxtPiτZnak('X');
  35.     if (c>=0)TxtPiτZnak('+');
  36.     TxtPiτD¼íslo(c,5,5);
  37.     TxtPiτⁿet╪zec("=0");
  38. 3 ;vypoƒti diskriminant
  39.     D=sqr(b)-4*a*c;
  40. 4 ;vypoƒti reálné ko²eny
  41.     R1=(sqrt(D)-b)/2/a;
  42.     R2=(-b-sqrt(D))/2/a;
  43.     TxtPiτNov∞ⁿádek();
  44.     TxtPiτⁿet╪zec(" má dva reálné ko²eny:");
  45.     TxtPiτNov∞ⁿádek();
  46.     TxtPiτD¼íslo(R1,10,2);
  47.     TxtPiτNov∞ⁿádek();
  48.     TxtPiτD¼íslo(R2,10,2);
  49. 5 ;vypoƒti komplexní ko²eny
  50.     R1=-b/(2*a);
  51.     C1=sqrt(-D)/(2*a);
  52.     TxtPiτNov∞ⁿádek();
  53.     TxtPiτⁿet╪zec(" má 2 komplexní ko²eny:");
  54.     TxtPiτNov∞ⁿádek();
  55.     TxtPiτD¼íslo(R1,10,2);
  56.     TxtPiτD¼íslo(C1,10,2);
  57.     TxtPiτZnak('i');
  58.     TxtPiτNov∞ⁿádek();
  59.     TxtPiτD¼íslo(R1,10,2);
  60.     TxtPiτD¼íslo(-C1,10,2);
  61.     TxtPiτZnak('i');
  62. 6 ;vypoƒti reáln∞ ko²en
  63.     R1=-b/2/a;
  64.     TxtPiτⁿet╪zec("\n má jeden reáln∞ ko²en:");
  65.     TxtPiτNov∞ⁿádek();
  66.     TxtPiτD¼íslo(R1,10,4);
  67. K ;vypiτ konec programu
  68.     TxtPiτⁿet╪zec("\n Konec programu");
  69.     ¼ekejNaKlávesu();
  70. -c1- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  71. =SP---------------------------------------------------------------------------
  72. /***** konec programu *****/
  73.