По двум введенным вещественным числам вычислить коэффициенты квадратного уравнения, корнями которого являются эти числа

@bugagushe · Регистрация: 18.12.2013

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

Надо составить програму,которая по двум введенным вещественным числам вычисляет и печатает коэффициенты приведенного квадратного уравнения,корнями которого являются эти числа(FreePascal)

@volvo · 18.12.2013, 20:37

Когда-то решал эту задачу вот так:

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
uses math;
 
var
   a, b : double;
   C1, C0 : double;
const
   sgn : array[TValueSign] of char = ('-', '+', '+');
begin
   write('X1 = '); readln(a);
   write('X2 = '); readln(b);
 
   write('X^2');
   C1 := -(a+b);
   C0 := a*b;
 
   if C1 <> 0 then
   begin
      if Abs(C1) <> 1 then write(sgn[Sign(C1)], Abs(C1):0:0, '*')
      else write(sgn[Sign(C1)]);
      write('X');
   end;
   if C0 <> 0 then
      write(sgn[Sign(C0)], Abs(C0):0:0);
 
   writeln('=0');
end.

@bugagushe · 18.12.2013, 21:32 **[ТС]**

Спасибо , но это не то, самое просто решение если монжо)

@volvo · 19.12.2013, 14:04

Сообщение от bugagushe

это не то

Что "не то"? Не тот ответ выдает? Тот, проверено десятками тестов. Не те функции используются? Я в первом посте не увидел никаких ограничений, а если уж писать на FPC - то и пиши на FPC, а не делай из него аналог ЛОГО...

Добавлено через 3 минуты
Самый простой вариант:

Pascal
1
2
3
4
5
6
7
8
9
10
11
var
   a, b : double;
   C1, C0 : double;
begin
   write('X1 = '); readln(a);
   write('X2 = '); readln(b);
 
   C1 := -(a+b);
   C0 := a*b;
   writeln(1, ' ', C1:0:0, ' ', C0:0:0); // Коэффициенты выведены, задача решена...
end.

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

Новичок · 12.01.2014, 00:18

И все таки как преподаватель

объясните почему прогу из предыдущего поста вы не приняли б?

Не по теме:

Сообщение от UI

будь я твоим преподавателем

Да преподам до вас далеко...

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	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 Использованы. . .

@bugagushe 0 / 0 / 0 Регистрация: 18.12.2013 Сообщений: 7

	По двум введенным вещественным числам вычислить коэффициенты квадратного уравнения, корнями которого являются эти числа 18.12.2013, 17:15. Показов 4640. Ответов 4 Метки нет (Все метки) Надо составить програму,которая по двум введенным вещественным числам вычисляет и печатает коэффициенты приведенного квадратного уравнения,корнями которого являются эти числа(FreePascal) 0

@bugagushe 0 / 0 / 0 Регистрация: 18.12.2013 Сообщений: 7
	18.12.2013, 21:32 [ТС]
	Спасибо , но это не то, самое просто решение если монжо) 0