Забравена парола

Език

Български    Английски

Реклами




Съобщи за грешка !
Добави търсачка

Валиден XHTML 1.1 Валиден CSS 2.1
Powered by PHP Powered by MySQL
Pascal емулатор
2 потребител(и) online
Контрол на шрифта Принтирай  Текущ език: Pascal

Упражнения://Редене на код


За да решите задачата е нужно чрез мишката да разместите кода, докато получите работеща програма.

Условие на задачата:
Напишете програма, която въвежда коефициентите на квадратното уравнение a.x^2+b.x+c=0 и намира и отпечатва корените му.


  • end.
  • else
  • if D=0 then write('x1=x2=', -b/(2*a))
  • readln(b);
  • var a, b, c : real;
  • else
  • write('Enter b= ');
  • write('Enter c= ');
  • x2 := (-b-SQRT(D))/(2*a);
  • else write('No x')
  • if D<0 then write ('No real x')
  • D := SQR(b) - 4*a*c;
  • if c=0 then write('All x')
  • end
  • x1, x2 : real;
  • end
  • write('Enter a= ');
  • write('x2=', x2)
  • readln(c);
  • begin
  • begin
  • readln(a);
  • x1 := (-b+SQRT(D))/(2*a);
  • if a=0 then
  • else write('x=', -c/b)
  • if b=0 then
  • write('x1=', x1);
  • begin
  • D : real;
  • else