| 0,0 → 1,62 |
|---|
| program druhy; |
| |
| {$N+} |
| |
| uses crt,mojeunit; |
| |
| var |
| a,b,c : integer; |
| koren1,koren2 : double; |
| |
| type |
| koreny = record |
| x1 : double; |
| x2 : double; |
| end; |
| |
| |
| {procedure vyres(a,b,c: integer; var x1,x2 : double); |
| var |
| |
| diskr : double; |
| |
| begin |
| |
| diskr:= b*b -4 * a * c; |
| |
| if (diskr < 0) then |
| begin |
| writeln ('Rovnice nema realne reseni'); |
| exit; |
| end; |
| |
| if(diskr = 0) then |
| begin |
| x1:= -b/2*a; |
| writeln('rovnice ma jeden koren : ', x1) |
| end |
| |
| else begin |
| x1:= (-b+sqrt(diskr))/2; |
| x2:= (-b-sqrt(diskr))/2; |
| writeln('Rovnice ma dva koreny ',x1,' ',x2) |
| end; |
| |
| end;} |
| |
| begin |
| |
| clrscr; |
| |
| { writeln ('zadejte tri koreny rovnice:'); |
| readln(a); |
| readln(b); |
| readln(c); |
| |
| |
| |
| vyres(a,b,c, koren1, koren2); |
| |
| } readln; |
| |
| end. |