Як створити фильтрацію даних за певним критерієм? Укажите порядок следования всех 6 вариантов ответа:
__ команда - сортування та фільтрація
__ розміщуємо курсор в таблиці
__ біля назві поля (стовпця) натискаємо на кнопку зі стрілочкою
__ вкладка - головна
__ команда - фільтр
__ в меню яке з'явиться вказуємо параметр
Var a,b,c, D, Result : Integer;
Assign(InFile, "C:\kvur.txt");
Assign(OutFile, "C:\korni.txt")
Reset(InFile)
Read(InFile,a)
Read(InFile,b)
Read(InFile, c)
D = sqr(b) + 4*a*c
if D = 0 then
Write("Уравнение не имеет корней")
Else
Append(OutFile)
Result:=(-b + sqrt(D)) / 2 * a
Write(OutFile,Result)
Write("Корень уравнения")
WriteLn(Result)
if (D>0) then
Result:=(-b - sqrt(D)) / 2 * a
Write(OutFile, Result)
Write("Второй корень уравнения")
Write(Result)
End;
End.