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

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



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
diablist
Задача I. Скачать
Всего записей: 1112 | Зарегистр. 09-11-2007 | Отправлено: 11:40 16-10-2008
SmallGoD



Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
creer
Большое спасибо за вторую задачу с матрицей, ох и помучился я с ней.
А третюю я уже сам решил и кстати на 99% как у тебя, т. е. ну прям строчка в строчку
только я сортировал вставкой
 

Код:
program summa;
var x:longint; i,k:integer; input,output:text; c:array [0..10000] of longint;
 
procedure SortInsert (var Arr:array of longint; n:integer);
var
  i,j:integer; Temp:longint;
begin
  for i:=1 to n do begin
    Temp:=Arr[i]; j:=i-1;
 
    while Temp < Arr[j] do begin
      Arr[j+1]:=Arr[j]; Dec(j);
      if j<0 then Break;
    end;
 
    Arr[j+1]:=Temp;
  end;
end;
 
begin
  assign(input, 'input.txt'); reset(input);
  assign(output, 'output.txt'); rewrite(output);
  readln(input, k);
 
  for i:=1 to k do begin
    readln(input, c[i]);
  end;
 
  i:=1;
 
  SortInsert(c,k);
 
  while (i<=k) and (C[i]<=x+1) do begin
    x:=x+C[i];
    i:=i+1;
  end;
 
  writeln(output, x+1);
  close(output);
  close(input);
end.

 
 
Уж не знаю в чём у нас ошибка но тестирующая прога выдаёт мол наш ответ не совпадает с её ответом.
 
Может я сортирую неправельно. (Вроде сортирует)
Всего записей: 256 | Зарегистр. 19-01-2008 | Отправлено: 15:46 16-10-2008 | Исправлено: SmallGoD, 16:05 16-10-2008
diablist



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
a008888
Спасибо большое
Всего записей: 898 | Зарегистр. 29-06-2002 | Отправлено: 16:26 16-10-2008
a008888



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
diablist
Задача III. Скачать
Сейчас буду переустанавливать Windows. Вы ж понимаете, это на долго. Вторую задачу решить быстро не получится.
Всего записей: 1112 | Зарегистр. 09-11-2007 | Отправлено: 17:57 16-10-2008
diablist



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
a008888
Ругается на эту строчку
if N mod 2<>0 then Mult:=Mult*ar2[i,j];
Mult недостаточно параметров....а как же его записать правильно?
 
Добавлено:
a008888
Да ничего, я же не буду торопить, как только и если будет у вас возможность, вы и так мне очень сильно помогли, огромное вам спасибо
Всего записей: 898 | Зарегистр. 29-06-2002 | Отправлено: 18:05 16-10-2008
alia04

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помоготе решить задачу: неоходимо вывести текстовое сообщение во сплывающем окне. Для минимизации площади окна в тексте сообщения можно заменить некоторые символы пробела на символы перехода на новую строку. Площадь окна вычисляется как произведение количества строк на длину (без символа перехода на новую строку) самой длинной из строк. Ввод содержит одну строку, содержащую непустое сообщение длинной до 100 символов. текс не содержит повторяющихся пробелов. Ввести два целых числа-ширину и высоту окна в символах. Если существует несколько вариантов с минимальной площадью- вывести вариант с наибольшей шириной. Привер ввода : мама мыла раму вывод для примера: 4 3
Всего записей: 1 | Зарегистр. 11-02-2008 | Отправлено: 19:18 16-10-2008
DiMb9IH

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Пожалуйста помогите составить 2 програмки, ужс немогу а нужно получить зачет
1)CONST N=40;
            VAR X:ARRAY[1..N] OF INTEGER;
                Y,K:INTEGER; T:BOONEAN;
            Вычислитьy=x(1)+x(1)*x(2)+x(1)*x(2)*x(3)+...+x(1)*x(2)
            *...*x(m)  ,где m - либо номер первого отрицательного
            элемента массива Х,либо число N, если в массиве Х нет
            отрицательных элементов.
2)Программа. Дана вещественная матрица размером 8*10.
            Упорядочить ее строки по неубыванию их первых элемен-
            тов.
 
Очень прошу. Заранее благодарен.
Всего записей: 7 | Зарегистр. 17-09-2008 | Отправлено: 20:17 16-10-2008
artiicc

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

Код:
program ugol;
label 1,2;
var
x: real;
y: real;
begin
1:
writeln ('введите значение косинуса угла');
readln (x);
writeln ('введите значение синуса угла');
readln (y);
if (x=0) and (y=0) then writeln ('вы ввели неправильное недопустимое значение'); goto 1;
if (x>1) or (x<-1) and (y>1) or (y<-1) then writeln ('вы ввели недопустимые значения, попробуйте снова'); goto 1;
if (x=0) then writeln (' угол находится на оси ординат');
if (y=0) then writeln (' угол находится на оси абцисс');
if (x>0) and (y>0) then writeln ('угол расположен в 1 квадранте') else
if (x<0) and (y<0) then writeln ('угол расположен в 3 квадранте') else
if (x<0) and (y>0) then writeln ('угол расположен во 2 квадранте') else writeln ('угол расположен в 4 квадранте');
 
readln;
end.

Но она зациклена перед первым условием. Подскажите что нужно исправить чтобы все работало. Все эти лишние условия нужны. Это проверки. Помогите, пожалуйста.
Всего записей: 15 | Зарегистр. 16-10-2008 | Отправлено: 22:02 16-10-2008 | Исправлено: artiicc, 22:05 16-10-2008
Infinite Retrieval

Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
есть задача:
На вход поступает много натуральных чисел. Причем каждое число встречается четное чило раз. Только одно из чисел нво входе встречается нечетное число раз. Найдите его  
 
 
Вход В первой строчке количество чисел N < 500 000. Затем идут N натуральных чисел меньше 1 000 000.  
 
 
Выход Натуральное число, которое во входе встречается нечетное число раз.
 
 
Вход#1
9
3 1 2 2 17 1 3 17 3
 
Выход#1
3
 
 
 
Вход#2
5
12 13 14 13 12
    
Выход#2
14
 
 
 
Задачу эту я решил, выход на первый ввод верен, но на проверке для второго ввода она выдаёт не 14, а 12!! Где ошибка в коде?
 
да, и ещё один вопрос, как сделать массив g:array [1..500000] ???
 
вот код

Код:
 
program chet;
var
n,p,k,i:integer;
g,f:array [1..50] of longint;
begin
readln(n);
 
 for p:=1 to n do
 begin
 read(g[n]);
 end;
 
 
for p:=1 to n do
begin
f[p]:=0;
for k:=1 to n do
 begin
 if g[p]=g[k] then f[p]:=f[p]+1;
 end;
end;
 
for i:=0 to n do
begin
if f[i] mod 2 =1 then writeln(g[i]);
end;
 
end.
 
 
 
Всего записей: 707 | Зарегистр. 22-02-2008 | Отправлено: 22:08 16-10-2008
yakostik

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

Цитата:
DiMb9IH

Вот первая  

Код:
 
program z4;
const
n=4;
var
x:array [1..n] of integer;
y,m,i,j,p:integer;
flag:boolean;
begin
flag:=false;
randomize;
for i:=1 to n do
    begin
    x[i]:=random(40)-random(10);
    write(x[i],' ');
    if (x[i]<0) and (flag=false) then
       begin
       m:=i;
       flag:=true;
       end
    end;
writeln;
if flag then
   writeln('Scitaem do pervogo otric. cisla pod nomerom=',m)
   else
   begin
   writeln('Scitaem vse elementy massiva');
   m:=n;
   end;
for i:=1 to m do
    begin
    p:=1;
    for j:=1 to i do
        p:=p*x[j];
    y:=y+p;
    end;
writeln('Y = ',y);
writeln;
end.
 

вроде как работает и даже иногда привельно
 
Добавлено:

Цитата:
artiicc

 

Цитата:
f (x=0) and (y=0) then writeln ('вы ввели неправильное недопустимое значение'); goto 1;

при таком написании goto выполниться всегда в не зависимости от того что получилось в условии если после условия не поставить операторные скобки begin ... end то действие условий распростроняеться только на стройку кода написанную после then а строки кода в паскале разделены ; такчто goto это уже вторая строка.
 
верно эта строчка будет выглядеть так  
if (x=0) and (y=0) then  
 Begin      
 writeln ('вы ввели неправильное недопустимое значение');  
 goto 1;
 end;
тогда goto выполниться только если условие было истинным
и такая ошибка у вас не только в этой строке
 
А вообще то бросали бы вы это гиблое дело с метками и goto
Всего записей: 408 | Зарегистр. 30-03-2006 | Отправлено: 23:55 16-10-2008
Infinite Retrieval

Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
а мне никто не ответит???
Всего записей: 707 | Зарегистр. 22-02-2008 | Отправлено: 00:11 17-10-2008
a008888



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
diablist
Я вернулся; с гостинцами. Задача II. Скачать

Цитата:
Ругается на эту строчку

Ругань, значит.... Любопытно, какая у Вас версия Паскаля (наверно шапочная). Балуйтесь лучше в Free PascalПодробнее....
Задача I, работающая и на шапочной версии. Скачать
Всего записей: 1112 | Зарегистр. 09-11-2007 | Отправлено: 01:44 17-10-2008 | Исправлено: a008888, 01:46 17-10-2008
yakostik

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

Цитата:
Infinite Retrieval

Цитата:
да, и ещё один вопрос, как сделать массив g:array [1..500000] ???

 
Идея заносить все числа в массив а потом просто считать сколько каких было хороша но как по мне есть много но
Если я ничего не путаю то массив в памяти создается единым не фрагментированным блоком тоесть для большого массива ты можеш просто не найти такого куска памяти,а во вторых опять если не путаю максимум массив можно создать на 32767 элементов (в integer который отведен под индекс больше не засунеш) стаеться либо играть с многомерностью, либо с многомассивностью либо
 
Я лично делал бы массив в виде списка связанного по адресам
что то типа вот такого
 
type
      Table =  record
                 m:array[1..2] of longint
               end;
      TableAdres = ^TTable;
      TTable = record
                   Fields : Table;
                   Prior  : TableAdres;
                   Next   : TableAdres;
                 end;
перемещаться по списку можно такими процедурами например
 
 procedure Prior(var TblP:TableAdres);
     begin
       if TblP^.Prior <> nil then
                   TblP:= TblP^.Prior;
     end;
    procedure Next(var TblN:TableAdres);
     begin
       if TblN^.Next <> nil then
                 TblN:= TblN^.Next;
     end;
 
а выборку и запись делать как то так
procedure read(var Tbl1:TableAdres):byte;
begin
tabl^.Fields.m[1]:=a;
end
 
ну и создание и удаление массива записей
procedure CreatTable(var Tbl:TableAdres);
      begin
        New(Tbl);
        Tbl^.Prior:= nil;
        Tbl^.Next:= nil;
      end;
 
 procedure DeleteTable (TblDel:TableAdres);
       var
          Tbl1  :TableAdres;
      begin
        Last(TblDel);
        while TblDel^.Prior <> nil do
          begin
              Tbl1 := TblDel^.Prior;
              Dispose(TblDel);
              TblDel:=Tbl1;
          end;
        Dispose(TblDel);
      end;
 
Когда то это работало надергал со своей очень старой программки плюсы размер массива ничем не ограничен минус сложность в реализации  
удачи буду рад если помог
Всего записей: 408 | Зарегистр. 30-03-2006 | Отправлено: 01:45 17-10-2008
diablist



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
a008888
ООо так быстро большущее человеческое спасибо
Если чесно я вообще не под паскаль компилирую, а под Делфи в виде консольных прог обычно все ок....а тут видимо не катит, значит будем компилить под FreePascal
Большое спасибо еще раз, очень выручили
P.S. А винду возможно и не надо было переустанавливать, обычно есть всегда другой выход
Всего записей: 898 | Зарегистр. 29-06-2002 | Отправлено: 03:00 17-10-2008 | Исправлено: diablist, 03:08 17-10-2008
DiMb9IH

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
yakostik
Я Тебе Очень Благодарен, ты мой спаситель! )
Всего записей: 7 | Зарегистр. 17-09-2008 | Отправлено: 07:38 17-10-2008
SERGE_BLIZNUK

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

Цитата:
да, и ещё один вопрос, как сделать массив g:array [1..500000] ???  

 
Задачка красивая.
 
1) я полностью согласен с yakostik. я бы тоже решал её через динамически создаваемые элементы (динамический список).
Только, скорее всего, сразу, при вводе очередного числа искал ему пару, и, если находил, число в список не добавлял, а найденное удалял из списка.
После последнего числа там оставалось только то значение, которое не имеет пары
(или несколько значений, не имеющийх пар ;-)
 
Есть небольшое уточнение. Массив можно создать и чуть-чуть побольше:
(например,   a : array[1..64000] of char;)
Общий размер всех переменных (в т.ч. и размер массивов) в DOS TurboPascal ограничен сегментом данных (64К):

  +------------------------+
  &#9474; Data segment too large &#9474;
  +------------------------+
 
 The maximum size of a program's data segment
 is 65520 bytes, including data declared by the
 used units.

 
2) если использовать Дельфи, то там совсем другая петрушка:
вот, без проблем компилируется (на 500 миллионов целых чисел массивчик ;-):
var
  a : array[1..500000000] of integer;
 
хотя я бы всё равно рекомендовал играться с динамическими списками :-))
Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 09:43 17-10-2008 | Исправлено: SERGE_BLIZNUK, 10:32 17-10-2008
Infinite Retrieval

Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
yakostik
SERGE_BLIZNUK
Спасибо, будет время разберусь, а сейчас меня ждёт мат анализ и лаба пофизике (
 
А вообще, что советуете, я вообще паскаль фигово знаю, про указатели услышал лишь неделю назад на лекции. Что советуете, доизучить нормально паскаль, а потом приступить к C, или сразу к C?
Всего записей: 707 | Зарегистр. 22-02-2008 | Отправлено: 10:57 17-10-2008
SERGE_BLIZNUK

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

Цитата:
А вообще, что советуете, я вообще паскаль фигово знаю, .... Что советуете, доизучить нормально паскаль, а потом приступить к C, или сразу к C

А это зависит от того, какую Вы цель ставите перед собой (как программистом).  
Не хочется развязывать священные войны, но, мне кажется, что Паскаль (только, не TurboPascal - а, разумеется, Delphi) - чуть попроще. C\C++ - чуть посложнее... А может вообще стоит заняться изучением C# и программированием под .NET ...  
решать Вам... :-)  
 
Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 11:31 17-10-2008
yakostik

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

Цитата:
А вообще, что советуете, я вообще паскаль фигово знаю, про указатели услышал лишь неделю назад на лекции. Что советуете, доизучить нормально паскаль, а потом приступить к C, или сразу к C?

Лично мне после Делфи на Си жилось очень не комфортно пока C# не вышел сейчас как то все равно что делфи что c#
Всего записей: 408 | Зарегистр. 30-03-2006 | Отправлено: 13:02 17-10-2008
pakusya

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
привет!!!!!!!я здесь первый раз и уже прошу помочь. поступила на дистанционно-зоочное отделение,толком никакой литературы нет. пожалуйста если можно помогите решить:
 задание: написать программу вычесления произведения первых 40 членов последовательности(вывести список членов последовательности по 10 чисел в ряд) с общим членом Ak=(2*k+1)/(3*k-2) .
и еще как написать в программе уравнение: y=1+x/2+x(в квадрате)/3+х(в кубе)/3+.... .
заранее огромное спасибо.
мой e-mail:lara.pak@mail.ru
Всего записей: 21 | Зарегистр. 17-10-2008 | Отправлено: 16:48 17-10-2008
Открыть новую тему     Написать ответ в эту тему

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