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

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

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
1. Составить программу, которая при вводе вашего имени здоровается с вами, а при вводе другого имени, отвечает «до свидания».
3. Найти среди чисел а, b, с наибольшее и наименьшее. Поменять эти значения между собой. Составить блок-схему.
4. Определить, делителем каких чисел из [а, b, c] является целое число d.
6. Определить, какие из данных трёх действительных чисел a, b, c являются целыми.
 
помогите пожалуйста...сдать зачёт, а то к сесии не допустят....а то  не разбераюся в этом.... та....
Всего записей: 1 | Зарегистр. 08-12-2007 | Отправлено: 17:42 08-12-2007
apok



Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
уже к понедельнику нуно эту задачу, помогите решить =)

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

Всего записей: 208 | Зарегистр. 06-12-2007 | Отправлено: 17:59 08-12-2007
BaGzim

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите решить задачу пожалуйста
нужно сформировать и вывести на экран заданный двумерный массив (для заполнения массива использовать формулу)
массив такой:
A B C D  
B A B C
C B A B
D C B A
Всего записей: 1 | Зарегистр. 08-12-2007 | Отправлено: 22:03 08-12-2007
AlexandrRGUNG

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
задача такая
. Заданы три квадратных уравнения:
a*x + b*x + c = 0; d*x2 + f*x + r = 0; p*x2 + q*x + t = 0.
Найти минимальное значение среди действительных корней этих уравнений. Решение квадратного уравнения оформить в виде подпрограммы. Ввод данных из файла
Исходные данные:
а = 2; d = 3.7; p = 1.2;
в = -5.2; f = 1.8; q = -3;
с = 1.3; r = 6; t = 5.
 
Что нужно сделать? Что-то я плохо соображаю, что даже не могу ввести переменные(
вот небольшой набросок:
   
Код:
Program kv;
uses crt;
Type
koef=array[1..3] of real;
k,l,m:koef
x,y:real;
i,j,n:integer;
f:text;
Procedure VVOD(var Q:koef;
 
Procedure KORN (a,b,c:real; var x1,x2:real; var no:integer);
var d:real;
Begin
d:=sqr(b)-4*a*c
if d>=0 then begin no:=1;
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
end;
else no:=0;
end;
 
 
Begin
Assign (f,'k1.pas');
 
for i:=1 to 3 do
begin
 
 
 
 
 
Всего записей: 10 | Зарегистр. 30-11-2007 | Отправлено: 14:23 09-12-2007 | Исправлено: AlexandrRGUNG, 14:25 09-12-2007
Andrey89

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Дана задача на использование процедур и функций для работы с массивами.  
С клавиатуры ввести натуральное число k>0 и вещественные компоненты трех векторов A=|a1,a2,...,ak|, B=|b1,b2,...,b2*k| и C=|c1,c2,...,c3*k|.Требуется вычислить величину Y по формуле  
Y=1/exp(abs(E)+abs(F)+abs(G)) ,  
где  
E=a1+a2+...+ak; F=b1+b2+...b2*k; G=c1+c2+...c3*k;
 
Помагите пожалуйста описать массив через функцию.
Всего записей: 13 | Зарегистр. 26-11-2007 | Отправлено: 15:49 09-12-2007
boogman

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Дан текст из двух предложений. Выписать из текста слова, которые встречаются и в первом, и во втором предложениях. помогите плиззз
Всего записей: 12 | Зарегистр. 26-10-2007 | Отправлено: 18:38 09-12-2007
xDeliC



Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Pawo
Благодарю,все пошло правельно.
----------------
Вот только еще .... блин... некак неполучается с некоторыми задачами справится....
-----------------------
Дано число N. Найти количество чисел в интервале от 1 до N, взаимно простых с N.
-----------------------
вот одна из них...
и еще одна запарка...
------------------------
Дано целое число N (N > 1). Проверить, является ли заданное число простым (простым называется число, имеющее ровно 2 делителя: себя и единицу).  
Вывести YES, если это так, и NO, если это не так.
------------------------
Задачи вроде простенькие..но некак немогу понять...
Всего записей: 100 | Зарегистр. 31-01-2003 | Отправлено: 18:39 09-12-2007
Gimalayka

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите. Наверняка это здесь было, но очень трудно найти.
Нужна программа, которая переводит десятичное число меньше 1 в двоичное до 21 знака. Только без операторов, через умножение.
Всего записей: 1 | Зарегистр. 09-12-2007 | Отправлено: 20:29 09-12-2007
rain87



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

----------
матрица - это система. она и есть наш враг
everyone's first vi session. ^C^C^X^X^X^XquitqQ!qdammit[esc]qwertyuiopasdfghjkl;:xwhat
Всего записей: 1744 | Зарегистр. 21-06-2006 | Отправлено: 21:07 09-12-2007
SERGE_BLIZNUK

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Господа студенты и учащиеся!! Вы когда научитесь пользоваться поиском?!!
 
простите за крик души...  Просто обидно читать вопросы, которые тут в форуме были решены. Порой слово в слово.
 
xDeliC

Цитата:
Дано целое число N (N > 1). Проверить, является ли заданное число простым (простым называется число, имеющее ровно 2 делителя: себя и единицу).  

смотрите ответ function IsProstoe(N: integer): boolean; (c) Jokerjar
исправил ссылку... хоть бы кто сказал, что она не работает... :-((
 
apok

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

и в чём проблема? приблизительно так:
CODE
 
 
 
Добавлено:
BaGzim
знаю, что делаю немного не то, что Вы ждёте, но... имею я право на шутку??
;-) короче, решение Вашей задачи - только нужно char заменить на нужный вам тип данных и обеспечить ввод чисел A B C D в массив FillArray - CODE
Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 00:31 10-12-2007 | Исправлено: SERGE_BLIZNUK, 22:23 10-12-2007
Algofil



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

Цитата:
Господа студенты и учащиеся!!

у меня создается впечатление, что некоторые из форумчан таки преподы, слишком большой спектр задач и полное незнание предмета, известно что в профильные учебные заведения идут люди изначально подкованные, да и не зная элементарных действий над массивами (например) там долго не продержишься, в непрофильных же заведениях такого спектра задач как например у pkitman не встречается (одни сортировки че стоят) вот и делаем выводы, чистападобромуканешна...
Всего записей: 247 | Зарегистр. 19-09-2007 | Отправлено: 09:44 10-12-2007
apok



Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
SERGE_BLIZNUK
ПаСиБкИ, выручил сильно
Всего записей: 208 | Зарегистр. 06-12-2007 | Отправлено: 11:46 10-12-2007
sayron22

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Народ помогите решить программу. Цикл с параметрами.
Дана последовательность из 100 целых чисел. Определить количество чисел в наиболее длинной подпоследовательности из подряд идущих нулей.
 
Плизз решите программму.
Всего записей: 21 | Зарегистр. 22-11-2007 | Отправлено: 14:37 10-12-2007
von_Brutt



Newbie		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
та же знакомая, которой делал предыдущую лабу....чего т меня формулировка сбивает..
 
 Вводится натуральное N.Вывести на экран все палиндромы меньшие этого ЧИСЛА...
Для распознания палиндромов написать подпрограмму.....
 
мне чтобы разобраться нужна помощь ток в определении палиндромов...Будьте любезны помочь в этом...
 
Заранее спасибо..
Всего записей: 31 | Зарегистр. 29-10-2007 | Отправлено: 18:57 10-12-2007
Gavk



Junior Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
von_Brutt
Полином - многочлен.
Всего записей: 114 | Зарегистр. 08-05-2006 | Отправлено: 19:13 10-12-2007
Jokerjar79



Advanced Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Gavk, полиндром - число или слово, одинаково читающиеся слева-направо и справа-налево
Всего записей: 710 | Зарегистр. 08-09-2007 | Отправлено: 19:43 10-12-2007 | Исправлено: Jokerjar79, 19:47 10-12-2007
1helm1

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите плиз!!! дали вот задачу в инсте а я чет не знаю как её решать.
Задача
Текстовый файл содержит слова( разделенные пробелами и/или знаками препинания)
Вывести на экран слова, начинающиеся и оканчивающиеся на одну и туже букву, синим,
являющиеся палиндромом , красным, остальные белым цветом
 
Зарание большое спасибо
Всего записей: 4 | Зарегистр. 10-12-2007 | Отправлено: 19:46 10-12-2007 | Исправлено: 1helm1, 20:18 10-12-2007
Jokerjar79



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

Код:
 
var
  N: longint;
 
function get10pow(c: integer): longint;
var
  i: integer;
  res: longint;
begin
  res := 1;
  for i := 1 to c-1 do
    res := res*10;
  get10pow := res;
end;
 
function getpor(v: longint): integer;
var
  res: integer;
begin
  res := 1;
  while v div get10pow(res + 1) >= 1 do
    inc(res);
  getpor := res;
end;
 
function ispolin(v: longint): boolean;
var
  i,p: integer;
begin
  p := getpor(v);
  ispolin := false;
  for i := 1 to (p div 2) do
    begin
      if ((v div get10pow(i)) mod 10) <> ((v div (get10pow(p-i+1)) mod 10)) then
        exit;
    end;
  ispolin := true;
end;
 
var
  i: longint;
 
begin
 writeln('Vvedite N');
 readln(N);
 for i := 1 to N do
   if ispolin(i) then
     writeln(i);
 readln;
end.
 

Блин, сто лет уже в паскале не работал
 
Добавлено:
1helm1

Код:
uses
  crt;
 
const
  sep = '.,!?:;() ';
 
var
  F: text;
  str,word: string;
 
procedure myprint(s: string);
begin
  if s[1] = s[length(s)] then
    textcolor(1);
  write(s);
  textcolor(7);
end;
 
var
  c: char;
  i: integer;
 
begin
  textcolor(7);
  str := '';
  assign(F,'input.txt');
  reset(F);
  while not eof(F) do
    begin
      read(F,c);
      str := str + c;
    end;
  close(F);
  word := '';
  for i := 1 to length(str) do
    begin
      if pos(str[i],sep) > 0 then
        begin
          if word <> '' then
            myprint(word);
          word := '';
          write(str[i]);
        end
      else
        word := word + str[i];
    end;
  readln;
end.

 
Проверял на файле такого содержания:

Код:
Meme, lolol! firef, asd back - croorc.

Всего записей: 710 | Зарегистр. 08-09-2007 | Отправлено: 20:07 10-12-2007 | Исправлено: Jokerjar79, 20:32 10-12-2007
1helm1

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Огромнейшое спасибо!!!!!!!)))))
 
 
Добавлено:
Она у тебя точно правильно работала??
 
 
Добавлено:
она у тебя точно правильно работала??
Всего записей: 4 | Зарегистр. 10-12-2007 | Отправлено: 21:08 10-12-2007
von_Brutt



Newbie		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
да я знаю чё эт такое...я не врубился как его определсять...определение надо оформить как подпрограмму..
Всего записей: 31 | Зарегистр. 29-10-2007 | Отправлено: 22:22 10-12-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