![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 05.03.2011
Сообщений: 5
|
![]()
Заданием было написать программу, проверяющую, "Являются ли цифры числа последовательными членами алгебраической или геометрической прогрессии". Вышло нечто подобное:
Код:
![]() Последний раз редактировалось 1emm; 05.03.2011 в 14:54. |
![]() |
![]() |
![]() |
#2 |
Пользователь
Регистрация: 03.03.2011
Сообщений: 12
|
![]() Код:
Код:
Код:
Последний раз редактировалось DaysOfGrace; 05.03.2011 в 15:05. |
![]() |
![]() |
![]() |
#3 |
Новичок
Джуниор
Регистрация: 05.03.2011
Сообщений: 5
|
![]() |
![]() |
![]() |
![]() |
#4 |
Delphi Warrior
Старожил
Регистрация: 15.08.2008
Сообщений: 2,502
|
![]()
А я вот что придумал! Проверяй
Код:
Mess with the best, die like the rest.
![]() Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303 |
![]() |
![]() |
![]() |
#5 |
Новичок
Джуниор
Регистрация: 05.03.2011
Сообщений: 5
|
![]()
Это что-то для меня малопонятное, к тому же работает некорректно, а первая функция работать начала, спасибо =)
|
![]() |
![]() |
![]() |
#6 |
Delphi Warrior
Старожил
Регистрация: 15.08.2008
Сообщений: 2,502
|
![]()
БЛИН!! ИЗВИНЯЮСЬ! ТУПАНУЛ!
ВОТ ФУНКЦИЯ ДЛЯ ГЕОМЕТРИЧЕСКОЙ Код:
Mess with the best, die like the rest.
![]() Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303 |
![]() |
![]() |
![]() |
#7 | |
Новичок
Джуниор
Регистрация: 05.03.2011
Сообщений: 5
|
![]() Цитата:
З.Ы. если не сложно, не мог бы ты объяснить, что делает 1) itoa(a, a_s, 10); 2)(((a_s[i+1]-48)/(a_s[i]-48)) != d) (и откуда тут взялось 48) |
|
![]() |
![]() |
![]() |
#8 |
Delphi Warrior
Старожил
Регистрация: 15.08.2008
Сообщений: 2,502
|
![]()
Так ну вот! Вроде прогнал как следует! Всё вроде правильно!
проверяй Код:
Mess with the best, die like the rest.
![]() Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303 |
![]() |
![]() |
![]() |
#9 |
Новичок
Джуниор
Регистрация: 05.03.2011
Сообщений: 5
|
![]()
Огромное спасибо, заработала =)
|
![]() |
![]() |
![]() |
#10 |
Delphi Warrior
Старожил
Регистрация: 15.08.2008
Сообщений: 2,502
|
![]()
Если помог, кликни весы
![]() ![]() ![]()
Mess with the best, die like the rest.
![]() Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303 |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Проверка на арифметическую прогрессию | Оксана22081989 | Помощь студентам | 1 | 29.01.2010 11:33 |
Скажите в чем ошибка, как в массиве найти арифметическую прогрессию и вывести элементы на экран? | Lodyr | Помощь студентам | 0 | 21.12.2009 16:32 |
Пишу курсовую нужно решить задачу для примера на геометрическую прогрессию (Pascal) | =|винтик|= | Помощь студентам | 4 | 25.05.2009 16:38 |
Проверка | Манжосов Денис :) | Общие вопросы Delphi | 4 | 17.10.2008 16:27 |