цикл While

@raavaa · Регистрация: 13.04.2011

Студворк — интернет-сервис помощи студентам

procedure TForm1.Button1Click(Sender: TObject);
var e,x,s,y:real;
k:integer;
begin
x:=strtofloat(edit1.text);
S:=0;
K:=1;
E:=0.05;
memo1.Lines.Clear;
while abs(s)<E do
begin
y:=power(-1,k)*power(x,2*k-1)/(2*k*(2*k+1));
s:=s+y;
k:=k+1;
memo1.Lines.Add(floattostr(s));
end;
end;

end.
end;

end.

По тексту программы заданно что расчитывать х до того пока он не будет равен 0,05.....а ответ когда я ввожу в программе 0,083....
Почему ответ выдается на экран ведь у меня цикл только до 0,05 должен идти

@raavaa · 20.04.2011, 23:38 **[ТС]**

Обьясни пожалуйста а как записать так что бы если он больше чем 0,5 то появлялось сообщение типо что сумма равна больше чем по заданию?ну или типо того

Добавлено через 1 минуту
еще вот почему так,у нас сумма равно больше чем 0,05 а ответ высвечивается в мемо?
ведь если она меньше то ответ должен выводиться в поле,а оно у нас больше и всеравно выводится ответ

@Arcor · 20.04.2011, 23:40

вот так примерно

только я немного видоизменил прогу, вернешь все как у тебя сам

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure TForm1.Button1Click(Sender: TObject);
var e,x,s,y:real;
k:integer;
begin
x:=0.5;
S:=0;
K:=1;
E:=0.05;
memo1.Lines.Clear;
while Abs(s) <= 0 do
begin
y:=power(-1,k)*power(x,2*k-1)/(2*k*(2*k+1));
if Abs(y) > E then
  begin
    ShowMessage('Извините, но сумма превышает знаение !!!');
    Exit;
  end
else
s:=s+y;
k:=k+1;
memo1.Lines.Add(floattostr(s));
end;
end;

@Hobert · 20.04.2011, 23:43

так как степень положительная можешь попробовать: X^Y = EXP^(Y * Ln(X))

@raavaa · 20.04.2011, 23:50 **[ТС]**

Arcor Огромное тебе спасибо

Новые блоги и статьи Все статьи Все блоги /
Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия	Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .
Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .

@raavaa 0 / 0 / 0 Регистрация: 13.04.2011 Сообщений: 73

	цикл While 20.04.2011, 22:18. Показов 4246. Ответов 23 Метки нет (Все метки) procedure TForm1.Button1Click(Sender: TObject); var e,x,s,y:real; k:integer; begin x:=strtofloat(edit1.text); S:=0; K:=1; E:=0.05; memo1.Lines.Clear; while abs(s)<E do begin y:=power(-1,k)power(x,2k-1)/(2k(2*k+1)); s:=s+y; k:=k+1; memo1.Lines.Add(floattostr(s)); end; end; end. end; end. По тексту программы заданно что расчитывать х до того пока он не будет равен 0,05.....а ответ когда я ввожу в программе 0,083.... Почему ответ выдается на экран ведь у меня цикл только до 0,05 должен идти 0

@raavaa 0 / 0 / 0 Регистрация: 13.04.2011 Сообщений: 73
	20.04.2011, 23:38 [ТС]
	Обьясни пожалуйста а как записать так что бы если он больше чем 0,5 то появлялось сообщение типо что сумма равна больше чем по заданию?ну или типо того Добавлено через 1 минуту еще вот почему так,у нас сумма равно больше чем 0,05 а ответ высвечивается в мемо? ведь если она меньше то ответ должен выводиться в поле,а оно у нас больше и всеравно выводится ответ 0

@Hobert 1 / 1 / 2 Регистрация: 23.03.2011 Сообщений: 8
	20.04.2011, 23:43
	так как степень положительная можешь попробовать: X^Y = EXP^(Y * Ln(X)) 0

@raavaa 0 / 0 / 0 Регистрация: 13.04.2011 Сообщений: 73
	20.04.2011, 23:50 [ТС]
	Arcor Огромное тебе спасибо 0