|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.12.2008, 19:45 | #1 |
Пользователь
Регистрация: 14.06.2008
Сообщений: 10
|
Программирование циклических алгоритмов в Delphi7
Помогите... напишите плиз программу условия задачи вот:
Подсчитать k - количество цифр в десятичной записи целого неотрицательного числа n. |
07.12.2008, 20:05 | #2 |
Пользователь Подтвердите свой е-майл
Регистрация: 06.12.2006
Сообщений: 61
|
Function Count(n:Word):Byte;
Var i:Byte; Begin i:=0; While n<>o Do Begin inc(i); n:=n div 10; End; Count:=i; End; |
07.12.2008, 22:01 | #3 |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,527
|
n:=1;cnt:=1;
while x<n do begin n:=n*10; cnt:=cnt+1; end;
программа — запись алгоритма на языке понятном транслятору
|
18.12.2009, 01:23 | #4 |
Новичок
Джуниор
Регистрация: 18.12.2009
Сообщений: 2
|
помогите пожалуйста!!!!
В соответствии с видом функции, приведенном в файле Варианты.doc, вычислить значения функции y=f(x,a,b) для значений аргумента x, изменяющегося в интервале от xнач до xкон с шагом ∆x, и заданных констант a и b. Исходные данные для отладки программы (xнач, xкон, ∆x, a, b), выбрать само-стоятельно из области определения функции. Результаты (значения аргумента x и функции y) вывести в текстовую таблицу компонента StringGrid, строки таблицы пронумеровать. Построить график функции y=f(x,a,b), используя компонент Chart. 15. у=ln*ln* (модуль x) +b/a * на корень из x |
18.12.2009, 02:24 | #5 |
Форумчанин
Регистрация: 01.02.2007
Сообщений: 785
|
2 AlexOg - ICQ 364817748 - пиши, сделаю.
Изо всей благодати
В руках крепко сжатых Я донесу только капли |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Программирование линейных алгоритмов в Delphi7 | Rom1k | Помощь студентам | 3 | 01.12.2008 19:41 |
Программирование разветвляющихся алгоритмов в Delphi7 | Rom1k | Помощь студентам | 5 | 27.11.2008 14:36 |
Программирование алгоритмов циклическич структур | lantian | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 22.10.2008 16:05 |
Программирование ветвящихся алгоритмов | Дима82 | Помощь студентам | 4 | 11.05.2008 11:35 |
Программированние циклических алгоритмов | Дима82 | Помощь студентам | 8 | 11.05.2008 11:31 |