VPF::Помогите с лабой. - Форум программистов

xakbel

Дата 7.10.2010, 22:13 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 7.10.2010

Репутация: нет
Всего: нет

Помогите с лабой. Сверху задание, снизу вариант.

Мой код

Код


Memo1->Clear();
Memo1->Lines->Add("Лабораторная работа #3. ");
Edit1->Text="0,1";
Edit2->Text="1";
Edit3->Text="4";
Edit4->Text="0,2";
double a,b,x,r,h,s,y,t,p;
int n,k;
        a=StrToFloat(Edit1->Text);
        b=StrToFloat(Edit2->Text);
        n=StrToFloat(Edit3->Text);
        h=StrToFloat(Edit4->Text);
        for (x=a; x<=b; x+=h) {
        r=2;
        s=1;  }
        for (k=1; k<=n; k++) {
        r=r*x/2;
        s+=r;
}
y=(x*x/4+x/2+1)*exp(x/2);
p=fabs(y-s);
Memo1->Lines->Add("При Х="+FloatToStr(x));
Memo1->Lines->Add("S="+FloatToStr (s));
Memo1->Lines->Add("Y="+FloatToStr(y));
Memo1->Lines->Add("Разность="+FloatToStr(p));

Х береться один- 1.1, а не 0.1; 0.3; 0.5; 0.8.
Хелп плз

EEEEEE

Дата 8.10.2010, 20:23 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 72
Регистрация: 15.5.2006

Репутация: нет
Всего: нет

Лабораторная довольно примитивная.
В качестве подсказки. Если в циклах повыводить то, что по идее автора, должно изменяться.
Проанализировать... Возможно, найдётся вариант.

Первый цикл "гоняет порожняк". Зачем делать цикл по x, если в конечном итоге как были r = 2; s = 1; так и остались r = 2; s = 1;
Дальше муки творчества...)))

xakbel

Дата 9.10.2010, 12:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 7.10.2010

Репутация: нет
Всего: нет

Сделал))

Invisible_kid

Дата 13.10.2010, 14:18 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 74
Регистрация: 2.9.2007

Репутация: нет
Всего: 3

хых) БГУИР) *настальгия*

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »