Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  Stano kvadraticke rovnice
Language: PASCAL
Code:
program kvadraticke_rovnice;
uses crt;
var a,b,c,d,x1,x2,x: real;
begin 
     clrscr;
     write ('zadaj koeficient a=');
     write ('zadaj koeficient b=');
     write ('zadaj koeficient c=');

     d:=b*b-4*a*c;
   
     if (d>0) then writeln ('rovnica ma dva rozne korene.')
         else if (d=0) then writeln ('rovnica ma 1 dvojnasobny koren.')
              else writeln ('rovnica nema realne riesenie');
     readln
     end.
          
          
Comments: