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

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в 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
Viwwna



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
dimitriy7, Спасибо еще раз.
A1exSun, у тебя может есть и хороший материал  по "Поиск в графах". что бы объяснено внятно было , как и в ранее приведенной ссылке (но там очень мало ин-фы по обходу.)
 
У меня задача такая: 4.    Напишите и используйте в программе процедуру, реализую-щую метод, отличающийся от поиска в ширину только тем, что вновь достигнутая вершина помещается не в очередь, а в стек.
То что смогла, не доделав:

Код:
const n=9;
C:array[0..n,0..n] of 0..1={((...матрица смежности))}
visit:array[0..n] of boolean=(true,true,true,true,true,true,true,true,true);
var v:integer;
procedure DFS(v:integer);
var Stek:array[1..(n+1)] of 0..n;
t,Uk:integer;f:boolean;
begin
  write(v:3);
  Uk:=0;
  Uk:=Uk+1;
  stek[Uk]:=v;
  visit[v]:=false;
  while Uk<>0 do   begin
    v:=stek[Uk];
    t:=0;f:=false;
    repeat
      if(C[v,t]=1) and (visit[t]) then
        f:=true
      else
        t:=t+1;
    until f or (t>n);
    if f then begin
      write(t:3);
      Inc(Uk);
      stek[Uk]:=t;
      visit[t]:=false;
    end
    else
      Uk:=Uk-1;
  end;
end;
 
begin
  writeln('поиск в глубину');
  writeln('введите вершину начала поиска');
  readln(v);
  DFS(v);
end.
 


Всего записей: 62 | Зарегистр. 18-11-2011 | Отправлено: 16:18 02-07-2012
A1exSun



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

Цитата:
Поиск в графах

Не, такого я не учил. Вот повезло наверное
http://forum.pascalnet.ru/index.php?showtopic=4030 может здесь что-то полезное найдешь.
dimitriy7

Цитата:
А у A1exSun уже всё это сделано, да ещё и красиво

Давно то было... Я тогда еще не был ленивым

Всего записей: 1871 | Зарегистр. 25-11-2009 | Отправлено: 17:32 02-07-2012 | Исправлено: A1exSun, 17:35 02-07-2012
Viwwna



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

Цитата:
Давно то было... Я тогда еще не был ленивым  

Значит и у меня со временем все будет хуже  и хуже?-))) а я то думала, еще немного и все красиво писать стану... )))
A1exSun,Спасибо за ссылку, буду изучать...
 

Всего записей: 62 | Зарегистр. 18-11-2011 | Отправлено: 17:50 02-07-2012
dimitriy7



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

Цитата:
Не, такого я не учил. Вот повезло наверное  

Даже не представляешь, как повезло Не, в теории разобраться не трудно, но без компьютера просчитывать дооолго...
 

Всего записей: 2946 | Зарегистр. 09-10-2008 | Отправлено: 18:06 02-07-2012
A1exSun



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
dimitriy7
У меня графы кажется в этом семестре будут...
 
Добавлено:
Viwwna
Кто тебя знает
Я хуже не пишу, просто уже меньше времени уделяю всяким красивостям. И если не для себя, то делаю по минимуму.

Всего записей: 1871 | Зарегистр. 25-11-2009 | Отправлено: 20:08 02-07-2012
Viwwna



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

Цитата:
Напишите и используйте в программе процедуру, реализую-щую метод, отличающийся от поиска в ширину только тем, что вновь достигнутая вершина помещается не в очередь, а в стек.
 

 
Подробнее...
Хотела спросить, если я ввожу,что  начинать поиск глубины нужно от 3, то  глубина  3 1 2 4 5 6;
Граф, глубину которого я пыталась вычислить, я изобразила на последнем рисунке (6)
 
 
http://i40.fastpic.ru/big/2012/0702/d1/f67e828a057c7075bae2d33c801db0d1.jpg
http://i40.fastpic.ru/big/2012/0702/56/05180a598865e909e365b629ea466a56.jpg
http://i40.fastpic.ru/big/2012/0702/99/82b3d8f3b50d336ae6567c2194d58099.jpg
http://i40.fastpic.ru/big/2012/0702/50/d971f857f0aa7fd1b44ac79fc8985d50.jpg
http://i40.fastpic.ru/big/2012/0702/58/4bbbb43ddde9f96aef448dc2830ee358.jpg
http://i40.fastpic.ru/big/2012/0702/46/b325d2a05e20853addf1d75207bf8b46.jpg

Всего записей: 62 | Зарегистр. 18-11-2011 | Отправлено: 20:28 02-07-2012 | Исправлено: Viwwna, 21:13 02-07-2012
A1exSun



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Viwwna
Ссылка на imageshack не рабочая.

Всего записей: 1871 | Зарегистр. 25-11-2009 | Отправлено: 21:06 02-07-2012
Viwwna



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
A1exSun, а так?

Всего записей: 62 | Зарегистр. 18-11-2011 | Отправлено: 21:14 02-07-2012
A1exSun



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Viwwna
Так нормально, но я ничем не помогу
А зачем тебе летом Паскаль?

Всего записей: 1871 | Зарегистр. 25-11-2009 | Отправлено: 22:35 02-07-2012 | Исправлено: A1exSun, 22:35 02-07-2012
Viwwna



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
A1exSun, и зимой и летом как говорится)))...
Дистанционно учусь (заочно). Спасибо, ты и так очень помог мне)))

Всего записей: 62 | Зарегистр. 18-11-2011 | Отправлено: 22:41 02-07-2012
dimitriy7



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

Цитата:
начинать поиск глубины нужно от 3, то  глубина  3 1 2 4 5 6

Что-то не понятно... Как ищем и от какой вершины начинаем? (3 1 2 4 5 6) на таком графе не получится, его ж по-любому можно обойти только по кругу -- одно направление обхода и будет соответствовать обходу "в глубину"...
 
В теории поиск "в глубину" делается так:
Подробнее...
 
Вот в твоём примере, идём от 3-й вершины:

Всего записей: 2946 | Зарегистр. 09-10-2008 | Отправлено: 01:07 04-07-2012 | Исправлено: dimitriy7, 15:28 24-07-2012
dimitriy7



BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
И ещё: на предпоследнем скрине -- матрица смежности, что ли? Если да, то для неё как раз и будет (3,1,2,4,5,6) при обходе "в ширину" и (3,6,5,4,2,1) при обходе "в глубину". Только к рисунку эта матрица не имеет никакого отношения. Для графа с рисунка матрица будет такая:
0 0 0 1 0 1
0 0 0 1 1 0
0 0 0 0 1 1
1 1 0 0 0 0
0 1 1 0 0 0
1 0 1 0 0 0

Всего записей: 2946 | Зарегистр. 09-10-2008 | Отправлено: 15:15 04-07-2012 | Исправлено: dimitriy7, 15:28 24-07-2012
evgennegve

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ребят только начал изучать Программирование, а скоро сдача. Помогите решить парочку задач с небольшим объяснением. Если возможно конечно.
 
1. С клавиатуры вводятся длина одномерного массива и его элементы. Заменить каждое совершенное число на ближайшее большее число Фибоначчи.
 
2. Вводятся размер двумерного массива (квадратной матрицы) A(N,N) и его элементы. Подсчитать количество элементов, являющихся совершенными числами, которые находятся на главной диагонали.

Всего записей: 3 | Зарегистр. 24-07-2012 | Отправлено: 12:08 24-07-2012
dimitriy7



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

Цитата:
совершенное число  
Это что ещё за чудо?
 
 
Добавлено:
А, нашёл: это "натуральное число, равное сумме всех своих положительных делителей, отличных от самого числа"
Хм, в 32-битный целый тип из таких чисел влезают только:
6, 28, 496, 8128, 33550336.
Если задействовать 64-битные, то ещё 8589869056, 137438691328, 2305843008139952128.
И всё.
Вот этим и надо пользоваться -- не проверять перебором числа на "совершенность", а просто взять готовые значения, благо их мало...
 
Добавлено:

Цитата:
число Фибоначчи
-- вот с ними не совсем понятно, похоже придётся считать по-честному:
Допустим, нашли "совершенное число", пусть оно называется S, тогда ближайшее большее число Фибоначчи F можно искать либо так:

Код:
 
f1:=0;
f2:=1;
repeat
F:=f1+f2;
f1:=f2;
f2:=F;
until F>S;
 

ну или не совсем честно, вот так (на больших числах должно работать быстрее, но может врать из-за ошибок округления):

Код:
 
F:=S;
repeat
inc(F);
f1:=sqrt(5*F*F+4);
f2:=sqrt(5*F*F-4);
until (trunc(f1)=f1)or(trunc(f2)=f2);
 

или даже так (почестнее и поточнее, но сильно сомневаюсь что быстрее первого варианта):

Код:
 
n:=trunc(ln(1+S*sqrt(5))/ln(0.5+0.5*sqrt(5)));
c1:=0.5+0.5*sqrt(5);
c2:=0.5-0.5*sqrt(5);
f1:=1;
f2:=1;
for i:=1 to n-1 do
    begin
    f1:=f1*c1;
    f2:=f2*c2;
    end;
repeat
f1:=f1*c1;
f2:=f2*c2;
F:=trunc((f1-f2)/sqrt(5)+0.0001);
until F>S;
 

Всего записей: 2946 | Зарегистр. 09-10-2008 | Отправлено: 14:04 24-07-2012 | Исправлено: dimitriy7, 16:34 24-07-2012
evgennegve

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Брать числа это одно, нужно полностью задачу составить по условию. Формулу Ебоначи*) я понял. Но как это все обьеденить для компиляции?

Всего записей: 3 | Зарегистр. 24-07-2012 | Отправлено: 17:33 24-07-2012
akaGM

Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
evgennegve
а ты хоть одну программу, хоть "хелло ворлд", "объединял для компиляции"?

Всего записей: 24120 | Зарегистр. 06-12-2002 | Отправлено: 17:47 24-07-2012
evgennegve

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
а ты хоть одну программу, хоть "хелло ворлд", "объединял для компиляции"?
 
Конечно)) мне главное полное решение с небольшим обьяснением;)

Всего записей: 3 | Зарегистр. 24-07-2012 | Отправлено: 18:28 24-07-2012 | Исправлено: evgennegve, 18:30 24-07-2012
svchost



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравствуйте форумчане помогите решить список задач, я не успеваю, все кто помогут будут вознаграждены....
задачи на языке pascal.....
http://depositfiles.com/files/y1ycw2gds
 
 
1.1    Написать программу, выводящую все пятизначные числа, у которых сумма первых двух цифр равна сумме последних двух цифр.
1.2    Найти произведение номеров позиций максимального и минимального элементов в целочисленном массиве размера N. Значение N и массив вводятся пользователем.
1.3    В каждой строке заданной матрицы N*M заменить все положительные элементы нулями если количество отрицательных элементов в строке окажется больше, чем количество положительных элементов. Значения N, М вводит пользователь.
1.4    Напишите программу, определяющую, сколько раз в заданном предложении встречается указанное слово. Считать, что слова отделяются друг от друга хотя бы одним пробелом, в конце предложения — точка.
1.5    Дан массив записей, содержащий данные на учеников: фамилия, улица, дом, квартира. Составить программу, определяющую, сколько учеников живет на заданной улице.
 
2.1    Написать программу, которая выводит на экран все целые числа из диапазона [N, М], у которых произведение цифр кратно К. Значения К, N и М вводит пользователь.
2.2    Заменить все элементы вещественного массива размера N, расположенные до минимального элемента, значением максимального элемента. Значение N и массив вводятся пользователем.
2.3    В целочисленной матрице размера N*M найти строку с максимальной суммой элементов и уменьшить все ее элементы в 4 раза. Значения N, М и матрицу вводит пользователь.
2.4    Дана строка. Определить каких символов пунктуации (,.?!; меньше. Исходную строку вводит пользователь.
2.5    Дан список файлов: имя, размер. Вывести на экран четыре самых больших файла в порядке увеличения их размера. Список вводит пользователь.
 
3.1    Написать программу, определяющую количество простых четырехзначных чисел.
3.2    Найти максимальную сумму двух соседних элементов целочисленного массива размера N. Значение N и массив вводятся пользователем.
3.3    В вещественной матрице размера N,М поменять местами строки, которые содержат минимальный и максимальный элементы матрицы. Значения N, М и матрицу вводит пользователь.
3.4    Напишите программу, которая в заданном тексте удаляет все сочетания трех одинаковых символов, идущих подряд. Напечатайте полученный текст и число исключенных сочетаний.
3.5    Дан список товаров: название, цена. Пользователь вводит название товара и сумму. Определить количество товара (в целых единицах), которое можно купить на эту сумму. Список вводит пользователь.
 
 
4.1    Напишите программу, которая для заданных значений п их вычисляет выражение
 
 
 
4.2    Определить количество элементов вещественного массива размера N, имеющих четные порядковые номера и являющихся нечетными по значению.
4.3    В целочисленной матрице размера NxN вычислить сумму всех отрицательных элементов, расположенных ниже побочной диагонали. Значение N и матрицу вводит пользователь.
4.4    Дана строка. Вставить пробел перед каждым знаком препинания. Исходную строку вводит пользователь.
4.5    Дан список групп: название, количество студентов. Вывести на экран четыре наименьшие по численности группы в порядке убывания численности. Список вводит пользователь.
 
5.1    Написать программу, которая определяет сумму всех целых чисел из промежутка [М, N], которые кратны 3 и не кратны 5. Значения N и М вводит пользователь.
5.2    Найти сумму всех отрицательных элементов целочисленного массива размера N, расположенных на нечетных позициях. Значение N и массив вводятся пользователем.
5.3    В вещественной матрице размера N*N вычислить сумму минимума главной и максимума побочной диагоналей. Значение N и матрицу вводит пользователь.
5.4    Даны две строки. Сформировать третью строку, объединив последних N символов 1-ой строки и М первых символов 2-ой строки. Исходные строки, N и М вводит пользователь.
5.5    Дан список книг: название, автор. Пользователь вводит слово, вывести на экран список авторов, в названиях книг которых встречается это слово (авторы не должны повторяться). Список книг вводит пользователь.
 
&#8195;
 
6.1    Написать программу, которая вычисляет сумму всех четырехзначных чисел, у которых произведение цифр равно К. Значение К вводит пользователь.
6.2    Заменить все элементы вещественного массива размера N, значение которых больше среднего арифметического всего массива, значением К. Значения N, К и массив вводятся пользователем.
6.3    В целочисленной матрице размера NxN наибольший элемент матрицы и поменять его местами с симметричным относительно главной диагонали. Значение N и матрицу вводит пользователь.
6.4    Напишите программу, которая в заданном предложении все гласные буквы заменяет символами **. Напечатайте преобразованный текст.
6.5    Дан список фильмов: название, год выпуска. Вывести на экран все фильмы, выпущенные до года N, в обратном алфавитном порядке. Список и значение N вводит пользователь.
 
7.1    Напишите программу вычисления совершенных чисел, не превосходящих заданного числа N. Совершенным называется такое число, сумма делителей которого совпадает с самим числом (например, 6= 1+2+3).
7.2    Найти сумму минимума всех элементов, расположенных на четных позициях, и максимума всех элементов, расположенных на нечетных позициях, целочисленного массива размера N. Значение N и массив вводятся пользователем.
7.3    В целочисленной матрице размера N&#215;М вычислить сумму положительных элементов, с нечетным произведением индексов. Значения N, М и матрицу вводит пользователь.
7.4    Напишите программу, которая в заданном предложении определяет, сколько раз символ, введенный с клавиатуры, встречается в тексте.
7.5    Описать, используя структуру данных запись, телефонную книгу. Составить программу, выдающую список абонентов, имеющих телефонный номер, начинающийся на 531.
 
8.1    Вычислить число &#960; с точностью &#949;=10-4, используя следующее разложение:
 
 
 
 
8.2    Увеличить в два раза все отрицательные элементы вещественного массива размера N, которые расположены после максимума массива. Значение N и массив вводятся пользователем.  
8.3    В вещественной матрице размера NxM вычислить сумму элементов, расположенных левее столбца, содержащего максимум матрицы. Значения N, М и матрицу вводит пользователь.
8.4    Даны две строки. Вставить в первую строку вторую строку, перед каждым знаком препинания Исходные строки вводит пользователь.
8.5    Дан список машин: марка, номер (шестизначное число). Вывести на экран все машины, номер которых начинается с двух заданных цифр, в алфавитном порядке марок. Список машин и две первые цифры номера вводит пользователь.
 
9.1    Написать программу, которая вычисляет количество всех трехзначных чисел, в записи которых присутствует две одинаковые цифры.
9.2    Упорядочить элементы целочисленного массива размера N, расположенные на четных позициях, в порядке возрастания. Значение N и массив вводятся пользователем.
9.3    В вещественной матрице размера NxN найти среднее значение отрицательных элементов, расположенных выше побочной диагонали. Значение N и матрицу вводит пользователь.
9.4    Дана строка. Определить каких букв в строке больше: заглавных или прописных. Учесть, что в строке могут быть и цифры. Исходная строка вводится пользователем.
9.5    Дан список поездов: номер, маршрут (город-город). Вывести на экран все поезда, прибывающих в указанный пользователем город, в порядке убывания номеров. Список поездов вводит пользователь.
 
10.1    Напишите программу, которая вычисляет, сколько сомножителей надо взять в произведении  
                                                     чтобы равенство выполнялось с точностью 10-5.
 
 
10.2    Заменить максимальный и минимальный элементы вещественного массива размера N- значением их суммы. Значение N и массив вводятся пользователем.
10.3    Целочисленной матрице размера NxM поменять местами столбцы с номерами К1 и К2. Значения N, М, Kl, К2 и матрицу вводит пользователь.
10.4    Дана строка. Определить, сколько букв "У" в строке стоит на четных местах.
10.5    Дан список работников: ФИО, год устройства на работу. Вывести на экран работников со стажем менее 5 лет на указанный пользователем год. Список работников вводит пользователь.
 
 
&#8195;
 
11.1    Написать программу, вычисляющую сумму всех пятизначных чисел, у которых сумма крайних цифр равна К. Значение К вводит пользователь.
11.2    Заданы два массива A и В. Напишите программу формирования массива С, компоненты которого находятся по правилу: c[i]=max(a[i],b[i]).
11.3    В вещественной матрице размера NxM обнулить столбец, содержащий меньше всего отрицательных элементов. Если таких столбцов несколько, то обнулить первый из них. Значения N, М и матрицу вводит пользователь.
11.4    Дана строка. Удалить из строки все заданные символы С, если они стоят в строке перед или после знака препинания. Исходная строка и символ С вводятся пользователем.
11.5    Дан список студентов группы: ФИО, оценка. Вывести на экран пять худших студентов в алфавитном порядке. Список студентов вводит пользователь.
 
 
12.1    Дана последовательность yf?sin(Xj)-cos(xi)9 Xt = 0, 0.1, 0.2, ... Напишите программу подсчета количества элементов последовательности до первого встретившегося нуля.
12.2    Заменить все отрицательные элементы целочисленного массива размера N значением минимального положительного элемента. Значение N и массив вводятся пользователем.
12.3    В целочисленной матрице размера NxM найти сумму положительных элементов расположенных выше строки, содержащей минимум матрицы. Значения N, М и матрицу вводит пользователь.
12.4    Дана строка. Вставить перед и после каждого заданного символа С пробел. Исходная строка и символ С вводятся пользователем.
12.5    Дан список файлов: имя, размер. Вывести на экран файлы, размер которых не лежит в диапазоне [N, М]. Список и значения N, М вводит пользователь.
 
13.1    Написать программу, вычисляющую сумму всех положительных целых чисел до N, в записи которых присутствует не более двух цифр К. Значения N и К вводит пользователь.
13.2    Все положительные элементы целочисленного массива размера N, находящиеся между минимумом и максимумом массива, умножить на К. Значения N, К и массив вводятся пользователем.
13.3    В вещественной матрице размера NxM в каждом столбце поменять местами первый положительный и первый отрицательный элементы (если таковые имеются). Значения N, М и матрицу вводит пользователь.
13.4    Даны две строки. Удалить из первой строки все символы, которые встречаются во второй строке. Исходные строки вводит пользователь.
13.5    Дан список товаров: название, цена. Вывести на экран четыре самых дорогих товара в алфавитном порядке. Список товаров вводит пользователь.
 
14.1    Дана строка. Удалить из строки все символы, которые встречаются в ней только один раз.
14.2    Список рейсов содержит номера рейсов самолетов и дни недели, в которые выполняются данные рейсы (числа от 1 до 7). Напишите программу, которая находит и выводит на экран все рейсы, вылетающие в указанный день недели.
14.3    Удалить из введенного с клавиатуры числа все повторяющиеся нечетные цифры, сохранив порядок следования цифр и оставив цифру-дубликат только в самом старшем разряде.
14.4    В заданном предложении перед каждым словом поставить символ «?». Слова отделяются друг от друга одним или более пробелами. Напечатать исходный и преобразованный тексты, а также длину полученного предложения.
14.5    Дан список книг: название, автор. Вывести на экран авторов, у которого наименьшее количество книг. Список книг вводит пользователь.
 
 
15.1    Определить, сколько чисел, не превосходящих 1000, содержит только одну цифру семь и при этом делится на семь.
15.2    Поменять местами максимальный отрицательный и минимальный положительный элементы целочисленного массива размера N. Значение N и массив вводятся пользователем.
15.3    В вещественной матрице размера NxM обнулить столбец, сумма элементов которого минимальна. Значения N, М и матрицу вводит пользователь.
15.4    Дана строка, содержащая только символы ‘А’, ‘В’ и ‘С’. Определить, каких символов меньше, и продублировать каждый из них.
15.5    В массиве записей хранятся данные об п прямоугольниках: длина, ширина сторон. Указать номер прямоугольника, имеющего наибольшую площадь.
 
16.1    Найти четырехзначное число, являющееся квадратом, у которого две первые и две последние цифры одинаковы. Квадрат - это число, квадратный корень из которого является целым числом.
16.2    Заданы целочисленный массив X и вещественный массив Y. Напишите программу, которая определяет, являются ли элементы массива X, значениями элементов Yb округленными до ближайшего целого.
16.3    В целочисленной матрице размера NxM найти сумму всех отрицательных элементов, сумма индексов которых не менее К. Значения N, М, К и матрицу вводит пользователь.
16.4    Дана строка. Перед символами, которые встречаются в ней только один раз, вставить **.
16.5    Дан список, содержащий фамилии студентов и их возраст. Напечатать фамилии студентов, ^ имеющих наименьший возраст.
&#8195;
 
17.1    Написать программу, печатающую те трехзначные числа, в записи которых есть цифры а и Ь. Значения а и Ъ ввести с клавиатуры.
17.2    Задан целочисленный массив А. Напишите программу, которая выводит на экран только те его элементы, которые отклоняются от среднего арифметического элементов массива не более чем на заданную величину Т.
17.3    В вещественной матрице размера NxN вычислить сумму отрицательных элементов, расположенных выше главной диагонали. Значение N и матрицу вводит пользователь.
17.4    Напишите программу, которая определяет, сколько раз в заданном предложении встречаются слова, начинающиеся сочетанием двух первых букв предложения.
17.5    Дан список поездов: номер, маршрут (город-город). Вывести на экран все поезда, отправляющиеся из указанного пользователем города, в порядке возрастания номеров. Список поездов вводит пользователь.
 
18.1    Определить, делится ли введенное число на сумму своих цифр.  
18.2    Все элементы вещественного массива размера N, расположенные на четных позициях уменьшить на значение среднего арифметического массива. Значение N и массив вводятся пользователем.
18.3    Напишите программу, которая по заданной матрице А размерностью nxm формирует вектор z размерностью л, состоящий из максимальных элементов строк матрицы Л.
18.4    Дана строка. Подсчитать количество латинских букв, расположенных между первой открывающей и последней закрывающей фигурными скобками.
18.5    Дан список работников: ФИО, год устройства на работу. Вывести на экран в алфавитном порядке работников, принятых на работу в период с N до М. Список работников, N и М вводит пользователь.
 
19.1    Написать программу, вычисляющую сумму всех четырехзначных чисел, у которых произведение двух средних цифр равно К. Значение К вводит пользователь.
19.2    Задан массив Р. Напишите программу вычисления отношения произведения положительных элементов массива к сумме элементов, больших среднего арифметического всех значений.
19.3    В вещественной матрице размера NxM последний элемент каждой строки заменить суммой положительных элементов этой строки. Значения N, М и матрицу вводит пользователь.
19.4    Дан текст. Подсчитать количество букв «а», находящихся за последним пробелом в данном тексте.
19.5    Массив записей «Школа» содержит данные: Фамилия ученика; Класс; Предмет; Оценка по предмету за год. Вычислить средний балл по заданному предмету в заданном классе.
 
20.1    Найти количество четырехзначных чисел, для которых перестановка последней цифры в начало увеличивает его в п раз. Значение п ввести с клавиатуры.
20.2    Уменьшить в два раза все элементы вещественного массива размера N, расположенные после минимального положительного элемента массива. Значение N и массив вводятся пользователем.
20.3    Напишите программу, которая в заданной матрице А каждый последний элемент столбца заменяет максимальным элементом этого столбца.
20.4    Дана строка. Заключить каждый заданный символ С в одинарные кавычки. Исходная строка и символ С вводятся пользователем.
20.5    Дан список товаров: название, цена. Вывести на экран три самых дешевых товара в обратном алфавитном порядке. Список товаров вводит пользователь.
 
21.1    Найти среднее арифметическое трехзначных чисел, которые делятся на каждую из цифр в их записи.
21.2    В массиве целых чисел из п элементов поменять местами максимальный среди положительных и минимальный среди отрицательных элементов.
21.3    Напишите программу, которая в заданной матрице NxM заменяет все положительные элементы нулями, если количество отрицательных элементов окажется больше, чем количество положительных элементов. Значения N, М вводит пользователь.
21.4    Дана строка. Удалить из строки каждый К-ый символ С. Исходная строка, символ С и значение К вводятся пользователем.
21.5    Дан список книг: название, автор. Вывести на экран автора, у которого больше всего книг. Если таких авторов несколько, то вывести последнего по алфавиту. Список книг вводит пользователь.
 
&#8195;
22.1    Написать программу, определяющую количество целых чисел из диапазона [N, М], сумма цифр которых больше К. Значения N, М и К вводится пользователем.
22.2    Дан массив из п вещественных чисел. Поменять в массиве местами наибольший по модулю элемент и элемент с заданным номером к.
22.3    Напишите программу вычисления отношения числа положительных элементов к числу отрицательных элементов заданной матрицы NXM. Значения N и М вводятся пользователем.
22.4    Дана строка-предложение. Заключить все слова в строке в двойные кавычки. Исходную строку вводит пользователь. Слова отделяются друг от друга хотя бы одним пробелом.
22.5    Дан список фильмов: название, год выпуска. Вывести на экран в алфавитном порядке все фильмы, выпущенные после года, указанного пользователем. Список фильмов вводит пользователем.
 
23.1    Дана строка символов. Определить количество букв 'о' между самой левой открывающейся скобкой и самой правой закрывающейся скобкой.
23.2    Дан список машин: марка, номер (шестизначное число). Вывести на экран в обратном алфавитном порядке все машины, в номерах которых присутствует цифра 7. Список машин вводит пользователь.
23.3    Написать программу, вычисляющую сумму всех отрицательных целых чисел больших N, в записи которых присутствует не менее одной цифры К. Значения N и К вводит пользователь.
23.4    Упорядочить элементы целочисленного массива размера N, расположенные после максимума, по возрастанию. Значения N и массив вводятся пользователем.
23.5    Даны две строки. Создать третью строку, объединив последние N символов первой строки и последние М символов второй строки. Исходные строки, N и М вводит пользователь.
23.6    Массив записей содержит шестизначные номера телефонов и информация о сумме задолженности абонента данного телефона. Записи об одном абоненте могут повторяться. Определить суммарную задолженность абонента по введенному номеру телефона.
23.7    Написать программу, вычисляющую сумму всех целых трехзначных чисел оканчивающихся на цифру К или М. Значения М и К вводится пользователем.
23.8    Дано предложение. Необходимо определить в нем позицию последнего появления заданного слова.
23.9    Дан список групп, название, количество студентов. Вывести на экран в алфавитном порядке три наиболее многочисленные группы. Список групп вводит пользователь.
23.10    Поменять местами первый положительный и последний отрицательный элементы целочисленного массива размера N. Значение N и массив вводятся пользователем.
23.11    В целочисленной матрице размера NXM поменять местами строки, содержащие максимум и минимум матрицы. Значения N, М и матрицу вводит пользователь.
23.12    Напишите программу, определяющую, сколько букв «о» стоит в заданном слове на четных местах.
23.13    В массиве записей хранится информация о студентах: фамилия, оценка по математике в 10- бальной системе. Найти среднюю оценку по математике и вывести фамилии студентов, оценка которых превышает среднюю.
23.14    Дана строка символов. Удалить из строки все цифры. Исходная строка вводится пользователем.
23.15    Дан список машин: марка, номер (шестизначное число). Вывести на экран в порядке возрастания номеров все машины заданной марки. Список машин вводит пользователь.
23.16    Написать программу, определяющую сумму всех возможных трехзначных чисел, содержащих только нечетные цифры.
23.17    В целочисленном массиве размера N переписать в обратном порядке элементы, расположенные между первым и последним положительными элементами массива. Значение N и массив вводятся пользователем.
23.18    Дан список поездов: номер, маршрут (город-город). Вывести на экран все поезда с нечетными номерами, отсортировав их в алфавитном порядке по станции отправления. Список поездов вводит пользователь.
23.19    Найти максимальную десятичную цифру введенного натурального числа. вещественном массиве размера N найти элемент, наиболее близкий к среднему арифметическому массива, и уменьшить его в К раз. Значения N, К и массив вводятся пользователем.
23.20    Напишите программу, которая в заданной квадратной матрице заменяет элементы, расположенные ниже обеих диагоналей, нулями. Напечатайте исходную и полученную матрицы.
23.21    Дана строка. Продублировать каждое третье вхождение заданного символа С в строку. Исходную строку и символ С вводит пользователь.
23.22    Дан список работников: ФИО, год устройства на работу. Вывести на экран работников с заданным именем, отсортировав их в порядке возрастания года устройства на работу. Список работников и имя вводит пользователь.

Всего записей: 8 | Зарегистр. 31-07-2006 | Отправлено: 19:43 24-07-2012 | Исправлено: svchost, 10:32 25-07-2012
dimitriy7



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

Цитата:
Конечно)) мне главное полное решение  
Ну коли так, разбирайся:
ТР7 64-битных целых не понимает, поэтому пришлось делать костыли. Писал под FPC, там всё нормально; а при компиляции ТР7 могут быть ошибки округления в младшем разряде (не проверял, ибо не на чем)
 
 
svchost
А нельзя было положить на бесплатный файлообменник, вроде rghost.ru ? С депозита не все забрать могут.
Тем более там просто текст. Вот этот:

Всего записей: 2946 | Зарегистр. 09-10-2008 | Отправлено: 20:11 24-07-2012 | Исправлено: dimitriy7, 20:36 24-07-2012
ItsJustMe

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
svchost
Тебе куда столько? На рекорд идешь? Или хочешь всех всех сокурсниц завалить, решив и их задачи тоже? А потянешь?
evgennegve
А ты свои проги для компиляции с чем именно обЬединял? Или с кем?

Всего записей: 2028 | Зарегистр. 02-09-2005 | Отправлено: 18:02 26-07-2012 | Исправлено: ItsJustMe, 18:03 26-07-2012
Открыть новую тему     Написать ответ в эту тему

Страницы: 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