Почему программа не правильно считает корни квадратного уравнения ?

@Vladimir473 · Регистрация: 14.04.2013

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Program f1 ; 
var x1,x2,a,b,c: real ;
procedure f(a,b,c:real ; var y1,y2:real )  ; 
var d: real ; 
begin 
d:=b*b-4*a*c ; 
y1:=(-b+sqrt(d))/2*a ; 
y2:=(-b-sqrt(d))/2*a ;
end; 
begin 
write ('vvod a,b,c ' ) ; 
readln(a,b,c) ;
f(a,b,c,x1,x2) ; 
writeln ('x1=',x1,'x2=',x2) ; 
end.

@Reveng · 01.05.2013, 18:02

При каких значения?

@Vladimir473 · 01.05.2013, 18:11 **[ТС]**

a=3 b=1 c=-3

@Puporev · 01.05.2013, 18:17

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
Program f1 ;
uses crt;
procedure f(a,b,c:real ; var y1,y2:real );
var d: real ;
begin
d:=b*b-4*a*c ;
if d<0 then write('Äåéñòâèòåëüíûõ êîðíåé íåò')
else if d=0 then
 begin
  y1:=-b/2*a;
  write('x1=x2=',y1:0:2)
 end
else
 begin
  y1:=(-b+sqrt(d))/2*a ;
  y2:=(-b-sqrt(d))/2*a ;
  write('x1=',y1:0:2,'  x2=',y2:0:2)
 end
end;
var x1,x2,a,b,c: real ;
begin
write ('vvod a,b,c ' ) ;
readln(a,b,c) ;
f(a,b,c,x1,x2) ;
end.

@Vladimir473 · 01.05.2013, 18:22 **[ТС]**

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

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
Program f1 ;
uses crt;
procedure f(a,b,c:real ; var y1,y2:real );
var d: real ;
begin
d:=b*b-4*a*c ;
if d<0 then write('Äåéñòâèòåëüíûõ êîðíåé íåò')
else if d=0 then
 begin
  y1:=-b/2*a;
  write('x1=x2=',y1:0:2)
 end
else
 begin
  y1:=(-b+sqrt(d))/2*a ;
  y2:=(-b-sqrt(d))/2*a ;
  write('x1=',y1:0:2,'  x2=',y2:0:2)
 end
end;
var x1,x2,a,b,c: real ;
begin
write ('vvod a,b,c ' ) ;
readln(a,b,c) ;
f(a,b,c,x1,x2) ;
end.

Корни уравнения неправильные выходят (

@Puporev · 01.05.2013, 18:58

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

Корни уравнения неправильные выходят (

Приведи пример ввода и какие должны быть по твоему правильные.

@Vladimir473 · 01.05.2013, 19:01 **[ТС]**

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

Приведи пример ввода и какие должны быть по твоему правильные.

a=3 b=1 c=-3 x1 ≈ -1.18, x2 ≈ 0.85

@Puporev · 01.05.2013, 19:03

Везде 2*a возьми в скобки

Pascal
1
y1:=-b/(2*a);

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	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, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

@Reveng 424 / 424 / 338 Регистрация: 25.06.2012 Сообщений: 668
	01.05.2013, 18:02
	При каких значения? 0

@Vladimir473 0 / 0 / 0 Регистрация: 14.04.2013 Сообщений: 20
	01.05.2013, 18:11 [ТС]
	a=3 b=1 c=-3 0