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