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

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

Junior Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Gavk
Спасибо
 
И еще. Ктонить знает как на паскале записать например 2 в степени х через експоненту. Я когдато знал, но призабыл. Там чето должно быть похожее на exp(ln(2)*x), но не уверен... Плз, помогите
Всего записей: 143 | Зарегистр. 01-02-2007 | Отправлено: 23:14 22-05-2007
Lambert



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

Цитата:
Ктонить знает как на паскале записать например 2 в степени х

 
x**y = exp(ln(x**y)) = exp(y*ln(x)).
Всего записей: 17 | Зарегистр. 16-04-2007 | Отправлено: 01:30 23-05-2007
SERGE_BLIZNUK

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

Цитата:
надо сдлеать так чтобы это работало

ну вы и путанник!!!
1) тип arrType вы объявили, а кто будет объявлять ПЕРЕМЕННУЮ этого типа?!
2) array[i] - это вообще шедевр! Так НЕЛЬЗЯ. ;-))
3) Определитесь - Вы в файлы Пишите или Вы из файлов Читаете???
дело в том, что Вы открываете файл на запись, пишите туда, а потом вдруг решаете читать. Нужно это разделить. Хотя бы так - сначала пишем в файлы. потом закрываем эти файлы. После открываем на чтение и потом уже читаем.
Программка
удачи.
Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 06:29 23-05-2007
Voldemort2007

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Люди, помогите написать простейшую задачу школьного уровня!
 
Нужно составить программу, которая выводит на печать следующее:
 
-10 -8 -6 -4 -2 0 2 4
-10 -8 -6 -4 -2 0 2 4
-10 -8 -6 -4 -2 0 2 4
-10 -8 -6 -4 -2 0 2 4
-10 -8 -6 -4 -2 0 2 4
-10 -8 -6 -4 -2 0 2 4
 
Как я понял, сделать эту программу нужно с использованием вложенных циклов. Но как? Выручайте
Всего записей: 6 | Зарегистр. 28-04-2007 | Отправлено: 11:55 23-05-2007
svetik69

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ребята помогите решить задачку:
найти корни уравнения f(x)=0  
методом итераций
методом половинного деления
методом ньютона
спасибочки!
Всего записей: 1 | Зарегистр. 23-05-2007 | Отправлено: 12:15 23-05-2007
GoldFire

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Вот программка для нахождения мах глубины бинарного дерева, как в ней сделать так чтобы на экран дерево выводилось не в строчку, а по уровням. помогите, пожалуйста.
 

Код:
Uses
  Crt;
Type
  Tr=^tt;
        tt=Record
           Data:integer;
           Left,Right:Tr;
           end;
Var
   x:integer;
   kd,f :Tr;
 
 
Procedure dob (n :integer; var h:Tr);
Begin
  If h = nil then begin
                  New(h);
                  With h^ do
                       begin
                       Data:=n;
                       Left:=nil;
                       Right:=nil;
                       end;
                  end
             else if n<= h^.Data then dob(n,h^.left)
                                 else dob(n,h^.right);
 
End;
 
Procedure Print(var t:Tr);
Begin
  If t<>nil then
             with t^ do begin
                        Print(left);
                        write (data,'  ');
                        Print(right);
                        end;
 
End;
 
Function dep(g:tr) :integer;
var r,l :integer;
begin
if g<>nil
          then begin
              l:=dep(g^.left);
              r:=dep(g^.right);
              if l>r then dep:=l+1
                     else dep:=r+1;
              end
          else dep:=0;
end;
 
Begin
  ClrScr;
 writeln('vvod vershin; okonchanie - 0');
 kd:=nil;
 f:=nil;
 read (x);
 while x<>0 do
            begin
            dob(x,kd);
            writeln('ocherednoe chislo');
            read (x);
            end;
 f:=kd;
 Print(kd);
 writeln;
 writeln;
 writeln (dep(kd));
 readln;
 Readln;
end.
 
Всего записей: 29 | Зарегистр. 18-11-2006 | Отправлено: 12:59 23-05-2007
Voldemort2007

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
program  mega;
uses        crt;
var          a,b:integer;
begin
        clrscr;
        for a:=1 to 6 do
        begin
        b:=-10;
        while b<=a-1 do
        begin
        write(' ',b);
        b:=b+2;
        end;
        writeln;
        end;
end.
 
Эта программа выводит на печать следующее:
 
-10 -8 -6 -4 -2 0
-10 -8 -6 -4 -2 0
-10 -8 -6 -4 -2 0 2
-10 -8 -6 -4 -2 0 2
-10 -8 -6 -4 -2 0 2 4  
-10 -8 -6 -4 -2 0 2 4
 
А мне нужно, чтобы выводила следующее:
 
-10 -8 -6 -4 -2 0 2 4  
-10 -8 -6 -4 -2 0 2 4  
-10 -8 -6 -4 -2 0 2 4  
-10 -8 -6 -4 -2 0 2 4  
-10 -8 -6 -4 -2 0 2 4  
-10 -8 -6 -4 -2 0 2 4
 
Где ошибка в коде?
Всего записей: 6 | Зарегистр. 28-04-2007 | Отправлено: 13:41 23-05-2007
SERGE_BLIZNUK

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Voldemort2007
правильно
        b:=-10;  
        while b<=4 do  
 
 
 
Добавлено:
а ещё лучше я бы сделал через два for (короче и нагляднее):

Код:
 
program  mega;  
uses  crt;
var   i,j:integer;
begin
  clrscr;
  for i:=1 to 6 do
  begin
    for j:=-10 to 4 do
      if not odd(j) then
        write(' ',j);
    writeln;
  end;
end.
 

 
 
Добавлено:
 
GoldFire

Цитата:
так чтобы на экран дерево выводилось не в строчку, а по уровням.

а как это - по уровням? вроде тут одноуровневый связный список...
Вы хоть бы пример нарисовали, что именно Вы хотите получить...
Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 15:47 23-05-2007
Voldemort2007

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
SERGE_BLIZNUK, спасибо большое
Всего записей: 6 | Зарегистр. 28-04-2007 | Отправлено: 18:45 23-05-2007
GoldFire

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
SERGE_BLIZNUK
 вообще-то должено существовать обычное бинарное бинарное дерево, его-то и надо выводить на экран.
 
Если ошибка в программе (создании) дерева, не могли помочь её исправить
 
Вывод по уровням - первая строка - корнь, ниже на строку - его следущии 2 узла и т.д. вниз
Всего записей: 29 | Зарегистр. 18-11-2006 | Отправлено: 23:22 23-05-2007
MusicMan67

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Свалилась на голову не простенькая задачка. Вот её условия:
 
Сведения о маршрутах городских автобусов содержат: номер маршрута, начальный пункт, конечный пункт, описание маршрута (промежуточные остановки), среднее время движения по маршруту, интервал в час пик. Вывести номера маршрутов с заданным конечным пунктом и интервалов в часы пик, меньшим 10 минут. Так же определить число таких маршрутов.
 
Как мне объяснили, сведения должны браться из текстового файла. Помогите пожалуйста кто чем может. Для начинающего эта задача весьма сложна, но решить жизненно важно.
Всего записей: 12 | Зарегистр. 06-05-2007 | Отправлено: 00:07 25-05-2007
KyMa

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Привет, народ! У меня вот какая проблеме: когда я хочу проверить выполнение программы, у меня выходит надпись Invalid numeric format. Что с этим сделать можно? Вот условие задачи:
Написать программу, для работы с базой данных отдела предприятия.База хранится в текстовом файле, его размер может быть произвольным. Каждая строка файла содержит запись об одном сотруднике.Форма записи: 1)ФИО (30 символов) 2) год рождения (5 позиций) 3)оклад (10 позиций). Программа должна обеспечивать поиск в базе по заданным критериям, корректировку и дополнение базы.
А вот сама программа:
 
Подробнее...[code]
Всего записей: 12 | Зарегистр. 19-11-2006 | Отправлено: 16:26 25-05-2007 | Исправлено: KyMa, 21:30 25-05-2007
SERGE_BLIZNUK

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

Цитата:
Вывод по уровням - первая строка - корнь, ниже на строку - его следущии 2 узла и т.д. вниз

ага. первый раз недоглядел. Действительно, всё так, как вы сказали - дерево, где в каждом узле возможны ссылки left, right...
Теперь задача стала понятной (и более сложной ;-)))) )
попытаюсь решить...
 
KyMa
1) Большой код ОЧЕНЬ ЖЕЛАТЕЛЬНО прятать за тэгом [more]!!!!!!
   (лучше нажать Вам на вашем сообщении кнопочку "Редактировать" и спрятать код!)
2) без dbase.txt программу не отладишь...
3) для устранения ошибки удалите число 24 в коде
Цитата:

Код:
procedure ReadFile(var beg,fin:pMan);  
   var  
      f:text;  
      person:Man;  
   begin  
      {$I-}  
24
assign(f,'dbase.txt');  

4) у вас потерялись русские буковки в программе (комментарии и сообщения...)
Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 17:38 25-05-2007
KyMa

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Спасибо за комментарии, цифру 24 я убрала, однако ж ошибки это не исправило.
Файл dbase.txt я создавала.Такая ошибка у меня выходила и раньше в других программах, когда я что-то меняла в текстовом файле и сохраняла его под старым  именем. А сейчас эта ошибка вылезает при каждой проверке, даже если я новый текстовый файл создаю.И как быть??
Всего записей: 12 | Зарегистр. 19-11-2006 | Отправлено: 21:42 25-05-2007
jONES1979



Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
KyMa не имея возможности проверить, рискну предположить что ошибка "Invalid numeric format" вероятно связана с тем, что в вашем файле в качестве разделителей использовались "," вместо "." ! В Турбо паскале с этим строго!
 
... либо попадают посторонние символы в той части строки, которая должна быть преобразована в число
Всего записей: 324 | Зарегистр. 20-05-2005 | Отправлено: 00:54 26-05-2007
SERGE_BLIZNUK

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
KyMa
Ваша проблема в неверном задании файла dbase.txt - должно быть ровно 30 символов текст фио, с 31 позиции целое число, потом, через пробел - вещественное число.
всё.
вот пример - http://rapidshare.com/files/33387961/LR_5.rar.html
(или, зеркало - http://slil.ru/24419203)
Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 01:14 26-05-2007
grayhex



Newbie		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Типовые задачи:
1. Текстовые файлы
 
Создать текстовые файлы содержащие случайным образом сформированные 10-элементные векторы. Сравнить соответсвующие компоненты файлов и результаты записать в файл.
 
2. Типизированные файлы
 
Из 2х файлов с именами и адресами создать результирующий файл.
 
3. Нетипизированные файлы. Обработка ошибок при работе с файлами.
 
Скопировать содержимое текстового и типизированного файла в один файл.
 
4. Указатели.
 
Используя указатель на вектор из  5 целых чисел создать в ДРП матрицу 4*5.
(предусмотреть контроль за размером динамически распеределяемой памяти (ДРП), а так же её освобождение после выполнения необходимых действий.
 
пример задачи: Отсортировать по убыванию список из 10 символов в ДРП.

Код:
 
Program Lab20;
var
   f1, f2, f3 : file;
   buf : array[1..128] of char;
   kod : byte;
procedure copy(var file1, file2 : file);
var Num, Res: word;
begin
     repeat
           blockread(file1, buf, SizeOf(buf), Num);
           blockwrite(file2, buf, Num, Res);
     until (Num = 0) or (Num<>Res)
end;
procedure proverka(kod : byte);
begin
     if kod<>0 then
     begin
          Writeln('&#196;&#934;&#191;&#237;¬&#225;!');
          case kod of
               2 : Writeln('&#246;&#225;&#8976;&#189; &#161;&#209; &#161;&#225;&#8976;&#241;&#209;&#161;');
               3 : Writeln('&#197;&#960;&#915;&#8734; &#161;&#209; &#161;&#225;&#8976;&#241;&#209;&#161;')
          end
     end
end;
procedure imena(var p_name : file; i : byte);
var s : string;
begin
     Writeln('&#233;&#243;&#209;&#241;&#191;&#915;&#209; &#191;&#188;&#8745; ', i, '-«&#250;« &#931;&#225;&#8976;&#189;&#225;');
     Readln(s);
     assign(p_name, s)
end;
begin
     {$I-}
     repeat
           imena(f1, 1);
           reset(f1, 1);
           kod:=IOResult;
           proverka(kod)
     until kod=0;
     repeat
           imena(f2, 2);
           reset(f2, 1);
           kod:=IOResult;
           proverka(kod)
     until kod=0;
     repeat
           imena(f3, 3);
           reset(f3, 1);
           kod:=IOResult;
           proverka(kod)
     until kod=0;
     {$I+}
     copy(f1, f3);
     copy(f2, f3)
end.
 

 
 
 
 
Всего записей: 14 | Зарегистр. 26-11-2006 | Отправлено: 18:05 26-05-2007
myig



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

делаю паскаль-программу обработки табличной информации, взятой из текстового файла (надо использовать только записи паскаля)
 
условие: багаж пассажира формируется фамилией пассажира, номером рейса, датой вылета, количеством вещей и общим весом вещей.
Вывести фамилии пассажиров, багаж которых состоит из одной вещи весом не менее 30 кг и вычислить средний вес багажа всех пассажиров.  
 
 
 
попытался сделать программу без рассчета среднего веса багажа, но, увы, не работает ((( помогите, пожалуйста, решить...  
 
вот мой код:
 
program iz9;
type tablica=record
  fam: string [10];
  nr: 1..100;
  dv: string [8];
  kv: 0..50;
  ov: 1..100;
  end;
var
  f1,f2:text;
  fam: string [10];
  nr: 1..100;
  dv: string [8];
  kv: 0..50;
  ov: 1..100;
 
begin
  assign(f1,'vhod.txt');
  assign(f2,'vihod.txt');
  reset(f1);
  rewrite(f2);
  read(f1,fam,nr,dv,kv,ov);
 
 
  if kv=1 and ov>=30 then
    begin
    writeln(f2,fam);
end.
 
и подскажите пожалуйста, как нужно вводить данные в vhod.txt?  
 
я вводил вот так:
 
 
Петров 2 19.01.05 1 40
Иванов 2 18.02.03 2 30
сидоров 3 19.03.07 2 40  
 
Всего записей: 17 | Зарегистр. 12-05-2007 | Отправлено: 18:14 26-05-2007
KyMa

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Спссибо!Попробую это дело исправить
Всего записей: 12 | Зарегистр. 19-11-2006 | Отправлено: 18:53 26-05-2007
SERGE_BLIZNUK

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Господа, прошу Вас, пожалуйста, прячьте код за тегами  [more][code] тут пример вашей длинной программы [/code][/more]  
 
grayhex
и зачем Вы написали Ваши типовые задачи?... чтобы мы почитали их условия и порадовались за Вас?
К чему привидённый код (Program Lab20; )?  При вставке этого кода у Вас испортились все русские буквы. Будьте более внимательны! Lab20 - код  с русскими буквами
 
myig
Ваша программа работать НЕ будет, т.к. - (1) она не дописана, 2) у Вас нет цикла по всем записям файла vhod.txt (  read(f1,fam,nr,dv,kv,ov) - прочитает только первую строчку из файла...)
Правильный формат файла vhod.txt
Код:
 
Петров    2 19.01.05 1 40  
Иванов    2 18.02.03 2 30  
сидоров   3 19.03.07 2 40  
 

и последнее, а зачем Вы объявляете type tablica=record  
если потом нигде этим типом не пользуетесь?!?!
 
 
 
Добавлено:
Важно, тип для даты сделайте   dv: string [9]; - иначе обрезается последняя цифра года!
 
пример чтения ВСЕХ строчек:

Код:
 
  While not eof(f1) do begin
    readln(f1,fam,nr,dv,kv,ov);  
    Writeln(fam,nr,' ',dv, ' ',kv,' ',ov);
 end;    
 

Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 10:03 27-05-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