fork download
copy 
  1. program n_11;
  2. var 
  3.   a, b, c: real;
  4.   d: real;
  5.   x, x1, x2: real;
  6. begin
  7.   writeln('Решение квадратного уравнения');
  8.  
  9.   // Уравнение: 2x^2 - 5x + 3 = 0
  10.   a := 2;
  11.   b := -5;
  12.   c := 3;
  13.  
  14.   writeln('Уравнение: ', a:0:0, 'x^2 + ', b:0:0, 'x + ', c:0:0, ' = 0');
  15.   writeln;
  16.  
  17.   d := b * b - 4 * a * c;
  18.  
  19.   if d < 0 then 
  20.     writeln('Корней нет')
  21.   else if d = 0 then
  22.   begin
  23.     x := -b / (2 * a);
  24.     writeln('Корень уравнения x = ', x:9:3);
  25.   end
  26.   else
  27.   begin
  28.     x1 := (-b + sqrt(d)) / (2 * a);
  29.     x2 := (-b - sqrt(d)) / (2 * a);
  30.     writeln('Корни уравнения:');
  31.     writeln('x1 = ', x1:9:3);
  32.     writeln('x2 = ', x2:9:3);
  33.   end;
  34. end.
Success #stdin #stdout 0s 5324KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Решение квадратного уравнения
Уравнение: 2x^2 + -5x + 3 = 0

Корни уравнения:
x1 =     1.500
x2 =     1.000
https://ideone.com/vdM638
language:
Pascal (fpc 3.0.4)
created:
8 hours ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!