Найти действительные корни уравнения

@OleGek1996 · Регистрация: 23.03.2015

Студворк — интернет-сервис помощи студентам

Даны действительные числа а,b,с (а не равно нулю). Найти действительные корни уравнения ах⁴+bx²+c=0. Если корней нет, то сообщить об этом. Получить результат для случаев.
1) а=1,13; b=-5,28; c=5,92;
2) a=2,07; b=-3,15; c=-33,44;
3) a=12,3; b=-43,06; c=36,1

@Puporev · 23.03.2015, 13:30

Вроде так.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
procedure korni(a,b,c:real;var x1,x2,x3,x4:real);
var t,t1,t2,d:real;
begin
d:=(b*b-4*a*c);
if d<0 then writeln('нет решений')
else if d=0 then
 begin
  t:=-b/(2*a);
  if t<0 then writeln('нет решений')
  else
   if t=0 then writeln('x1=x2=x3=x4=0')
   else if t>0 then writeln('x1=x2=',sqrt(t):5:2,' x3=x4=',-sqrt(t):5:2);
 end
else if d>0 then
 begin
  t1:=(-b+sqrt(d))/(2*a);
  t2:=(-b-sqrt(d))/(2*a);
  if (t1>0)and(t2<0)then writeln('x1=',sqrt(t1):5:2,' x2=',-sqrt(t1):5:2)
  else if (t1<0)and(t2>0)then writeln('x1=',sqrt(t2):5:2,' x2=',-sqrt(t2):5:2)
  else if (t2>0)and(t1>0) then writeln('x1=',sqrt(t1):5:2,' x2=',-sqrt(t1):5:2,' x3=',sqrt(t2):5:2,' x4=',-sqrt(t2):5:2);
 end;
end;
var x1,x2,x3,x4:real;
begin
writeln(' ');
writeln('a=1,13; b=-5,28; c=5,92');
korni(1.13,-5.28,5.92,x1,x2,x3,x4);
writeln;
writeln('a=2,07; b=-3,15; c=-33,44');
korni(2.07,-3.15,-33.44,x1,x2,x3,x4);
writeln;
writeln('a=12,3; b=-43,06; c=36,1');
korni(12.3,-43.06,36.1,x1,x2,x3,x4);
end.

@OleGek1996 · 23.03.2015, 17:19 **[ТС]**

Спасибо огромное, а блок схемы не делаете?

Добавлено через 51 секунду
Puporev, Puporev, Спасибо огромное, а блок схемы не делаете?

@Puporev · 23.03.2015, 18:12

Блок-схемы процедуры и программы сделаны в редакторе по коду.

@OleGek1996 · 23.03.2015, 18:16 **[ТС]**

Puporev, а почему две блок-схемы?

@Puporev · 23.03.2015, 18:28

Потому что для каждой подпрограммы делается схема отдельно, а в схеме программы она показывается одним блоком.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@OleGek1996 0 / 0 / 0 Регистрация: 23.03.2015 Сообщений: 17

	Найти действительные корни уравнения 23.03.2015, 12:28. Показов 2375. Ответов 5 Метки нет (Все метки) Даны действительные числа а,b,с (а не равно нулю). Найти действительные корни уравнения ах⁴+bx²+c=0. Если корней нет, то сообщить об этом. Получить результат для случаев. 1) а=1,13; b=-5,28; c=5,92; 2) a=2,07; b=-3,15; c=-33,44; 3) a=12,3; b=-43,06; c=36,1 0

@OleGek1996 0 / 0 / 0 Регистрация: 23.03.2015 Сообщений: 17
	23.03.2015, 17:19 [ТС]
	Спасибо огромное, а блок схемы не делаете? Добавлено через 51 секунду Puporev, Puporev, Спасибо огромное, а блок схемы не делаете? 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	23.03.2015, 18:12
	Блок-схемы процедуры и программы сделаны в редакторе по коду. Миниатюры 0

@OleGek1996 0 / 0 / 0 Регистрация: 23.03.2015 Сообщений: 17
	23.03.2015, 18:16 [ТС]
	Puporev, а почему две блок-схемы? 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	23.03.2015, 18:28
	Потому что для каждой подпрограммы делается схема отдельно, а в схеме программы она показывается одним блоком. 0