VPF::Условный оператор цикла While - Форум программистов

AlexArs

Дата 25.10.2006, 10:50 (ссылка)

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

Загрузка ...

Шустрый

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

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

С использованием оператора цикла While, cоставить и отладить программу для решения следующей задачи:
Дано действительное число x. Вычислить сумму зависящего от x ряда:
S=Sinx/3 + Sin2x/4 + Sin3x/5 + ... + Sin9x/11.

Код кнопки:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
 x, Sum : real;
 i: integer;
begin
 x := StrToFloat(Edit1.Text); 
 Sum := 0;
 i := 1;
 while i <= 9 do
  i := i + 1;
 Sum := Sum + Sin(i*x)/(i+2);
 Label2.Caption := FloatToStr(Sum);
 end;

end.

Короче при х=1 прога выводит ответ считая i=10 и не считает сумму.
Подскажите в чем ошибся???

--------------------

Тихоокеанский Государственный Экономический Университет

Rodman

Дата 25.10.2006, 10:54 (ссылка)

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

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

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

Код


procedure TForm1.Button1Click(Sender: TObject);
var
 x, Sum : real;
 i: integer;
begin
 x := StrToFloat(Edit1.Text); 
 Sum := 0;
 i := 1;
 while i <= 9 do
 begin
  i := i + 1;
 Sum := Sum + Sin(i*x)/(i+2);
end;
 Label2.Caption := FloatToStr(Sum);
 end;
end.

а так...

Добавлено @ 11:02
но учитывая что у тебя

Цитата(AlexArs @ 25.10.2006, 10:50

)

S=Sinx/3 + Sin2x/4 + Sin3x/5 + ... + Sin9x/11

сумма определенного размера, то можно и for...

а если бы была нужда высчитывать точность, то в таком случае есть смысл использовать WHILE

Это сообщение отредактировал(а) Rodman - 25.10.2006, 10:58

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

AlexArs

Дата 25.10.2006, 11:32 (ссылка)

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

Загрузка ...

Шустрый

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

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

Rodman
В этой задаче 2 задания:
1. цикл For
2. цикл While
Первую я сделал, при х=1 Sum=0,44738847 (ответ правильный я сам с Excel'е прорешал и сошлось smile

), а с while не получается ответ не совподает!!
Может в чем-то другом ощибка??

--------------------

Тихоокеанский Государственный Экономический Университет

Reptile

Дата 25.10.2006, 11:35 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 115
Регистрация: 30.9.2006
Где: Украина, Первомай ск

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

Не пойму почему

Код


i := i + 1;

Преред

Код


Sum := Sum + Sin(i*x)/(i+2);

У тебя получается не

Цитата

S=Sinx/3 + Sin2x/4 + Sin3x/5 + ... + Sin9x/11

А
S=Sinx/4 + Sin2x/5 + Sin3x/6 + ... + Sin9x/12
Попробуй

Код


Sum := Sum + Sin(i*x)/(i+2);
i := i + 1;

И измени условие

Код


while i <=10 do

Это сообщение отредактировал(а) Reptile - 25.10.2006, 11:41

AlexArs

Дата 25.10.2006, 11:47 (ссылка)

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

Загрузка ...

Шустрый

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

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

Reptile
Большое спасибо!!!, все получилось
тему можно закрывать.

--------------------

Тихоокеанский Государственный Экономический Университет

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