Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Задачи на Pascal/Object Pascal/Free Pascal (Delphi/Lazarus)

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434

Открыть новую тему     Написать ответ в эту тему

buffy



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Задачи и Программирование на языке Pascal/Object Pascal (Turbo, Delphi и Free Pascal)

 
Перед тем, как задать вопрос: загрузите "версию для печати" (ссылка справа вверху, над номерами страниц) и попробуйте поискать средствами браузера (ctrl+F). Большинство типовых задач уже решались, причем неоднократно!  
ВНИМАНИЕ!

Текст всех программ обязательно заключайте в теги [code][/code].
Большие тексты (более 15 строк) обязательно прячутся в [more]ВАШ ТЕКСТ и/или Ваш КОД[/more]


Альтернативный компилятор
Free Pascal Compiler (FPC) -- мощный компилятор Паскаля
 - девиз: пишешь единожды, компилируешь где хошь...
 - на 99% совместим по коду с ТР и Object Pascal (Delphi)
 - межплатформенный
 - свободный  
Lazarus -- среда разработки для FPC (аналог среды Delphi7)
 
Файлы
Русская справка
Turbo Pascal 7.1 добавлены некоторые модули из Borland Pascal, русская справка.
Borland Pascal 7.0 Полный (13-дискетный, вкл. исходники), никем не модифицированный  дистрибутив.
 
Учебники:
В.В.Фаронов - Turbo Pascal. Начальный курс
В.В.Фаронов - Turbo Pascal. Наиболее полное руководство
Д.М.Ушаков, Т.А.Юркова - Паскаль для школьников
С.М.Окулов - Основы программирования
С.М.Окулов - 2 главы из школьного учебника по информатике
В.М.Котов - Олимпиадные задачи по информатике с решениями
Никитин - набор исходников для типовых задач
Мансуров - Основы программирования в среде Lazarus - основы паскаля, много примеров, блоксхем, алгоритмов. 2010. 772 с. примеры к книге
Деревенец - Песни о Паскале - паскаль для школьников и студентов-первокурсников
Епанешниковы - Программирование в среде Turbo Pascal
Паскаль для школьников. Подготовка к ЕГЭ (2011)
Фадеев - Паскаль для школы
Потопахин - Turbo Pascal Решение сложных задач (2006)
Полезные линки
библиотека алгоритмов (есть и на Паскале)
библиотека алгоритмов (ещё одна)
библиотека алгоритмов (и ещё одна)
Разбор олимпиадных задач по информатике от Михаила Густокашина
 
Проблема с набором русского текста в консоли/Turbo Pascal
решение проблемы с набором русского текста в консоли Windows  скриптом (командным файлом)
 
Построение блок-схем
FCEditor -- Программа для автоматического построения блок-схем программ из исходного текста на языке Pascal (Delphi)
 - для правильной работы исходный текст должен начинаться со слова program или unit

Всего записей: 4 | Зарегистр. 24-10-2002 | Отправлено: 12:46 11-01-2003 | Исправлено: akaGM, 23:06 21-11-2019
EXSUL

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vpcsk
твоя первая задача скорей всего уже раньше решалась, ну да ладно, смотри
Подробнее...

Всего записей: 60 | Зарегистр. 04-10-2008 | Отправлено: 10:27 06-11-2008
vpcsk

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
a008888, степень.

Всего записей: 10 | Зарегистр. 05-11-2008 | Отправлено: 21:05 06-11-2008
a008888



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vpcsk

Цитата:
со второй задачей.

Исходничек.
Я, естественно, сделал по-своему. Зато научитесь, как обыгрывается подпрограмма-функция (function).

Всего записей: 1112 | Зарегистр. 09-11-2007 | Отправлено: 23:44 06-11-2008 | Исправлено: a008888, 23:59 06-11-2008
LivingOnTheEdge

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Кто будет так добр, что завтро с 11 до 16, мне выдодут задачи по паскалю и поможет мне их решить... я просто в паскале почти не шарю.. а из нашей школы( в основном одни гении драк) никто больше пойти не сможет ибо точно завалит... а очень хочется честь школы отстаять... завтро часов в 11+ напишу задачи... кто сможет, надеюсь поможет

Всего записей: 12 | Зарегистр. 07-11-2008 | Отправлено: 13:56 07-11-2008
a008888



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
LivingOnTheEdge
Это ж городская олимпиада. Стоит занять первое место, и придется ехать на областную, потом Всероссийская, затем Всемирная. Оно Вам надо?

----------
«...своей судьбою люди правят,
Не звезды, милый Брут ...».
Шекспир, «Юлий Цезарь», Акт I

Всего записей: 1112 | Зарегистр. 09-11-2007 | Отправлено: 14:32 07-11-2008
akaGM

Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
a008888
ему может и надо, а нам?
в общем в качестве праздничка, завтро...

Всего записей: 24056 | Зарегистр. 06-12-2002 | Отправлено: 14:44 07-11-2008
LivingOnTheEdge

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Не совсем верно... у нас проводиться районный конкурс по финансированию школ оборудованием в виде компьютеров...  
первые три места финансируются...
Насколько я знаю будет 4 задачи. уровня одиннадцатого класса...
я был бы вам премного благодарен... просто незнаю паскаль...а школа возложила надежды...

Всего записей: 12 | Зарегистр. 07-11-2008 | Отправлено: 15:59 07-11-2008 | Исправлено: LivingOnTheEdge, 16:00 07-11-2008
EXSUL

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
LivingOnTheEdge
ну если 11 класс, и если я не забуду, то попробую помочь (хотя я тоже не гуру паскаля )

Всего записей: 60 | Зарегистр. 04-10-2008 | Отправлено: 16:40 07-11-2008
akaGM

Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
LivingOnTheEdge

Цитата:
 первые три места финансируются...

 
то есть, мы будем типа спонсоров/инвесторов? ладно, поможем...
только тогда за тобой банкет...

Всего записей: 24056 | Зарегистр. 06-12-2002 | Отправлено: 16:46 07-11-2008
LivingOnTheEdge

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ну с банкетом я незнаю..))
деньги то не мне в руки выдадут)))
И к тому же там по-моему 2 тура, победителю денежный приз, вот тогда само собой с меня стол))
я в олимпиаде участвовал уже... 45 место из 200 занял... хотя ниче не шарю... но что-то мне кажется, что первые пользовались помошью..))
Если поможете, будет здоровско)

Всего записей: 12 | Зарегистр. 07-11-2008 | Отправлено: 16:51 07-11-2008
ChiPnGo



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
На олимпиадах проверяют не знание паскаля, а умение создавать алгоритмы.

Всего записей: 149 | Зарегистр. 25-10-2008 | Отправлено: 18:58 07-11-2008
LivingOnTheEdge

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Это не олимпиада... соревнования на спонсирование школ....

Всего записей: 12 | Зарегистр. 07-11-2008 | Отправлено: 20:22 07-11-2008
LivingOnTheEdge

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ну вот собственно и они... правда я ошибся их 9...
Ну кто чем сможет..(
Буду кидать по 2 задачи... ибо как то криво вылазят)
1-ую решил..)
2-ую решили..
3-ую решили...
 
 
 
4.В одной из палаток "Страны чудес Гудвина" артист, выдающий себя за экстрасенса, показывает следующее представление. "Экстрасенс" просит одного из зрителей задумать два целых числа A и B в диапазоне от 1 до 100. Затем зритель должен взять несколько чистых карточек и записать на первой карточке число A, на второй – число A+B, на третьей – число A+2·B, на i-ой – число A+(i-1)·B и т.д. После этого карточки перемешиваются, одна из карточек прячется, а остальные показываются "экстрасенсу". Увидев числа на карточках, артист, имеющий хорошую память, легко угадывает число на спрятанной карточке. В редких случаях для угадывания "экстрасенсу" требуется более одной попытки.
 
Напишите программу, которая выполняет подобный трюк и определяет число на спрятанной карточке.
 
В первой строке ввода содержится одно целое число N (3(меньше либо равен)N(больше либо равно)50) – количество заполненных карточек. Во второй строке ввода содержится (N-1) целых положительных чисел, разделенных пробелами – числа на показанных карточках.
 
В первой строке вывести одно или более чисел в порядке возрастания, разделяя их пробелами – все варианты для числа на спрятанной карточке.
 
5. В разных частях парка "Страна чудес Гудвина" стоят клоуны и раздают детям воздушные шары. У каждого клона шары своего цвета. Клоун дает ребенку только один шар и только один раз, но можно взять несколько шариков разного цвета у нескольких клоунов. Собирание шариков является своеобразным аттракционом, так как парк настолько большой, что не каждый ребенок может найти всех клоунов, чтобы получить воздушные шары всех возможных цветов.
 
Известно, сколько пришло в парк детей и сколько шариков раздал каждый клоун. Нужно определить количество детей, собравших шарики всех цветов.
 
В первой строке ввода содержатся два целых числа – количество детей N (1(меньше либо равно)N(больше либо равно)100), пришедших в парк, и количество клоунов K (1(меньше либо равно)K(больше либо равно)100). Во второй строке K целых чисел в диапазоне от 0 до N – количество шариков, розданных клоунами.
 
Вывести два целых числа, разделенных пробелом – минимальное и максимальное возможное количество детей, собравших шарики всех цветов.  
 
6.Для шахматистов в "Стране чудес Гудвина" есть следующее развлечение. На доске NxM расставляется несколько шахматных фигур одного цвета (пешки не используются). Игроку для получения приза необходимо убрать минимальное число фигур с доски так, чтобы оставшиеся фигуры не били друг друга.
 
Первая строка ввода содержит два числа N и M (1(меньше либо равно)N, M(меньше либо равно)10) – размеры доски. Далее следует N строк, содержащих по M символов – расположение фигур на доске. Символ '.' означает пустое поле, символ 'K' – поле, на котором находится король, 'Q' – королева, 'R' – ладья, 'N' – конь, 'B' – слон. Суммарное количество фигур на доске не превышает 20.
 
Вывести одно целое число – минимальное число фигур, убираемых с доски.
 
 
 
PS кто поможет буду очень благодарен...
Заранее прошу отписаться, решает кто-нибудь или нет...

Всего записей: 12 | Зарегистр. 07-11-2008 | Отправлено: 09:04 08-11-2008 | Исправлено: LivingOnTheEdge, 12:39 08-11-2008
a008888



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
LivingOnTheEdge
Я 3-ю беру на себя.
 
Добавлено:
Листинг третьей задачи

Всего записей: 1112 | Зарегистр. 09-11-2007 | Отправлено: 10:15 08-11-2008
LivingOnTheEdge

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Спасибо большое))
Кто решил вторую, говорят она легкая.. я лично незнаю.. как ее решать...
 
Добавлено:
Соревнование до 2-х часов.. не хотелось бы торопить, но все же...

Всего записей: 12 | Зарегистр. 07-11-2008 | Отправлено: 10:50 08-11-2008
a008888



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
LivingOnTheEdge

Цитата:
она легкая

Не сильно. Нельзя ведь дважды считать одинаковые буквы.
Листинг второй задачи

Всего записей: 1112 | Зарегистр. 09-11-2007 | Отправлено: 11:19 08-11-2008 | Исправлено: a008888, 14:09 08-11-2008
EXSUL

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
a008888, LivingOnTheEdge
вторую можно сделать проще
Подробнее...

Всего записей: 60 | Зарегистр. 04-10-2008 | Отправлено: 11:22 08-11-2008
LivingOnTheEdge

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
EXSUL
надо не сами буквы.. а их количество..)

Всего записей: 12 | Зарегистр. 07-11-2008 | Отправлено: 11:29 08-11-2008
EXSUL

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
LivingOnTheEdge
упс, не выспался тада так
Подробнее...

Всего записей: 60 | Зарегистр. 04-10-2008 | Отправлено: 11:34 08-11-2008 | Исправлено: EXSUL, 11:36 08-11-2008
LivingOnTheEdge

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
А можно ли сделать невосприичмивым к регистру?

Всего записей: 12 | Зарегистр. 07-11-2008 | Отправлено: 11:40 08-11-2008 | Исправлено: LivingOnTheEdge, 11:46 08-11-2008
Открыть новую тему     Написать ответ в эту тему

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Задачи на Pascal/Object Pascal/Free Pascal (Delphi/Lazarus)


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru