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

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

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
V1s1ter
мы с Ганнибаллом вокруг этого алгоритма и ходили.. а до реализации не довели.. ;(
Рассмотрите в своём алгоритме, что будет, если есть, допустим, есть такой вариант:
файл1: 144444{тысяча четвёрок}44
файл2: 155555{тысяча пятёрок  }57
может программку напишите?..  

Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 15:38 01-04-2009
ChiPnGo



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Мб, я что-то не понял в условии задачи про большие файлы...
Надо читать по цифре из этой пары файлов, сложить, записать результат в третий файл, запомнить перенос и снова прочитать пару цифр из файлов и т. д. Это проблематично?

Всего записей: 149 | Зарегистр. 25-10-2008 | Отправлено: 16:46 01-04-2009 | Исправлено: ChiPnGo, 16:47 01-04-2009
andreylkn



Newbie
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Может кто-нибудь подскажет.. Как можно сделать проще, например программы:
Вводит пользователь какое то значение, потом это значение выводится на экран, если пользователь передумал и хочет поменять значение или выйти из программы или же продолжить вычисление то вводит значение k  
begin
  repeat
    Write('Ввод N: ');
    readln(n);  
    Writeln('Вывод N: ',n)
    writeln('Для продолжения вычисления нажмите 1');
    writeln('Для изменение целочисленного значение числа нажмите 2');
    writeln('Для выхода из программы нажмите 3');
    Readln(k)
  until (k=1) or (k=3);
  if k=1 then
    begin
    {вычисление...}
     end;
  Writeln('Для завершение программы нажмите Enter');
  Readln;
end.
 
Вот как бы упростить, например что бы продолжить вычисления нажать Enter, для изменения значения на другую клавишу... а что бы выйти нажать любую клавишу или же Esc. Или есть другие идеи как лучше сделать?

Всего записей: 18 | Зарегистр. 26-10-2008 | Отправлено: 17:55 01-04-2009
ChiPnGo



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Для этого в ТП используют readkey.

Всего записей: 149 | Зарегистр. 25-10-2008 | Отправлено: 18:11 01-04-2009
andreylkn



Newbie
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
ChiPnGo
А мог бы ты привести какой-нибудь пример с применением readkey или как им пользоваться?
Был бы очень тебе благодарен!

Всего записей: 18 | Зарегистр. 26-10-2008 | Отправлено: 18:24 01-04-2009
SERGE_BLIZNUK

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

Цитата:
результат в третий файл, запомнить перенос и снова прочитать пару цифр из файлов и т. д. Это проблематично?

и что Вы дальше будете делать с полученным переносом?!
Как раз в переносе и загвоздка! что Вы будете писать в третий файл, если перенос возникнет ПОЗЖЕ (может на второй паре цифр, а может и на трёхмиллионной паре....
разберите пошагово (для каждой пары чисел и что мы пишем в выходной файл).
ну, для примера для  чисел:
1444
1556
начинаем так 1+1 = 2 -> и пишем в выходной файл 2 ?
4+5 = 9 -> пишем в выходной файл 9 ?
 
и ещё раз прошу обратить внимание на то, что временные (читай дополнительные) файлы использовать по условиям задачи нельзя!
Автор задачи утверждал, что у него есть решение... и опять куда-то пропал...
 
andreylkn
1) я бы рекомендую использовать такую структуру:

Код:
uses crt;
var
 c : char;
begin
 WriteLn('Жми клавишу, не бойся! Выход по Enter или по Esc');
 repeat
      c := ReadKey;
      case c of
        '1' : begin WriteLn('Нажали 1- действия по нажатию единицы.') end;
        '2' : begin WriteLn('Нажали 2- действия по нажатию двойки.') end;
        #13 : begin WriteLn('Нажали Enter - можно напоследок ещё что-нибудь сделать!') end;
        #0  :
          begin
            {расширенный код - например - стрелки управления курсором..}
            c := Readkey;
            case c of
              #75 :  {  Left  }
                    begin writeLn('Стрелка "Влево" нажата...') end;
              #77 :     {  Right  }
                    begin writeLn('Стрелка "Вправо" нажата...') end;
            end;
          end;
      end;
 until (c=#13) or (c=#27);
end.
 

begin end - здесь просто для красоты - для одного оператора их можно было и не писать, а если реальный код - то он обычно более одного оператора, поэтому без них не обойтись
2) а вообще немножко поиграться с функциями Crt и можно (и несложно) сделать нормальное меню, где стрелками вверх/вниз двигаешь выделение и по Enter выполнять действие... Кстати, это неплохая учебная задачка!

Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 18:34 01-04-2009 | Исправлено: SERGE_BLIZNUK, 18:35 01-04-2009
ChiPnGo



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

Код:
 
uses crt;  var freq:word;  l:char;  begin
 
repeat l:=readkey;        case l of
 
      '1': freq:= 262;
      '2': freq:= 294;
      '3': freq:= 330;
      '4': freq:= 349;
      '5': freq:= 392;
      '6': freq:= 440;
      '7': freq:= 494;    end;
 
     sound(freq);    
     delay(500);  
     nosound
 
until l='q'                           end.
 

 
Если мне не изменяет память - то esc - это 27. Т. е. условие выхода можно посавить такое:

Код:
 
until l=27                           end.
 

 
Добавлено:
SERGE_BLIZNUK
А, так вначале идут старшие разряды? Зачем тогда начинать складывать сходу? Мы же можем случайно сложить не те разряды:
13242342
+
32432
1+3, 3+2... Это же не нужно.
А кто мешает читать с конца?

Всего записей: 149 | Зарегистр. 25-10-2008 | Отправлено: 18:37 01-04-2009 | Исправлено: ChiPnGo, 18:44 01-04-2009
SERGE_BLIZNUK

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

Цитата:
А кто мешает читать с конца?

я тоже сразу предложил это решение... но:
1) это будет платформо зависимым (текстовые файлы в паскале нельзя читать с произвольной позиции :-(
2) а записывать Вы будете тоже с конца? напоминаю, что числа в памяти НЕ ПОМЕЩАЮТСЯ ;-)
 
p.s. почитайте - год назад, в январе 2008 года тут эта задача обсуждалась...
но решение так и не было найдено.
p.p.s. то, что я год назад писал, что число вместится в longint - я был категорически неправ! ;)

Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 18:48 01-04-2009
ChiPnGo



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Если мне разрешат несколько проходов и возможность иногда иметь по 2 цифры в строке - то вполне реально.

Всего записей: 149 | Зарегистр. 25-10-2008 | Отправлено: 18:53 01-04-2009
andreylkn



Newbie
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
SERGE_BLIZNUK
ChiPnGo
Большое вам спасибо!

Всего записей: 18 | Зарегистр. 26-10-2008 | Отправлено: 19:02 01-04-2009 | Исправлено: andreylkn, 19:03 01-04-2009
meceniystrelok

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
С Первым и третьим разобрался..подскажите плиз с пунктом 2 !
 

Цитата:
2)Как можно запустить bat-фаил ,который также рядом лежит с программой.
Главное:Чтобы фаил запустился перед тем как программа покажет первую строчку  

 
Поправлю ,скажем не обязательно бат фаил ,а приложение.
 
И Вопросец ,кто либо привязывал Меню в паскале к своим программам?
Вот код меню из Паскаль АБС:
uses vcl;
 
var MainForm:Form;
 
procedure FClose;
begin
  MainForm.Close;
end;
 
begin
  MainForm:=Form.Create(200,200,300,300);
  with MainForm do begin
    Menu:=MainMenu.Create;
    //создаем корневые путкты меню
    Menu.Add('Файл');  //1
    Menu.Add('Меню1'); //2
    Menu.Add('Меню2'); //3
    //создаем подменю
    Menu[1].Add('Выход',FClose,'exit');
    Menu[2].Add('Пункт меню');        // ~ Menu.items[2].add(...)
    Menu[2].Add('Подменю');
    Menu[2][2].Add('Пункт подменю1'); // ~ Menu.items[2].items[2].add(...)
    Menu[2][2].Add('Пункт подменю2');
  end;
end.

Всего записей: 5 | Зарегистр. 06-01-2009 | Отправлено: 20:46 01-04-2009 | Исправлено: meceniystrelok, 20:48 01-04-2009
akaGM

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

Цитата:
2)Как можно запустить bat-фаил ,который также рядом лежит с программой.
Главное:Чтобы фаил запустился перед тем как программа покажет первую строчку


Код:
bat1.bat
 
@call bat2.bat
myprog.exe


Код:
bat2.bat
 
@echo работает второй батник
@echo ...
@echo делаем что надо
@echo ...
@echo второй батник закончил работу

 

Цитата:
И Вопросец ,кто либо привязывал Меню в паскале к своим программам?

привязывал...
и этот паскаль называется Delphi

Всего записей: 24055 | Зарегистр. 06-12-2002 | Отправлено: 21:01 01-04-2009 | Исправлено: akaGM, 21:47 01-04-2009
V1s1ter



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

Цитата:
так расскажите нам, как решить эту "простую" задачку...  

Собствено как обещал.
Обращаю внимание, что в коде считается, что два файла содержат одинаковое количество цифр. Кому надо пусть дополнит алгорилм - это довольно просто.
Я же преследую цель показать, что особых ресурсов для слодение сколь угодно больших чисел не требуется. Если я ошибся - ткните носом.

Код:
program Project4;
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  FA, FB, FR: TextFile;
  i, A, B, R1, R2, Q: Integer;
begin
  AssignFile(FA, 'E:\FA.TXT');
  AssignFile(FB, 'E:\FB.TXT');
  AssignFile(FR, 'E:\FR.TXT');
  Reset(FA);
  Reset(FB);
  Rewrite(FR);
  if not Eof(FA) then begin
    ReadLn(FA, A);
    ReadLn(FB, B);
    R1 := A+B;
    if R1 > 9 then begin
      WriteLn(FR, 1);
      R1 := R1-10;
    end;
 
    while not Eof(FA) do begin
       ReadLn(FA, A);
      ReadLn(FB, B);
      R2 := A+B;
      if R2 < 9 then WriteLn(FR, R1)
      else if R2 > 9 then begin
        R1 := R1+1;
        R2 := R2-10;
        WriteLn(FR, R1);
      end
      else begin
        Q := 0;
        repeat
          Q := Q+1;
          ReadLn(FA, A);
          ReadLn(FB, B);
          R2 := A+B;
        until (R2 <> 9) or Eof(FA);
        if R2 <= 9 then begin
          WriteLn(FR, R1);
          for i := 1 to Q do WriteLn(FR, 9);
        end
        else begin
          R1 := R1+1;
          R2 := R2-10;
          WriteLn(FR, R1);
          for i := 1 to Q do WriteLn(FR, 0);
        end;
      end;
      R1 := R2;
    end;
    WriteLn(FR, R1);
  end;
  CloseFile(FA);
  CloseFile(FB);
  CloseFile(FR);
end.
 
 

Всего записей: 948 | Зарегистр. 06-02-2007 | Отправлено: 22:29 01-04-2009
yakostik

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
V1s1ter
Из того что понял ткнуть могу даже я  
было написано

Цитата:
файл1: 144444{тысяча четвёрок}44  
файл2: 155555{тысяча пятёрок  }57

 
Твой код даже при услови того что это Делфи не может прочитать строку из файла если в ней всего 130 знаковое число а если там будет число из нескольких тясыч знаков?
 
Тут  

Цитата:
 
.......
var  
    i, A, B, R1, R2, Q: Integer;  
.......
    ReadLn(FA, A);  
    ReadLn(FB, B);
.....
 

Сколько у нас влазит в интежер?  
Такое например 15456165475616516465165165745666576651651650657651616465465 влезит?

Всего записей: 408 | Зарегистр. 30-03-2006 | Отправлено: 23:34 01-04-2009
SERGE_BLIZNUK

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
V1s1ter
Супер! Снимаю шляпу!!
Единственное, я бы всё таки вместо Integer взял тип LongInt — но это важно только если задачу портировать под TurboPascal
Всё работает отлично!!
 
Добавлено:
yakostik
Вы не правы...
1) прочитайте внимательно условия - в файлах каждая цифра на новой строке
2) алгоритм построен так, что считаются только переносы.
если взять число с 2 миллионами девяток (как я сделал - файлик получился всего 5 МБ)
то переносов может быть только 2 миллиона (в тип LongInt влазит более 2 миллиардов ;-)

Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 23:51 01-04-2009
V1s1ter



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

Цитата:
Сколько у нас влазит в интежер?  
Такое например 15456165475616516465165165745666576651651650657651616465465 влезит?

SERGE_BLIZNUK

Цитата:
я бы всё таки вместо Integer взял тип LongInt  

Уважаемые форумчане, я написал не реализацию, а идею алгоритма на паскале.
Его можно как угодно изменить, например пусть нет ограничений на длину строки, тогда используеи не ReadLn, а просто Read(файл, символ).
Если размера счечика не хватает создайте масив, например из 100 байт - прикинте сколькизначное число тогда можно сложить   (теперь то не составить проблемы к 100 байтовому числу прибавить 1).
Терерь о плохом. Если предположить, что в строке могут быть несколько символов и нельзя пользоватся Seek, FileSize, и длины чисел различны,  то прийдется делать два прохода для корретного расчета "выступающей" части большего числа.
Я для себя этот вопрос закрываю, если кому то помогло я рад.
 

Всего записей: 948 | Зарегистр. 06-02-2007 | Отправлено: 12:36 02-04-2009
andreylkn



Newbie
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Вопрос такой, есть ли такой оператор в паскале, при котором, когда программа при вычислении попадает на этот оператор (при каком-нибудь условии) программа сразу же завершает свою работу.
 
P.S. не используя оператор goto

Всего записей: 18 | Зарегистр. 26-10-2008 | Отправлено: 18:07 02-04-2009 | Исправлено: andreylkn, 18:14 02-04-2009
akaGM

Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
andreylkn
halt() в любом месте программы
или exit() в теле основного блока begin end.

Код:
procedure test;
begin
  if (error1) then begin
    writeln('сейчас мы жёстко выйдем...');
    halt;
  end;
  if (error2) then begin
    writeln('сейчас мы просто выйдем из процедуры...');
    exit;
  end;
  writeln('продолжаем выполнение процедуры...');
end;
 
begin
  test;
 
  if (error3) then begin
    writeln('сейчас мы жёстко выйдем...');
    halt;
  end;
  if (error4) then begin
    writeln('сейчас мы мягко выйдем из программы...');
    exit;
  end;
  writeln('продолжаем выполнение основной программы...');
end.

Всего записей: 24055 | Зарегистр. 06-12-2002 | Отправлено: 18:22 02-04-2009 | Исправлено: akaGM, 18:27 02-04-2009
Kelly Spring

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
привет всем...мальчики, ребята помогите решить задачу пожалуйста...у нас препод тупая по основам алгоритмизации сказала задачи решать без процедур, говорит пока атк решаем...вообщем завалила она нас...а задача вот такая "Дан массив A состоящий из n элементов.Нужно написать программу, распологающую эти элементы по порядку. Код нада на паскале обычном...не турбо, ну это наверно разницы нет...помогиет сделать, плиз : ((...тока без процедур
 
Добавлено:
массив одномерный...распологать в порядке возрастания

Всего записей: 13 | Зарегистр. 02-04-2009 | Отправлено: 19:46 02-04-2009
cool3r

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Дана матрица NxN, закрасить её элементы в соответствии с рисунком (рисунок ниже).
 
Где 1,2,3,4 - закрасить цветом.
 
кто-нить может помочь?
 
[img=http://img117.imageshack.us/img117/4408/masnxn.jpg]
 
 
 
 
Добавлено:
2 Kelly Spring:
 
ну наверное будет вот так:
 

Код:
 
uses crt;
 
const
n=100;
 
var
  a,b:array [1..n] of integer;
   i,j,m,por:integer;
 
begin
    clrscr;  
      randomize; {включаем ГСЧ}
        write('Размерность: ');
    {вводим размерность массива}
           readln(m);
           for i:= 1 to m do
           begin
     a[i]:=random(20); {генерируем случ. числа (можешь поставить 100 }
    write(a[i]:3);
  end;
writeln;
      {сортируем}
    for i:= 1 to m do  
    begin
      for j:=i+1 to m do
        if (abs(a[j])<abs(a[i])) then
          begin
        a[i]:=a[i]+a[j];
     a[j]:=a[i]-a[j];
   a[i]:=a[i]-a[j];
   end; end;
   {выводим упорядоченый массив}
    write('Упорядоченый массив: ');
     writeln;
       for i:=1 to m do  
       begin
          write(a[i]:3);
       end;
   readkey;
end.
 
 

Всего записей: 3 | Зарегистр. 02-04-2009 | Отправлено: 20:07 02-04-2009 | Исправлено: cool3r, 22:24 02-04-2009
Открыть новую тему     Написать ответ в эту тему

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