|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
19.11.2007, 15:44 | #11 |
Пользователь
Регистрация: 19.11.2007
Сообщений: 36
|
А у вас выводится здесь a[i] а как сделать так чтобы выводилось много значений. там же не одно число будет, сумма квадратов цифр которых кратно 15.
|
19.11.2007, 15:48 | #12 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Так это же все в цикле for i:=1 to n do и выводится будет каждое a[i], пока не закончится цикл. Вы сначала программу напишите, откомпилируйте, а потом вопросы задавайте. А то я еще не успел написать, а Вы уже новый вопрос на ту же тему.
|
19.11.2007, 17:13 | #13 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Извини друг, погорячился я, а ты не поправил. Я показал задачу, когда из массива выдергивают нужные числа, а по условию нужно проверить все двухзначные числа, для чего их нужно программно создать, а потом уже выдергивать нужные.
Смотри код и если что непонятно, спрашивай. Насчет книг ты неправ. Если у тебя есть выход в Интернет, то ты там можешь много книжек скачать. Если мы с тобой заплюхались со второй задачей, то за первую лучше пока не браться, все равно до завтра не решишь. Код:
|
19.11.2007, 17:37 | #14 |
Пользователь
Регистрация: 19.11.2007
Сообщений: 36
|
А на делфи многое надо поменять? я просто между ними связь незнаю какое из паскаля какому из делфи соответствует.
Вроде все также как и на делфи тока вот слова writeln и readln не понимаю clrscr; uses crt; const n=9; первый раз вижу. извините что так много спрашиваю Последний раз редактировалось AlDelta; 19.11.2007 в 17:48. |
19.11.2007, 17:56 | #15 |
Пользователь
Регистрация: 19.11.2007
Сообщений: 36
|
write(a[i]*10+b[j],' '); эта строрчка ошибку выдает.
я написал otv:=(a[i]*10+b[j],' '); <== вот это вот ' ' для чего оно, чтобы все числа выводились? потом Edit2.Text:=FloatToStr(otv); и не понимаю в чем ошибка |
19.11.2007, 18:10 | #16 |
Пользователь
Регистрация: 19.11.2007
Сообщений: 36
|
а выводить в edit или в листбокс. ошибку в строке (a[i]*10+b[j],' ') выводит после запятой перед ' '
|
19.11.2007, 18:20 | #17 | |
Пользователь
Регистрация: 19.11.2007
Сообщений: 36
|
Ну вот что у мен получилось
Цитата:
|
|
20.11.2007, 08:55 | #18 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Пропал у меня вчера интернет, только сегодня исправили.
И в каком месте у тебя написано, что нужно на Delphi? Потом, ты зачем переделал мой текст, если не понимаешь? У меня a:array[1..9] - это цифры, а у тебя [1..99] - это что? Вот код на Делфи, внимательно посмотри, где у тебя ошибки. Код:
Последний раз редактировалось puporev; 20.11.2007 в 09:33. |
20.11.2007, 13:56 | #19 |
Пользователь
Регистрация: 19.11.2007
Сообщений: 36
|
Спасибо большое я написал
|
16.01.2009, 10:17 | #20 |
Новичок
Джуниор
Регистрация: 16.01.2009
Сообщений: 2
|
2forumu
если написал на делфи такую прогу к функции,то отпишись пожалуйста её сюда...ломаю голову не могу написать правильно... |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Найти сумму ряда | 11111 | Помощь студентам | 14 | 01.11.2010 19:55 |
Сумма ряда | Sova123456 | Помощь студентам | 8 | 11.06.2010 17:10 |
Разработка программ с использованием функций. Табулирование функции одного и двух переменных | кася | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 07.05.2008 20:11 |
табулирование функции | tonic | Microsoft Office Excel | 1 | 04.01.2008 00:38 |
Найти сумму ряда с точностью Е=10^-3 | Добрый Кот | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 12.12.2007 12:04 |