| Головна » Статті » Pascal » Приклади програм |
Квадратне рівняння на Pascal
uses crt;{підключаємо директиву crt} var a, b, c, D2:double; i:integer; begin clrscr;{"чистимо" екран} write('a='); read(a);{вводимо a} write('b='); readln(b);{вводимо b і переходимо в наступний рядок} write('c='); readln(c);{вводимо c і переходимо в наступний рядок} D2:=b*b-4*a*c; if(a>0)then begin if(D2>=0)then writeln( (-b/2-sqrt(D2))/2, ' ', (-b/2+sqrt(D2))/2 ){вивід дійсних розв'язків} else{вивід комплексних розв'язків} begin D2:=sqrt(-D2); writeln(-b/2, '+(-)', D2, 'i'); end; end; readln(a);{вводимо якесь число; програма закриється після введення} end. | |
| Переглядів: 179 | | |
| Всього коментарів: 0 | |