Форум программистов, компьютерный форум, киберфорум
C++ Builder
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
 Аватар для Я_Р_К_О_С
26 / 26 / 1
Регистрация: 10.04.2012
Сообщений: 37

Арифметическое выражение С++ Builder

23.04.2012, 13:27. Показов 759. Ответов 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
57
58
59
60
61
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include <math.h>
#include <stdlib.h>
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{int n,z;
 n=StrToInt(Form1->Edit3->Text);
 StringGrid1->ColCount=n+1;
 StringGrid1->RowCount=2;
 StringGrid1->FixedCols=1;
 StringGrid1->FixedRows=1;
 StringGrid1->Cells[0][0]="Масив";
    for(z=0;z<=n;z++)
   StringGrid1->Cells[z+1][0]="z="+IntToStr(z+1);
   StringGrid1->Cells[0][1]="Елементи";
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{  int n,z,x,y;
   float  e[10];
   n=StrToInt(Form1->Edit3->Text);
   x=StrToInt(Form1->Edit1->Text);
   y=StrToInt(Form1->Edit2->Text);
      for(z=0;z<n;z++)
       {
       e[z]=(pow((cos(x)-sin(y)),3)/(sqrt(tan(x))))+pow(log(x*y*z),2);
       StringGrid1->Cells[z+1][1]=FloatToStr(e[z]);
        }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
exit(1);        
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Edit1->Clear();
Edit2->Clear();
Edit3->Clear();
}
//---------------------------------------------------------------------------
2
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
23.04.2012, 13:27
Ответы с готовыми решениями:

Добавить числа в скобочное выражение, чтобы получилось правильное арифметическое выражение
1.Дана последовательность из N круглых, квадратных и фигурных скобок. Выяснить, можно ли добавить в неё цифры и знаки арифметических...

Арифметическое выражение
Помогите пожалуйста решить задачу в NetBeans (a^4-b^2)/(13*a+b)^2 byte a=100, byte b=50 Очень срочно, заранее благодарен.

Арифметическое выражение
В записи арифметического выражения используются круглые, квадратные и фигурные скобки. Проверить, верно ли расставлены скобки, соответствие...

1
872 / 448 / 35
Регистрация: 25.10.2011
Сообщений: 910
23.04.2012, 14:45
Цитата Сообщение от Я_Р_К_О_С Посмотреть сообщение
Есть рабочая программа, которая запускается, но не правильно считает:
Я конечно все понимаю, но с таким же успехом можно было чистый проект закинуть. Он тоже запускается, но не выполняет желанное. Может немного контекста добавите?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
23.04.2012, 14:45
Помогаю со студенческими работами здесь

Арифметическое выражение.
На вход программе подаётся последовательность символов, заканчивающаяся точкой (точка – признак конца и в последовательность не входит)....

Арифметическое выражение
Есть такое выражение: X=A/B+C*(D+E-K) Где E и К - двухбайтные числа, все остальные однобайтовые. Чисто теоретически, правильно все...

Арифметическое выражение
Есть выражение X = A/B + C - D*E + K, где A - 4-байтовое; B,C - 2-байтовые; D,E - однобайтовые, К - константа 616h. Прошу подсказать где...

Арифметическое выражение
Помогите написать

Арифметическое выражение
перевести арифметическое выражение y={sin}^{4}*tg{x}^{3}/2/cos{x}^{3}-1+\^{3}sqrt{tg{x}^{3}/3} на язык Паскаль. Перевела,только...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Вывод данных через динамический список в справочнике
Maks 01.04.2026
Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Функция заполнения текстового поля в реквизите формы документа
Maks 01.04.2026
Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .
К слову об оптимизации
kumehtar 01.04.2026
Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр).
Hrethgir 31.03.2026
Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются
Maks 31.03.2026
1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .
Перемещение выделенных строк ТЧ из одного документа в другой
Maks 31.03.2026
Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave
DevAlt 30.03.2026
Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru