Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Delphi, НУЖНО 
V
    Опции темы
СОЛОЛА
Дата 14.1.2016, 18:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Что неправильно:
Код

 procedure TForm1.Button1Click(Sender: TObject);
begin
n := StrToFloat(Edit1.Text);
c:=1;
z:=1;
y:=0;
for i:=1 to n do
 begin
  c:=c*10;
  z:=z/i;
  y:=y+c*z;
   Edit2.Text:=FloatToStr(y);
 end;
 end;
end.


Если задание: 
Вычислить сумму первых n членов последовательности: у=10+100/1*2+1000/1*2*3+10000/1*2*3*4+....

Это сообщение отредактировал(а) Alexeis - 14.1.2016, 19:32
PM MAIL   Вверх
Garmahis
Дата 14.1.2016, 18:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 4
Дельфи пишет прям на родном английском, что переменная n если она используется в цикле может быть только интеджер. А если она интеджер то надо использовать не StrToFloat а StrToInt...
PM   Вверх
СОЛОЛА
Дата 14.1.2016, 18:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Все ровно что то не так (((
PM MAIL   Вверх
Alexeis
Дата 14.1.2016, 19:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459
Цитата(СОЛОЛА @  14.1.2016,  19:57 Найти цитируемый пост)
Все ровно что то не так ((( 

Вообще-то работает правильно. Не знаю в чем может быть проблема
Код

procedure TForm2.Button1Click(Sender: TObject);
var
 n, i : integer;
 c, x, y, z : real;

begin
n := StrToInt(Edit1.Text);
c:=1;
z:=1;
y:=0;
for i:=1 to n do
 begin
  c:=c*10;
  z:=z/i;
  y:=y+c*z;
   Edit2.Text:=FloatToStr(y);
 end;
end;


Может переменные не объявлены, может компонентов на форме не хватает.


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
dnek
Дата 15.1.2016, 10:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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

   Вообще-то работает правильно. Не знаю в чем может быть проблема
   

Проблема в логике.
Код

procedure TForm2.Button1Click(Sender: TObject);
var
n, i : integer;
c, x, y, z : real;

begin
n := StrToInt(Edit1.Text);
c:=1;
x := 1;
z:=1;
y:=0;
for i:=1 to n do
begin
  c:=c*10;
  x := x * i
  z := c / x;
  y := y + z;
end;
Edit2.Text := FloatToStr(y);
end;


Этот ответ добавлен с нового Винграда - http://vingrad.com
PM MAIL   Вверх
Alexeis
Дата 15.1.2016, 11:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459
Цитата(dnek @  15.1.2016,  11:49 Найти цитируемый пост)
Проблема в логике.

  Я проверил, результат при n=1, n=2, n=3 и результат кода совпал с калькулятором. Вы написали тот же код, но изменили порядок умножений и делений. Умножения и деления можно делать в произвольном порядке. Результат не меняется.


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
СОЛОЛА
Дата 15.1.2016, 18:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
 smile 
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0450 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.