Программа вычисления корней квадратного уравнения

@kosttt · Регистрация: 04.03.2011

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

Сделал программу по вычислению корней квадратного уравнения,когда ввожу числа a,b,c и жму ввод вылазит такая ошибка-"eror 106: invaid numeric format." можете подсказать что не так?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program uravnenie;
var a,b,c,d,x,o:integer;
x1,x2,x3:real;
begin
write ('vvedite a,b,c');
readln (a,b,c);
o:=0;
o:=a*(x*x)+b*x+c;
d:=b*b-4*a*c;
x1:=((-b)+sqrt(d))/(2*a);
x2:=((-b)-sqrt(d))/(2*a);
x3:=(-b)/(2*a);
if (d>0) then writeln ('x1=', x1, 'x2=', x2);
if (d=0) then writeln ('x=', x3);
if (d<0) then writeln ('korney net');
end.

@СергейКРС · 04.03.2011, 21:51

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var a,b,c,d,x,o:real;
x1,x2,x3:real;
begin
writeLn ('vvedite a,b,c');
readln (a,b,c);
o:=0;
o:=a*(x*x)+b*x+c;
d:=b*b-4*a*c;
if (d>0) then begin
x1:=((-b)+sqrt(d))/(2*a);
x2:=((-b)-sqrt(d))/(2*a);
writeln ('x1= ', x1:4:2, ', x2= ', x2:4:2);
end;
if (d=0) then begin
x1:=((-b)+sqrt(d))/(2*a);
writeln ('x=', x1:4:2);
end;
if (d<0) then writeln ('korney net');
end.

Если нужны комментарии - обращайтесь.

@kosttt · 04.03.2011, 21:59 **[ТС]**

все равно ошибку выдает((

@СергейКРС · 04.03.2011, 22:05

первые 3 строки так выглядят?
program uravnenie;
uses wincrt;
var a,b,c,d,x,o:real;

@kosttt · 04.03.2011, 22:13 **[ТС]**

"uses wincrt;" вот этой строки нет,щас допишу)

@СергейКРС · 04.03.2011, 22:17

Если не получится - можно попробовать вместо строки "Uses WinCrt;" ввести "Uses Crt;"

@kosttt · 04.03.2011, 22:29 **[ТС]**

большое спасибо,все заработало)))

@007imran007 · 25.02.2013, 17:29

можешь выложить на файлообменик плз дать ссылку

HighPredator · 26.02.2013, 12:58

007imran007, а отсюда мышкой не скопировать?

@007imran007 · 26.02.2013, 13:05

ну я надеялся, что он ее оформил, сделал .exe что-то добавил

Новые блоги и статьи Все статьи Все блоги /
Чистый C и C++ в Qt Creator: ставим среду без VPN и настраиваем MinGW/CMake, без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .

@kosttt 0 / 0 / 0 Регистрация: 04.03.2011 Сообщений: 4
	04.03.2011, 21:59 [ТС]
	все равно ошибку выдает(( 0

@СергейКРС 8 / 8 / 10 Регистрация: 03.03.2011 Сообщений: 75
	04.03.2011, 22:05
	первые 3 строки так выглядят? program uravnenie; uses wincrt; var a,b,c,d,x,o:real; 1

@kosttt 0 / 0 / 0 Регистрация: 04.03.2011 Сообщений: 4
	04.03.2011, 22:13 [ТС]
	"uses wincrt;" вот этой строки нет,щас допишу) 0

@СергейКРС 8 / 8 / 10 Регистрация: 03.03.2011 Сообщений: 75
	04.03.2011, 22:17
	Если не получится - можно попробовать вместо строки "Uses WinCrt;" ввести "Uses Crt;" 1

@kosttt 0 / 0 / 0 Регистрация: 04.03.2011 Сообщений: 4
	04.03.2011, 22:29 [ТС]
	большое спасибо,все заработало))) 0

@007imran007 1 / 1 / 0 Регистрация: 08.07.2012 Сообщений: 83
	25.02.2013, 17:29
	можешь выложить на файлообменик плз дать ссылку 0

HighPredator 6045 / 2160 / 753 Регистрация: 10.12.2010 Сообщений: 6,005 Записей в блоге: 3
	26.02.2013, 12:58
	007imran007, а отсюда мышкой не скопировать? 0

@007imran007 1 / 1 / 0 Регистрация: 08.07.2012 Сообщений: 83
	26.02.2013, 13:05
	ну я надеялся, что он ее оформил, сделал .exe что-то добавил 0