JolyJDIA

Untitled

May 6th, 2020
131
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.36 KB | None | 0 0
  1. program task;
  2.  
  3. var
  4.   reader : text;
  5.   a, b, c : real;
  6.  
  7. begin
  8.   assign(reader, 'kvur.txt');
  9.   reset(reader);
  10.   readln(reader, a, b, c);
  11.  
  12.   var d := b*b-4*a*c;
  13.   c := (-b-sqrt(d))/(2*a);
  14.   a := (-b+sqrt(d))/(2*a);
  15.  
  16.   assign(reader, 'korni.txt');
  17.   rewrite(reader);
  18.   write('x1 = '+c+' x2 = ' +a);
  19.   write(reader, c + ' ' + a);
  20.   reader.Close;
  21. end.
Advertisement
Add Comment
Please, Sign In to add comment