IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Арифметическая задача, Не могу сделать....
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 8
Пол: Мужской

Репутация: -  0  +


Привет, всем! Помогите пожалуйста на писать на Delphi программу, вычисляющую результат по следующей формуле:
(сверху n, снизу i:=1) = ((-1) в степени i)*i?, где i? = 2*4*6*... (если i четно), 1*3*5*... (если i нечетно).
Это у нас экзамен на первом курсе такой был, в понедельник пересдачу назначили. Я вроде бы сделал, но препод говорит, что неправильно вычисляет dry.gif
Помогите пожалуйста.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2





Группа: Пользователи
Сообщений: 8
Пол: Мужской

Репутация: -  0  +


Вот, что у меня получилось. Вроде бы, по моим вычислениям на бумажке считает правильно, но препод говорит, что неправильно и не объясняет почему. Посмотрите, может все-таки действительно у меня ошибка wacko.gif .
procedure TForm1.Button1Click(Sender: TObject);
var
n,a:integer;
b,c:real;
begin
n:=StrToInt(Edit1.Text);
if (n mod 2) = 0 then
begin
For a:=2 to n do
if (a mod 2) = 0 then
b:=b+(1) * a;
end
else
Begin
For a:=1 to n do
begin
c:=a;
if (a mod 2) = 0 then
b:=b
else
b:=b+(-1) * c
end;
end;
Edit2.Text:=FloatToStr(b);
end;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 23.09.2020 16:33
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name