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

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

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ребята, помогите пожалуйста закончить эту задачу зава экзамен.....мне нужно упорядочить строки матрицы по возрастанию наибольших  элементов каждой строки
 
вот то, что я написала
 
 
program home_vecsh_matrix;
 uses crt;
 const
 n=3;
 m=4;
  var
   a:array[1..n,1..m] of real;
   c:array[1..n] of real;
  i,j,k:integer;
  b,min:real;
  begin
  clrscr;
  writeln('iznachalnaya matrica');
  randomize;
  for i:=1 to n do
  for j:=1 to m do
  a[i,j]:=-10.46+random(30);
  for i:=1 to n do
   begin
  for j:=1 to m do
  write(a[i,j]:9:2);
  writeln;
  end;
   for i:=1 to n do
   begin
   c[i]:=a[i,1];
   for j:=1 to m do
   if c[i]<a[i,j] then
   c[i]:=a[i,j];
   end;
     writeln('max elementy');
  for i:=1 to n do
   write(c[i]:9:2);
  writeln;
  for i:=1 to n-1 do
  begin
  min:=c[i]; k:=i;
  for j:=i to n do
  if min>c[j] then
  begin
  min:=c[j]; k:=j;
  end;
  c[k]:=c[i];
  c[i]:=min;
 
  for d:=   в этом месте надо переставлять строки, у меня не получается
 
  end;
   writeln('max elementy');
  for i:=1 to n do
   write(c[i]:9:2);
  writeln;
 
  end.
 
зараннее спасибо
Всего записей: 4 | Зарегистр. 18-06-2007 | Отправлено: 11:49 18-06-2007 | Исправлено: kasabian, 11:51 18-06-2007
SERGE_BLIZNUK

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
kasabian
1) как срочно надо? я после обеда постараюсь выделить 10 минуток
2) пожалуйста, код длинее 5-10 строк прячьте за тэгами  
[MORE][CODE]ТУТ ВАША ПРОГРАММА[/CODE][/MORE]
Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 11:18 19-06-2007
kasabian

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
спасибо, надо сегодня....еще раз спасибо (^_^)
Всего записей: 4 | Зарегистр. 18-06-2007 | Отправлено: 13:14 19-06-2007
SERGE_BLIZNUK

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
kasabian
извини, что так поздно - но на работе не получилось - пришлось дома подключаться...
целиком программа
Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 21:32 19-06-2007
kasabian

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
огромное тебе преогромное спасибо!!!!!!!! она работает! ура!!
Всего записей: 4 | Зарегистр. 18-06-2007 | Отправлено: 04:15 20-06-2007 | Исправлено: kasabian, 07:28 22-06-2007
SERGE_BLIZNUK

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
kasabian
не за что.
Кстати. не знаю, сами ли Вы писали код - но код очень грамотный - переделывать ничего не пришлось - просто пару строк дописал в указанном Вами же месте....
Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 09:07 20-06-2007
Furian

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите плз решить 2 задачи, а то у мкеня через 3 дня экзамен и мне надо их срочно сдать, а я плохо разбираюсь в динамических структурах.
 
Задача1
Пользователь вводит имя файла.Составить частотный словарь слов текста в этом файле.
Вывести результаты, отсортированные по алфавиту(имя файла в которыйвыводится пользователь тоже вводит сам), и вывести результаты, отсортированные по частоте встречаемости в другой файл(имя так же вводит пользователь), и если частота совпадает, то упорядочить по алфаыиту.
 
Звдача2
Работая с разряженными матрицами реализовать метод Гаусса решений систем линейных уравнений.  Пользователь вводит имена 2 файлов, в 1 - матрица, в 2-правая часть.Формат след-ий:
1 файл
M N
i1 j1 A(i1,j1)
.........
ik jk A(ik,jk)
(остальные щитать равными 0)
2 файл
M
b1
b2
....
b2
(правая часть системы, записываютсчя все, даже равные 0)
Решение выводится в 3 файл
M
x1
...
xm
 
Задачи нужно решить с помощью динамических списков
Помогите кому не сложно и у кого есть время, пожалуйста
Заранее спасибо
Всего записей: 1 | Зарегистр. 20-06-2007 | Отправлено: 10:50 20-06-2007
Sanchoys

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Люди помогите,кто может...Задача: Дано n вещественных чисел.Определить сколько из них больше своих соседей,то есть предыдущего и последующего чисел. P.S.С помощью массивов не решать.
Всего записей: 3 | Зарегистр. 01-06-2007 | Отправлено: 06:16 21-06-2007
SERGE_BLIZNUK

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Sanchoys
Цитата:
Задача: Дано n вещественных чисел.Определить сколько из них больше своих соседей,то есть предыдущего и последующего чисел.  

а задачка то не очень простая оказалась... я тут немножко умом подраскинул и не смог с ходу набросать алогоритм... ;-(((
вот, например, в случае чисел 1 2 3 какой ответ (сколько чисел больше своих соседей)?
Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 15:20 21-06-2007
Gavk



Junior Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Sanchoys,
SERGE_BLIZNUK
 
Вводим 3 переменные, ответственные за числа (предыдущее, текущее, следующее, соотв. a, b, c), s - ответсвенную за результат и переменную для определения хватит или нет.
вводим a, b
 
спрашиваем, хватит или нет
если хватит, то при a<>b увеличиваем s, выходим
 
начало цикла
вводим с, если b>a и b>c то увеличиваем s
a=b - сохраняем текущее число в предыдущем
b=с - сохраняем текущее число на следующий шаг
Спрашиваем пользователя, не надоело ли ему, бедному.
Если надоело, то проверяем b>a (если больше, увеличиваем s), выходим
Если не надоело, топаем в начало цикла
Вроде ничего сложного
 
SERGE_BLIZNUK
третий вариант, вроде рабочий. За подсказку проверочного результата спасибо (а то так бы и висел первый вариант, нерабочий)
Всего записей: 114 | Зарегистр. 08-05-2006 | Отправлено: 15:39 21-06-2007 | Исправлено: Gavk, 15:54 21-06-2007
SERGE_BLIZNUK

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Sanchoys
Gavk
алгоритм я как раз подобный и написал. (и программку тоже). Для окончания ввода я использую ввод 0. Хотя можно и спросить сначала у пользователя, сколько чисел в последовательности.
мне не ясно поведение с граничными числами...
ответьте, сколько "больших"  чисел для последовательностей:
1 2 3 ->  ?
1 2 -> ?
4 2 4 -> ?
 
Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 17:02 21-06-2007
Gavk



Junior Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
SERGE_BLIZNUK
 
1 (1<2; 1<2<3;3>2)
1 (2>1)
2(4>2;4>2<4;4<2)
Всего записей: 114 | Зарегистр. 08-05-2006 | Отправлено: 17:43 21-06-2007
SERGE_BLIZNUK

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

Цитата:
Задача: Дано n вещественных чисел.Определить сколько из них больше своих соседей,то есть предыдущего и последующего чисел.

Решение
вроде всё работает. Проверку,отладку и разбор алгоритма оставляю Вам в качестве домашнего задания ;-))
Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 00:19 22-06-2007
kasabian

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
SERGE_BLIZNUK
да там ничего трудного нет обычная сортировка перестановками....
можно попросить помощи еще по одной задаче??, категорически не хватает времени на решение, а еще экзамен по матану на носу...
вот она: дано n точек, заданные своими координатами. Найти пару точек, расстояние между которыми наибольшее. использовать процедуру или функцию  
 СПАСИБО
Всего записей: 4 | Зарегистр. 18-06-2007 | Отправлено: 06:20 22-06-2007
SERGE_BLIZNUK

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

Цитата:
дано n точек, заданные своими координатами. Найти пару точек, расстояние между которыми наибольшее. использовать процедуру или функцию

Подробнее...
Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 10:13 22-06-2007
MetalGod

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Решите пожалуйста задачи:
1)Вывести последовательность длиной n, в подпрограмме определить наиболее часто повторяющийся элемент(если он не один, то вывести на экран последний из них)
 
2)Слить в один массив два массива одинаковой длины,чередующие элементы этих массивов.
Всего записей: 1 | Зарегистр. 25-06-2007 | Отправлено: 08:04 25-06-2007
Sanchoys

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Спасибочки!Сама бы врядли решила.
 
Добавлено:
Вот несколько задачек.Решать не прошу,но каждый совет по их решению ценю на вес золота.
1)Дны две точки А и В,заданные их координатами.Найти точки,равноудаленные от А и В и лежащие на оси Ох.
2)Дано натуральное число n.Вычислить: S=1*2+2*3*4+...+n(n+1)*2n.
 
3)Заполнить таким образом: 1 1 1 1 1 1
                                           * 2 2 2 2 *
                                           * * 3 3 * *
                                           * * * * * *
                                           * * * * * *
                                           * * * * * * .
 
 
 
 
 
 
 
 
 
 
Всего записей: 3 | Зарегистр. 01-06-2007 | Отправлено: 09:00 25-06-2007
LukaviyDD

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Надеюсь на вашу помощь, учусь на заочном и только недавно вернулся из командировки, а нужно сдавать задачи по "Информатики" в которой я совершенно не чего не понимаю.  
Нужно к завтру-послезавтру.
1.
Даны действительные числа а1, а2, а3, … , аn. Необходимо среди этих чисел все отрицательные увеличить на 0.25, а все не отрицательные заменить на 0.2. Затем получить удвоенную сумму всех отрицательных чисел.
 
2.
Составить программу решения задачи в Турбо Паскале. В программе предусмотреть подсчет и вывод на печать числа итераций, за которое удаётся найти значение корня с заданной точностью, и сравнить его с приведёнными в таблице.
 
0.25x^{в степени значит}3+x-1.2502=0
 
Отрезок содержащий корень: [0;2]
Метод численного решения: Ньютона
Приблизительное значение корня: 1.0001
 
Сделать нужно на паскале, я понимаю что это эллементарно, но для меня программирование темный лес. Если еще будут блок-схему буду благодарен вдвойне.
Всего записей: 1 | Зарегистр. 25-06-2007 | Отправлено: 12:28 25-06-2007
SERGE_BLIZNUK

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Господа Студенты
Выкладываю ссылку на книжку  
Окулов.Программирование в алгоритмах  
Искусство программирования представлено в виде учебного курса, раскрывающего секреты наиболее популярных алгоритмов. Освещены такие вопросы, как комбинаторные алгоритмы, перебор, алгоритмы на графах, алгоритмы вычислительной геометрии. Приводятся избранные олимпиадные задачи по программированию с указаниями к решению.
PDF 3 mb ссылка
 
 
Sanchoys

Цитата:
1)Дны две точки А и В,заданные их координатами.Найти точки,равноудаленные от А и В и лежащие на оси Ох.  

красивая задачка!!! я нашел такое решение - только не спрашивайте, как это написать на Паскаль...
соединяем две точки (получаем уравнение прямой), делим отрезок пополам, точка ровно посередине Xc,Yс (где Xc = Xa-Xb, Yc= Yx-Yb) от этой  серединной точки проводим Перпендикуляр и находим его пересечение с осью X (уравнение прямой A*X+B*Y+C=0, где   A=1, B=0, С=0 - это и есть ось X).
посмотрите в указанной выше книжке - там есть конретные алгоритмы и подпрограммы, которые Вам помогут реализовать указаннный алгоритм.
 
 

Цитата:
2)Дано натуральное число n.Вычислить: S=1*2+2*3*4+...+n(n+1)*2n.  

ну и что тут - обычный цикл, от 1 до n
s:=0;
for i:=1 to n do
  s:= s + i*(i+1)*2*i;
всё!
Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 00:31 26-06-2007
m_andrey_m

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравствуйте помогите пожалуйста с задачей :  
 
Дана строка. Проверить правильность написания сочетаний "жи", "ши", "ча", "ща", "чу", "щу". Ошибки исправить.
 * Не использовать массивы и стандартные функции.
 
Заранее спасибо.
Всего записей: 5 | Зарегистр. 26-06-2007 | Отправлено: 16:53 26-06-2007
Открыть новую тему     Написать ответ в эту тему

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