Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Delphi - [решено] Помощь в решении задачи

Ответить
Настройки темы
Delphi - [решено] Помощь в решении задачи

Аватара для Vitek 07

Ветеран


Сообщения: 1215
Благодарности: 321


Конфигурация

Профиль | Отправить PM | Цитировать

Изменения
Автор: Vitek 07
Дата: 12-03-2011
Собственно задание:
Дано натуральное число n. Вычислить

Текст программы
Код: Выделить весь код
procedure TForm1.Button1Click(Sender: TObject);
var i,n: integer;
s: real;
begin
n:=StrToInt(Edit1.Text);
 for i := 1 to n do
begin
 s:=1/(sqr(2*i+1));
 Label2.Caption:=('Значение выражения = ')+FloatToStr(s);
end;
end;
Правильно ли написано, подскажите пожалуйста.

Отправлено: 13:50, 12-03-2011

 

Аватара для lxa85

Необычный


Contributor


Сообщения: 4463
Благодарности: 994

Профиль | Сайт | Отправить PM | Цитировать

Vitek 07,
Цитата Vitek 07:
s:=1/(sqr(2*i+1)); »
Для накопления результата в переменной надо написать суммирование с предыдущим значением.
S = S + <что-то>
Кроме того, не ясно начальное значение переменной S. Необходимо ей присвоить начальное значение - ноль, до цикла.
Label2.Caption:=... вынести ЗА тело цикла. Принципиально важным это не будет, просто проще сначала посчитать, а затем показывать конечную цифру.

-------
- Я не разрешаю тебе быть плохой! Потому что плохие люди совершают плохие поступки. А это нехорошо!
(Из наставлений 5 летней девочки своей младшей сестре)

Это сообщение посчитали полезным следующие участники:

Отправлено: 14:22, 12-03-2011 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Аватара для Vitek 07

Ветеран


Сообщения: 1215
Благодарности: 321

Профиль | Отправить PM | Цитировать

lxa85, спасибо за помощь.

исправил на это
читать дальше »
Код: Выделить весь код
...
var i,n: integer;
s: real;
begin
n:=StrToInt(Edit1.Text);
s:=0;
 for i := 1 to n do
begin
 s:=s+1/(sqr(2*i+1));
end;
Label2.Caption:=('Значение выражения = ')+FloatTostr(s);
end;
...

Отправлено: 14:38, 12-03-2011 | #3


Новый участник


Сообщения: 14
Благодарности: 0

Профиль | Отправить PM | Цитировать

Здравствуйте помогите решить Задачи. собственно задания за 86год как не странно программа в универах не меняется ((((




по всем заданиям примеры №5

Последний раз редактировалось prorok1987, 14-03-2011 в 14:35.

Отправлено: 14:26, 14-03-2011 | #4


Аватара для lxa85

Необычный


Contributor


Сообщения: 4463
Благодарности: 994

Профиль | Сайт | Отправить PM | Цитировать

prorok1987, с чем именно возникла проблема? В каком месте решения? Что не получается сделать и т.д. Сформулируй правильно вопрос, о том, что ты хочешь от нас услышать?

-------
- Я не разрешаю тебе быть плохой! Потому что плохие люди совершают плохие поступки. А это нехорошо!
(Из наставлений 5 летней девочки своей младшей сестре)

Это сообщение посчитали полезным следующие участники:

Отправлено: 14:52, 14-03-2011 | #5


Новый участник


Сообщения: 14
Благодарности: 0

Профиль | Отправить PM | Цитировать

собственно я дуб в бэйсике
сори на форумах не сижу некогда первый раз прибегаю к помощи
вопроса собственно нету, это крик о помощи, да препод гад просит деньги и типо поставит зачёт, а их собственно и нету

Последний раз редактировалось prorok1987, 14-03-2011 в 15:05.

Отправлено: 14:57, 14-03-2011 | #6


Ветеран


Сообщения: 27449
Благодарности: 8087

Профиль | Отправить PM | Цитировать

Цитата prorok1987:
да препод гад просит деньги и типо поставит зачёт »
И много просит?
Это сообщение посчитали полезным следующие участники:

Отправлено: 15:24, 14-03-2011 | #7


Новый участник


Сообщения: 14
Благодарности: 0

Профиль | Отправить PM | Цитировать

2000 р

Отправлено: 15:41, 14-03-2011 | #8


Аватара для lxa85

Необычный


Contributor


Сообщения: 4463
Благодарности: 994

Профиль | Сайт | Отправить PM | Цитировать

prorok1987, последний тогда вопрос. Этот Basic вообще, как таковой, в дальнейшем нужен? Он будет являться частью работы или еще чем. Или это просто дисциплина, которую надо пройти и забыть как страшный сон?
И да, давайте выберем какую-нибудь одну тему для продолжения решений (Скорей всего соседнюю)

-------
- Я не разрешаю тебе быть плохой! Потому что плохие люди совершают плохие поступки. А это нехорошо!
(Из наставлений 5 летней девочки своей младшей сестре)

Это сообщение посчитали полезным следующие участники:

Отправлено: 16:05, 14-03-2011 | #9


Новый участник


Сообщения: 14
Благодарности: 0

Профиль | Отправить PM | Цитировать

Цитата lxa85:
prorok1987, последний тогда вопрос. Этот Basic вообще, как таковой, в дальнейшем нужен? Он будет являться частью работы или еще чем. Или это просто дисциплина, которую надо пройти и забыть как страшный сон?
И да, давайте выберем какую-нибудь одну тему для продолжения решений (Скорей всего соседнюю) »
собственно мне этот бэйсик даже и нужен не будет, это просто дисциплина, которую надо пройти и забыть как страшный сон?

Отправлено: 16:15, 14-03-2011 | #10



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Delphi - [решено] Помощь в решении задачи

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Нужна помощь в решении проблемы (1-я система) aztekium Лечение систем от вредоносных программ 11 03-12-2010 10:53
Нужна помощь в решении проблемы (2-я система) aztekium Лечение систем от вредоносных программ 6 02-12-2010 16:29
KINGSTON KVR1333D3N9/2G x2; нужна помощь в диагностике и решении проблемы.. lambaste Материнские платы и память 10 09-07-2010 01:59
VBA - [решено] Помогите в решении задачи с одномерным массивом VBA. vovan1993 Программирование и базы данных 3 02-07-2010 06:57
Autoit слайдер/slider (gui) нужна помощь в решении задачи aktivizion AutoIt 8 01-03-2010 18:05


« Предыдущая тема | Следующая тема »


 
Переход