Вычисление вещественных корней квадратного уравнения

@Виктория888 · Регистрация: 18.11.2009

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

Надо решить несколько задач, вот они:
1) Составить блок-схему алгоритма и программу вычисления вещественных корней квадратного уравнения AX^2+BX+C=0\n"

2) Составить блок-схему алгоритма и программу вычисления количества положительных, отрицательных и нулевых элементов массива A(10)

3) Составить блок-схему алгоритма и программу упорядочивания элементов массива A(10) по убыванию.

4) Составить блок-схему алгоритма и программу нахождения наименьшего элемента массива A(10) и его порядкового номера.

5) Составить блок-схему алгоритма и программу нахождения наибольшего значения функции Y= |a|EXP (AX - X^2) при изменении аргумента x от 0 до a с шагом h.

Заранее очень благодарна всем, кто, окажет мне помощь!!!

@lover · 22.11.2009, 13:11

Сообщение от Виктория888

А нам объясняли, сначала сделать форму для решения задачи, затем два клика по кнопке, которую вставили, затем в появившемся окне писать прогу саму, и вот там-то как раз ошибки пишет мне.

ребят так ей в форме нада делать!!!

@Виктория888 · 22.11.2009, 13:21 **[ТС]**

Значит всё не так плохо, как я думаю?

@lover · 22.11.2009, 13:33

ну эт немного осложняет ситуацию))

@Виктория888 · 22.11.2009, 13:35 **[ТС]**

а-А-А Значит, это не я совсем тупая, просто задание не совсем лёгкое?

@lover · 22.11.2009, 13:36

тебе обязательно сказали с кнопочкой делать???

@Виктория888 · 22.11.2009, 13:46 **[ТС]**

Да

Добавлено через 31 секунду
И всё это принт скрином вырезать и оформить как курсовик

Добавлено через 7 минут
http://www.citforum.ru/program... ml#сb2-009
Делать надо подобным образом

@checker · 24.11.2009, 00:31

Виктория888, я в личку вам написал

@Grey · 24.11.2009, 00:58

2 задача. Тока такое придумалось. 10 Edit для ввода и 3 Label для вывода.

C++
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
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int pol=0,otr=0,null=0,i,j=0;
int A[10];
A[0]=StrToInt(Edit1->Text);
A[1]=StrToInt(Edit2->Text);
A[2]=StrToInt(Edit3->Text);
A[3]=StrToInt(Edit4->Text);
A[4]=StrToInt(Edit5->Text);
A[5]=StrToInt(Edit6->Text);
A[6]=StrToInt(Edit7->Text);
A[7]=StrToInt(Edit8->Text);
A[8]=StrToInt(Edit9->Text);
A[9]=StrToInt(Edit10->Text);
for (i=1;i<=10;i++)
{
if (A[j]>0) pol++;
if (A[j]<0) otr++;
if (A[j]==0) null++;
j++;
}
Form1->Label2->Caption=StrToInt(pol);
Form1->Label4->Caption=StrToInt(otr);
Form1->Label6->Caption=StrToInt(null);
}

@Виктория888 · 24.11.2009, 01:00 **[ТС]**

Спасибо!!!! Вот Вы выручили! Просто подарок мне!!! =)))

@Grey · 24.11.2009, 02:54

4 задача.

C++
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
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int x=0,y,z,i,j=0;
int A[10];
A[0]=StrToInt(Edit1->Text);
A[1]=StrToInt(Edit2->Text);
A[2]=StrToInt(Edit3->Text);
A[3]=StrToInt(Edit4->Text);
A[4]=StrToInt(Edit5->Text);
A[5]=StrToInt(Edit6->Text);
A[6]=StrToInt(Edit7->Text);
A[7]=StrToInt(Edit8->Text);
A[8]=StrToInt(Edit9->Text);
A[9]=StrToInt(Edit10->Text);
y=A[j];                     //присваеваем y значение первой ячейки
for (i=1;i<=10;i++)         //цикл i
{
j++;                        //увеличиваем значение ячейки
z=A[j];                     //присваеваем
if (z<y) {y=z;
x=i;
}
}
Form1->Label2->Caption=StrToInt(x+1);//вывод номера
Form1->Label4->Caption=StrToInt(y);  //вывод значения
}

@Виктория888 · 24.11.2009, 02:59 **[ТС]**

Спасибо!!!

Добавлено через 3 минуты
А Вы не знаете, что делать, если программа выдаёт такие ошибки:
sqrt - неизвестная функция
Else - неизвестная фраза
Запустила прогу для первой задачи,знаю,что правильная, не идёт =((

Добавлено через 29 секунд

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
float A,B,C,D,E,F;
A=StrToFloat(Edit1->Text);
B=StrToFloat(Edit2->Text);
C=StrToFloat(Edit3->Text);
F=B*B-(4*A*C);
if (F>=0);
{
D=(B+sqrt(F))/2*A;
E=-(B-sqrt(F))/2*A;
Edit4->Text=FloatToStr(D);
Edit5->Text=FloatToStr(E);
Edit6->Text=FloatToStr(F);
}
Else
{
Label8->Caption="Нет действительных корней";
Edit6->Text=FloatToStr(F);
}

@Grey · 24.11.2009, 03:16

sqrt-надо подключить директиву в верху программы

C++
1
##include<math.h>

@Виктория888 · 24.11.2009, 04:30 **[ТС]**

Ешё раз Вам СПАСИБО!!!

Добавлено через 1 час 12 минут
А что делать с Else ???
ПИШЕТ, ЧТО ЭТО НЕИЗВЕСТНЫЙ СИМВОЛ!!!

@neoMitya · 24.11.2009, 07:37

надо не Else писать, а else. чувствуешь разницу?

@Виктория888 · 24.11.2009, 11:02 **[ТС]**

Попробую

@neoMitya · 24.11.2009, 11:14

Задача 5, если я правильно все понял. у меня с++ builder 6.
нашел один почти незаметный косяк, для значений х(на картинке в приложении можно понять, что за косяк).

@Виктория888 · 24.11.2009, 12:13 **[ТС]**

Спасибо.

Добавлено через 1 минуту
А про калькулятор не подскажете, не идёт почему-то:

C++
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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
#include <vcl.h>
#include <iostream.h>
#pragma hdrstop
#include <math.h>
#include <conio.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall
int a, b, c;
a=StrToInt(Edit1->Text);
b=StrToInt(Edit2->Text);
c=a-b;
Edit3->Text=IntToStr(c);
}
//---------------------------------------------------------------------------
void __fastcall
{
int a, b, c;
a=StrToInt(Edit1->Text);
b=StrToInt(Edit2->Text);
c=a+b;
Edit3->Text=IntToStr(c);
}
//---------------------------------------------------------------------------
 
void __fastcall
{
int a, b, c;
a=StrToInt(Edit1->Text);
b=StrToInt(Edit2->Text);
c=a*b;
Edit3->Text=IntToStr(c);
}
//---------------------------------------------------------------------------
 
void __fastcall
{
int a, b, c, d;
a=StrToInt(Edit1->Text);
b=StrToInt(Edit2->Text);
c=a/b;//результат целочисленного деления
d=a%b;//остаток от деления
Edit3->Text=IntToStr(c);
Edit4->Text=IntToStr(d);
}
}
//---------------------------------------------------------------------------

@Sasha · 24.11.2009, 12:35

Что это?

Код C++
1
void __fastcall

Где класс TForm

@Виктория888 · 24.11.2009, 12:50 **[ТС]**

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "uAki.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{ int a, b, c;
a=StrToInt(Edit1->Text);
b=StrToInt(Edit2->Text);
c=a-b;
Edit3->Text=IntToStr(c);

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{ int a, b, c;
a=StrToInt(Edit1->Text);
b=StrToInt(Edit2->Text);
c=a+b;
Edit3->Text=IntToStr(c);

}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)
{ int a, b, c;
a=StrToInt(Edit1->Text);
b=StrToInt(Edit2->Text);
c=a*b;
Edit3->Text=IntToStr(c);

}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button4Click(TObject *Sender)
{ int a, b, c, d;
a=StrToInt(Edit1->Text);
b=StrToInt(Edit2->Text);
c=a/b;//результат целочисленного деления
d=a%b;//остаток от деления
Edit3->Text=IntToStr(c);
Edit4->Text=IntToStr(d);

}
//---------------------------------------------------------------------------

Добавлено через 24 секунды
А так?
Но, так тоже не идёт

@neoMitya · 24.11.2009, 12:52

не вижу

C++
1
#include <math.h>

а вообще, вот тут много всяких калькуляторов, выбирайнехочу
Калькулятор на Builder C++

Новые блоги и статьи Все статьи Все блоги /
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .

@Виктория888 2 / 2 / 0 Регистрация: 18.11.2009 Сообщений: 75

	Вычисление вещественных корней квадратного уравнения 18.11.2009, 20:16. Показов 11895. Ответов 63 Метки нет (Все метки) Надо решить несколько задач, вот они: 1) Составить блок-схему алгоритма и программу вычисления вещественных корней квадратного уравнения AX^2+BX+C=0\n" 2) Составить блок-схему алгоритма и программу вычисления количества положительных, отрицательных и нулевых элементов массива A(10) 3) Составить блок-схему алгоритма и программу упорядочивания элементов массива A(10) по убыванию. 4) Составить блок-схему алгоритма и программу нахождения наименьшего элемента массива A(10) и его порядкового номера. 5) Составить блок-схему алгоритма и программу нахождения наибольшего значения функции Y= \|a\|EXP (AX - X^2) при изменении аргумента x от 0 до a с шагом h. Заранее очень благодарна всем, кто, окажет мне помощь!!! 0

@Виктория888 2 / 2 / 0 Регистрация: 18.11.2009 Сообщений: 75
	22.11.2009, 13:21 [ТС]
	Значит всё не так плохо, как я думаю? 0

@lover 6 / 6 / 1 Регистрация: 17.11.2009 Сообщений: 91
	22.11.2009, 13:33
	ну эт немного осложняет ситуацию)) 1

@Виктория888 2 / 2 / 0 Регистрация: 18.11.2009 Сообщений: 75
	22.11.2009, 13:35 [ТС]
	а-А-А Значит, это не я совсем тупая, просто задание не совсем лёгкое? 0

@lover 6 / 6 / 1 Регистрация: 17.11.2009 Сообщений: 91
	22.11.2009, 13:36
	тебе обязательно сказали с кнопочкой делать??? 0

@Виктория888 2 / 2 / 0 Регистрация: 18.11.2009 Сообщений: 75
	22.11.2009, 13:46 [ТС]
	Да Добавлено через 31 секунду И всё это принт скрином вырезать и оформить как курсовик Добавлено через 7 минут http://www.citforum.ru/program... ml#сb2-009 Делать надо подобным образом 0

@checker 2 / 2 / 2 Регистрация: 04.11.2009 Сообщений: 8
	24.11.2009, 00:31
	Виктория888, я в личку вам написал 1

@Виктория888 2 / 2 / 0 Регистрация: 18.11.2009 Сообщений: 75
	24.11.2009, 01:00 [ТС]
	Спасибо!!!! Вот Вы выручили! Просто подарок мне!!! =))) 0

@Виктория888 2 / 2 / 0 Регистрация: 18.11.2009 Сообщений: 75
	24.11.2009, 04:30 [ТС]
	Ешё раз Вам СПАСИБО!!! Добавлено через 1 час 12 минут А что делать с Else ??? ПИШЕТ, ЧТО ЭТО НЕИЗВЕСТНЫЙ СИМВОЛ!!! 0

@neoMitya 25 / 25 / 8 Регистрация: 27.10.2009 Сообщений: 81
	24.11.2009, 07:37
	надо не Else писать, а else. чувствуешь разницу? 1

@Виктория888 2 / 2 / 0 Регистрация: 18.11.2009 Сообщений: 75
	24.11.2009, 11:02 [ТС]
	Попробую 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	24.11.2009, 12:35
	Что это? Код C++ 1 void __fastcall Где класс TForm 1

@Виктория888 2 / 2 / 0 Регистрация: 18.11.2009 Сообщений: 75
	24.11.2009, 12:50 [ТС]
	//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "uAki.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource ".dfm" TForm1 Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject Sender) { int a, b, c; a=StrToInt(Edit1->Text); b=StrToInt(Edit2->Text); c=a-b; Edit3->Text=IntToStr(c); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject Sender) { int a, b, c; a=StrToInt(Edit1->Text); b=StrToInt(Edit2->Text); c=a+b; Edit3->Text=IntToStr(c); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button3Click(TObject Sender) { int a, b, c; a=StrToInt(Edit1->Text); b=StrToInt(Edit2->Text); c=ab; Edit3->Text=IntToStr(c); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button4Click(TObject Sender) { int a, b, c, d; a=StrToInt(Edit1->Text); b=StrToInt(Edit2->Text); c=a/b;//результат целочисленного деления d=a%b;//остаток от деления Edit3->Text=IntToStr(c); Edit4->Text=IntToStr(d); } //--------------------------------------------------------------------------- Добавлено через 24 секунды* А так? Но, так тоже не идёт 0