 Паскаль. массивы. |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| aigulia |
  22.04.2010 15:14
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 4 Пол: Женский Репутация:  0   |
Помогите написать программы на Паскале! Сама в этом не разбираюсь, по этому прошу вашей помощи! Заранее спасибо!!
1. Если уравнение ax2 + bx + c = 0 (a не равно 0) имеет вещественные корни, то логической переменной t присвоить значение true, а переменным x1 и x2 – сами корни, иначе же переменной t присвоить false, а значения переменных x1и x2 не менять. 2. Дано 50 вещественных чисел. Найти порядковый номер того из них, которое наиболее близко к какому-нибудь целому числу. 3. Дано натуральное k. Напечатать k-ю цифру последовательности 1234567891011121314…, в которой выписаны подряд все натуральные числа. 4.Даны целые числа x1, x2, …, x55. Вычислить величину x1(x2+x3)(x4+x5+x6)(x7+x8+x9+x10)…( x46+x47+…+x55). |
   |
 
|
  |
Ответов
| volvo |
23.04.2010 10:24
Сообщение
#2
|
|
Гость |
Цитата 3. Дано натуральное k. Напечатать k-ю цифру последовательности 1234567891011121314…, в которой выписаны подряд все натуральные числа. Задача решалась, причем не одним пользователем на этом форуме (См. Олимпиадные задачи, пост №15). Прежде всего надо было обратиться к поиску. Автор даже этого не сделал. Надо ему очень эти фрагменты решений? От сейчас их возьмет и пойдет на другой форум. А там ему слепят из них очередного монстра... "Псевдокод"... Я тебе, TarasBer, тоже как-нибудь отвечу с использованием псевдокода. Посмотрим, сколько тебе времени понадобится, чтобы разобраться и перенести решение на любой другой язык... |
|
|
|
| Lapp |
23.04.2010 10:55
Сообщение
#3
|
 Уникум  Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: 159 |
Цитата(volvo @ 23.04.2010 11:24)  Задача решалась, причем не одним ... volvo, я не думаю, что ты думаешь, что я думаю, что эта задача не решалась )). Но дело же не в этом.. Автор даже этого не сделал. Надо ему очень эти фрагменты решений? В конце концов, главное - потрепаться, и чтоб задача была хорошая )). А что до автора - ну, ну.. ну - чиво тут поделаешь?.. СУДБА.. TarasBer, спасибо за поправку. И обрати внимание на слова volvo по псевдокоду тоже (я не одинок)). -------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
|
|
|
Сообщений в этой теме
aigulia Паскаль. массивы. 22.04.2010 15:14
TarasBer > Сама в этом не разбираюсь, по этому прошу ваш... 22.04.2010 15:57 Lapp По 4-й задаче: я б сделал вот так:
p:=1;
for ... 23.04.2010 4:09 Lapp 3-я задача тоже интересная. Я написал, потом стал... 23.04.2010 5:15 Lapp Во 2-й задаче, TarasBer, ты несколько не понял усл... 23.04.2010 8:17 TarasBer > for i:=1 to 50 do if Abs(a-Round(a[i]))<d ... 23.04.2010 10:02 TarasBer Попробовал
for i := 0 to RD do RN := RN div 10;... 23.04.2010 10:24
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 20.07.2025 11:07 |