26.04.2010, 16:14 | #1 (permalink) |
Новичок
Регистрация: 18.04.2010
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Нужна помощь
На языке Delphy. Последний раз редактировалось Ciber; 26.04.2010 в 18:09 |
26.04.2010, 16:14 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Похожая задача уже решалась на нашем форуме Нужна помощь по МК Как согнуть лист? Нужна помощь Нужна помощь Нужна помощь с БП |
27.04.2010, 06:26 | #2 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Нужна помощь? Пожалуйста. Алгоритм решения примерно такой:
При решении используйте функции для вычисления k-ой степени 2-ки и факториала числа k. Введенные члены последовательности сохраняйте в одномерный целочисленный массив из n элементов, затем в цикле анализируйте каждое число, сравнивая с вычисленными значениями степени 2-ки и факториала. Если число попадает в диапазон - результирующий счетчик увеличивайте на 1. По окончании анализа выведите содержимое результирующего счетчика на экран. Графический интерфейс для решения этой задачи создавать не обязательно, хотя он добавит солидности вашему коду. А программу при наличии желания вы напИшите самостоятельно.
__________________
Убить всех человеков! |
23.05.2010, 18:16 | #5 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Если я за вас напишу программу - не факт, что вы сможете объяснить всё в листинге при сдаче, из-за этого неизбежно у преподавателя появятся вопросы к вам. Поэтому попытайтесь самостоятельно сделать и выложить сюда, а мы вам поможем исправить, если будут проблемы или ошибки.
__________________
Убить всех человеков! |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
24.05.2010, 20:47 | #6 (permalink) | |
Новичок
Регистрация: 18.04.2010
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
Form1: TForm1; n:integer; implementation {$R *.dfm} procedure TForm1.Edit1Change(Sender: TObject); begin n:=StrToInt (edit1.text); StringGrid1.ColCount:=n; end; function fac(n:integer):integer; var i:integer; begin result:=1; for i:=1 to n do result:=result*i; end; procedure TForm1.Button1Click(Sender: TObject); var a:array [1..100] of real; k,s,i:integer; begin K:=StrToInt (edit2.Text); s:=0; For i:=1 to n do a[i]:=StrToFloat(StringGrid1.Cells [i,1]); for i:=1 to n do If (a[i]>exp(k*ln(2))) and (a[i]<fac(k)) then s:=s+1; if s>0 then Label4.Caption:=IntTostr (s) else ShowMessage ('Проверьте условии, оно задано неверно'); end; end. Вот прога, к-рую составил, но почему то не работает, проверьти пожалуйста |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|