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

@Виктория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++

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .

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

	Вычисление вещественных корней квадратного уравнения 18.11.2009, 20:16. Показов 11448. Ответов 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