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

Език

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

Реклами




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

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

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


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

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


  • D : real;
  • readln(b);
  • end.
  • readln(c);
  • write('Enter b= ');
  • write('Enter a= ');
  • readln(a);
  • write('Enter c= ');
  • begin
  • D := SQR(b) - 4*a*c;
  • var a, b, c : real;
  • else write('No')
  • if D>0 then write ('Yes')