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

Език

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

Реклами




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

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

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


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

Условие на задачата:
Напишете подпрограма, която намира и отпечатва решенията на квадратно уравнение.


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