![]() |
Модераторы: volvo877, Snowy, MetalFan |
![]() ![]() ![]() |
|
zetpilot |
|
|||
![]() Новичок Профиль Группа: Участник Сообщений: 9 Регистрация: 11.11.2005 Репутация: нет Всего: нет |
В целях изучения нового языка хотелось бы не просто читать книгу, ну и уже опробовать свои силы.
У кого нидубь есть интересные задания по Паскалю поделитесь если не жалко. Желательно что б задачи не нуждались в графическом интерфейсе, ну и всяких других прибамбахов. За ранее благодарю. |
|||
|
||||
~FoX~ |
|
|||
![]() НЕ рыжий!!! ![]() ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 2819 Регистрация: 8.10.2003 Где: Зеленоград Репутация: 1 Всего: 68 |
Весь раздел по паскалю одни сполшные задачи
![]() На тебе для начала: 1. Пользователь вводит две строки, например "Best stage in the story" и "st". Определить и вывести на экран сколько раз вторая строка встречается в первой. 2. Найдите самое длинное слово в предложении, введённом пользователем. 3. Пользователем введены два слова через пробел. Надо поменять их местами в строке. Задачи из школьной вроде программы. |
|||
|
||||
Palladin |
|
|||
![]() Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 932 Регистрация: 15.5.2007 Где: Беларусь г.Гомель Репутация: нет Всего: 17 |
Вот тебе задачка не очень сложная но всёже:
Шестизначное число называется “счастливым”, если у него сумма первых трех цифр равна сумме последних трех цифр. Подсчитать количество “счастливых” шестизначных чисел, у которых суммы трех цифр равны 13. Напиши здесь результат, я скажу правильно или нет -------------------- Глуп тот кто полагается на истину авторитета, а не на авторитет истины [color=red]KAV&KIS==Evil[/color] |
|||
|
||||
Ozzя |
|
|||
![]() Шустрый ![]() Профиль Группа: Участник Сообщений: 86 Регистрация: 19.7.2004 Репутация: нет Всего: 1 |
||||
|
||||
zetpilot |
|
|||
![]() Новичок Профиль Группа: Участник Сообщений: 9 Регистрация: 11.11.2005 Репутация: нет Всего: нет |
значит программа запрашивает цифру, а после введения цифры вылазиет следующие:
2 то 111 121 111 если 3 то 11111 11211 12321 11211 11111 ....если 7 1111111111111 1111112111111 1111123211111 1111234321111 1112345423111 1123456543211 1234567654321 1123456543211 1112345423111 1111234321111 1111123211111 1111112111111 1111111111111 в любом случае со всех сторон должны быть единицы создатель уверяет, что решение можно найти с помощью 2-ух циклов for |
|||
|
||||
Innuendo |
|
|||
![]() Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 745 Регистрация: 24.12.2005 Где: Молдова Репутация: нет Всего: 6 |
Ну игру в слова все знают. Первая буква слова это последняя буква слова соперника.
с файла words.in считывается последовательность слов (каждое слово- 1 строка) и последовательность до 50 000). В файл words.out надо вывести самую большую цепочку "игры в слова" из полученных слов. Это сообщение отредактировал(а) Innuendo - 19.2.2006, 11:20 -------------------- =) |
|||
|
||||
NewDima |
|
|||
![]() Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 922 Регистрация: 20.2.2006 Где: <?here?> Репутация: нет Всего: 12 |
А как на это посмотришь:
в файле даны размеры двух параллелипипидов: например 3 6 2 и второго например 1 1 1 Первый параллелипипед по всем измерениям больше второго или равен. на экран с помощью символов *, /, -, | вывести изображение, представляющее первую фигуру, из которой вырезана вторая например: Input: 3 5 3 1 2 1 Output: *-----* / /| / / | / *--* | / /| | | *-**--* | | |/ / / | *--* / | |/ *-----* Добавлено @ 12:21 извиняюсь, пробелы то не отображаются, ну что поделаешь. Может так понял? ![]() Добавлено @ 12:24 .....*-----* ..../...... /| .../ ....../ | ../ .*--* .| ./ ./| ...| | *-**--* | | .|/ ../. / | .*--* / | ......|/ *-----* Так лучше? |
|||
|
||||
Innuendo |
|
|||
![]() Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 745 Регистрация: 24.12.2005 Где: Молдова Репутация: нет Всего: 6 |
интересное задание
![]() но рисунок как-то не очень впечатлил? можешь нарисовать в ворде к примеру и сделать скрин? ну вроде понятно- жто прямые и косые стороны, а звёздочки это узлы... вторая фигура вырещана по центру? -------------------- =) |
|||
|
||||
globus0nahok |
|
|||
Новичок Профиль Группа: Участник Сообщений: 3 Регистрация: 12.10.2005 Репутация: нет Всего: нет |
такая задачка: вывести на экран все последовательности из p положительных
целых чисел, у которых i-ый член не превосходит i. P вводится с клавы. |
|||
|
||||
armageddon |
|
|||
![]() Шустрый ![]() Профиль Группа: Участник Сообщений: 117 Регистрация: 9.11.2005 Где: 239 Репутация: нет Всего: нет |
задачка:
вывести числа до n такие, что числа делятся на свои знаки например(1-9,11,12,15); 13 не делится на 3 поэтому мы её не выводим надеюсь задание ясно (из задач 9 класса фмл ) |
|||
|
||||
Innuendo |
|
|||
![]() Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 745 Регистрация: 24.12.2005 Где: Молдова Репутация: нет Всего: 6 |
делятся на свои цифры?
так это не так сложно... мой покойный учитель информатики в 7 классе дал мне задачку найти числа Армстронга в заданном диапозоне... Интересные числа.. я потом писал работу по нахождению особых чисел в диапозоне(просто бывают очень интересные числа). так вот: Число армстронга: это сумма всех его цифр в степени кол-ва цифр... Помню только одно: 153 = 1*1*1+5*5*5+3*3*3 = 1+125+27 = 153 ![]() -------------------- =) |
|||
|
||||
armageddon |
|
|||
![]() Шустрый ![]() Профиль Группа: Участник Сообщений: 117 Регистрация: 9.11.2005 Где: 239 Репутация: нет Всего: нет |
innuendo:
я не спорю, что это не так уж сложно, но в целях изучения подойдет zetpilot: тебя задачи о чем больше интересуют? |
|||
|
||||
SoWa |
|
|||
![]() Харекришна ![]() ![]() ![]() ![]() Профиль Группа: Комодератор Сообщений: 2422 Регистрация: 18.10.2004 Репутация: нет Всего: 74 |
Я понял, сюда кладем задачи?
Тогда в раздел Занимательные задачи перенести тему. Задача, простая: Найти, сколько нулей в конце числа: 1^n + 2^n + 3^n + 4^n Сложнее 1^n + 2^n + ... + n^n (Я еще не решил) -------------------- Всем добра ![]() |
|||
|
||||
Innuendo |
|
|||
![]() Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 745 Регистрация: 24.12.2005 Где: Молдова Репутация: нет Всего: 6 |
SoWa,
то есть? пользователь заводит n. Производится действие, и сколько нулей в конце у полученного результата? -------------------- =) |
|||
|
||||
Guedda |
|
|||
![]() Подрывник ![]() ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 3137 Регистрация: 27.12.2005 Где: Ростов-на-Дону Репутация: нет Всего: 78 |
Да. Именно так. Это, конечно, простое задание.
-------------------- Ll 2 |
|||
|
||||
Innuendo |
|
|||
![]() Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 745 Регистрация: 24.12.2005 Где: Молдова Репутация: нет Всего: 6 |
я попробовал:
только вот когда завожу n больше чем 12, то получается уже отрицательное значение- то есть longinta не хватает.. Проверил с 2-кой и тройкой(ну посчитал сам), вроде прально выдаёт ![]() Это сообщение отредактировал(а) Innuendo - 24.2.2006, 19:21 -------------------- =) |
|||
|
||||
SoWa |
|
|||
![]() Харекришна ![]() ![]() ![]() ![]() Профиль Группа: Комодератор Сообщений: 2422 Регистрация: 18.10.2004 Репутация: нет Всего: 74 |
Первое- халява.
А второе? Я его еще не решил, ибо на ходу выдумал ![]() -------------------- Всем добра ![]() |
|||
|
||||
Innuendo |
|
|||
![]() Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 745 Регистрация: 24.12.2005 Где: Молдова Репутация: нет Всего: 6 |
ну первое я не начинал (во второе введи n=4, и получишь первый номер, если n=4)
![]() а вот второе предложил решение.. но вот говорю, что когда заводишь n больше 12, то выходит за рамки longint'а ![]() Это сообщение отредактировал(а) Innuendo - 24.2.2006, 23:29 -------------------- =) |
|||
|
||||
NewDima |
|
|||
![]() Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 922 Регистрация: 20.2.2006 Где: <?here?> Репутация: нет Всего: 12 |
Формулируешь непонятно. она вырезана из верхнего ближнего к нам угла справа |
|||
|
||||
Innuendo |
|
|||
![]() Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 745 Регистрация: 24.12.2005 Где: Молдова Репутация: нет Всего: 6 |
я опечатался... не "вырещана", а вырезана... Ок.. теперь понятно. веррхний, правый юлижний угол.
-------------------- =) |
|||
|
||||
SoWa |
|
|||
![]() Харекришна ![]() ![]() ![]() ![]() Профиль Группа: Комодератор Сообщений: 2422 Регистрация: 18.10.2004 Репутация: нет Всего: 74 |
![]() -------------------- Всем добра ![]() |
|||
|
||||
Innuendo |
|
|||
![]() Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 745 Регистрация: 24.12.2005 Где: Молдова Репутация: нет Всего: 6 |
ааа.. блин, я просто условие не так прочёл
![]() там спрашивается сколько нулей... тогда да.. можно не вычисляя само число это делать... но вот тока как? ну подумаем) -------------------- =) |
|||
|
||||
Akina |
|
|||
Советчик ![]() ![]() ![]() ![]() Профиль Группа: Модератор Сообщений: 20581 Регистрация: 8.4.2004 Где: Зеленоград Репутация: нет Всего: 454 |
идея (в Паскалях не силен, не помню как получить остаток от целочисленного деления):
-------------------- О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума. |
|||
|
||||
Ozzя |
|
|||
![]() Шустрый ![]() Профиль Группа: Участник Сообщений: 86 Регистрация: 19.7.2004 Репутация: нет Всего: 1 |
||||
|
||||
Palladin |
|
|||
![]() Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 932 Регистрация: 15.5.2007 Где: Беларусь г.Гомель Репутация: нет Всего: 17 |
Парни вот нашёл интересные задачки 2 штуки:
ЗАДАЧА №1 "Гепотеза Гольтбаха" В 1772 году немецкий учёный Кристиан Гольдбах выдвинул предположение, езвестное как гепотеза Гольдбаха:любое чётное число, начиная с 4, можно представить в виде суммы двух простых чисел. Давайте убедимся в справедливости гипотезы Гольдбаха для чисел, не >20 4=2+2 6=3+3 8=3+5 10=3+7=5+5 12=5+7 14=3+11=7+7 16=3+13=5+11 18=5+13=7+11 20=3+17=7+13 Как видно, некоторые числа могут быть представлены в виде суммы двух простых несколькими способами. Из всех возможных разложений произвольного чётного числа выберем наименьшее простое число. Среди раобраных примеров это будут: 2для 4, 5для 12 и18, 3 для всех остальных чисел. определить наибольшее число из наименьших простых состовляющих для всех чётных чисел от 4 до N Задача№2 "Верёвочный телеграф" Тимур и его друзья, приехав летом на свои дачи, решили устроить на время своего отдыха игру. они организовали команду, чтобы тайно помогать жителям дачного городка в их повседневных делах. Дачный городок- довольно большой, и дома, в которых живут друзья Тимура, расположены далеко друг от друга. Как быстро передавать друг другу сообщения? Как собирать ребят на совет? тимур решил проложить верёвочный телеграфф, который связал бы все домики, в которых живут ребята из его команды. Всего домиков N. По карте ребята вычислили координаты каждого дома(Хi,Yi) в целых числах и выписали на бумаге. ЗА единицу измерения координат они взяли один метр. Однако возник вопрос, какие домики нужно соединять верёвочным телеграфом, чтобы связь была между всеми домами, а общая длинавсех верёвок была как можно меньше? Определить по заданному кол-ву домиков и их координатам минимальную общую длину всех верёвок, соединяющих все домики между собой!? P.S. Ну как задачки, плизз варианты решения засветите, а то мы в группе решали, из 24 человек решило 4 и у всех разный подход был к каждой из задач ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() -------------------- Глуп тот кто полагается на истину авторитета, а не на авторитет истины [color=red]KAV&KIS==Evil[/color] |
|||
|
||||
IamDreamer |
|
|||
![]() Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 867 Регистрация: 6.6.2005 Репутация: нет Всего: 7 |
Задача: Даны 2 числа (неважно целые или другие). Нужно присвоить первому числу значение второго, а второму - первого, короче поменять, но без использования третьей переменной.
|
|||
|
||||
SoWa |
|
|||
![]() Харекришна ![]() ![]() ![]() ![]() Профиль Группа: Комодератор Сообщений: 2422 Регистрация: 18.10.2004 Репутация: нет Всего: 74 |
IamDreamer, ерунда
![]()
Вот и все! -------------------- Всем добра ![]() |
|||
|
||||
IamDreamer |
|
||||
![]() Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 867 Регистрация: 6.6.2005 Репутация: нет Всего: 7 |
Когда мне эту задачу дали, способ решения у меня был тот же. Никто не говорил, что задача сложная. |
||||
|
|||||
Aisena |
|
|||
Новичок Профиль Группа: Участник Сообщений: 2 Регистрация: 8.3.2006 Репутация: нет Всего: нет |
Воть..задачка...на Паскале...
![]() Работа с текстовым файлом (форматированный и не форматированный ввод). Вывод на внешние устройства. Создать текстовый файл, содержащий строки информации смешанного типа (числовые и строковые; 5-6 строк). Надо считать информацию из текстового файла в массив записей, а затем вывести эту информацию в табличном виде по желанию пользователя на: экран, принтер, в новый текстовый файл, добавить в конец исходного файла, выход. Блок действия по выводу должен быть единственным (через процедуру). |
|||
|
||||
SoWa |
|
|||
![]() Харекришна ![]() ![]() ![]() ![]() Профиль Группа: Комодератор Сообщений: 2422 Регистрация: 18.10.2004 Репутация: нет Всего: 74 |
Aisena, И это задача?! Тут интересные математические задачи выкладываем!
-------------------- Всем добра ![]() |
|||
|
||||
Aisena |
|
|||
Новичок Профиль Группа: Участник Сообщений: 2 Регистрация: 8.3.2006 Репутация: нет Всего: нет |
SoWa...могбы и помочь..раз для тебя это даже не задача..
|
|||
|
||||
~FoX~ |
|
|||
![]() НЕ рыжий!!! ![]() ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 2819 Регистрация: 8.10.2003 Где: Зеленоград Репутация: 1 Всего: 68 |
Элиментарная задача на поиск кратчайшегоь пути в графе.... Тем по этому вопросу полно. |
|||
|
||||
![]() ![]() ![]() |
Правила форума "Delphi" | |
|
Запрещается! 1. Обсуждать и делится взломанными компонентами или программным обеспечением 2. Публиковать ссылки на варез 3. Оффтопить
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877. |
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |