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

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

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите с задачкой. Данны два массива Х и Y. определить количество элементов, кратных заданному числу m в каждом столбце массивов и записать полученные значения в одномерные массивы х1 и у1. Заранее благодарен
Всего записей: 1 | Зарегистр. 13-03-2009 | Отправлено: 21:37 11-04-2009
Vetal07

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ну помогите с задачкой
======
Задание:  
======
Сформировать запись, имеющую следующую структуру  
type пассажир=record  
фамилия:string; имя:string; номер рейса:string; количество вещей:integer; общий вес:  
 
integer; end;  
и определить:  
-рейс с максимальным весом багажа;  
-пассажира с наибольшим количеством вещей;  
-вывести список пассажиров и информацию об их багаже, улетающих данным рейсом.  
======
Мое не полное решение
======

Код:
 
program lab4_2;
uses crt;
type pass=record
fam:string;
imya:string;
nom:string;
kol:integer;
ves:integer;
end;
var
maxves:array [1..30] of pass;
a:array [1..20] of string[20];
r:string[20];
max:real;
l,n,i,j,ve,ko,v,ch:integer;
p:real;
{...}
procedure vvod;
begin
repeat
i:=i+1;
writeln ('Vvedite dannie ',i,' passagira');
writeln ('familiya');
readln (fam);
writeln ('imya');
readln (imya);
writeln ('nomer reisa');
readln (nom);
writeln ('kol-vo veshei');
readln (kol);
writeln ('obshii ves');
readln (ves);
until i=n;
end;
{...}
Procedure maxves;
begin
for i:=1 to n do
begin
maxves[i]:=???????????????????????
writeln('Reys',i,' s max vesom bagaja: ',maxves:0:0);
readln;
end;
end;
{...}
Procedure Passmaxvejei;
begin
for i:=1 to n do
begin
for i:=1 to n do
max:maxves[1];
for i:=2 to n do
if sred[i]>max then
max:=maxves[i];
for i:=1 to n do
begin
if maxves[i]=max then
begin
writeln('Passajir s max kol-om vejey - ',a[i].kol);
readln;
end;
end;
end;
end;
{...}
Procedure spisokpass;
  begin
  for i:=1 to n do
  begin
  for i:=1 to n do
  begin
  if maxves[i]=2 then
  begin
  writeln('Spisok Passajirov - ',a[i].fam);
  readln;
  end;
  end;
  end;
  end;
{...}
Begin
Vvod;
writeln('************');
maxves;
writeln('************');
Passmaxvejei;
spisokpass;
end.
 
Всего записей: 2 | Зарегистр. 08-04-2009 | Отправлено: 15:03 12-04-2009 | Исправлено: Vetal07, 20:24 13-04-2009
vlrep

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
помогите дорешать задачку (не знаю как задать точность )
вычислить суму ряда с точностью Е(10-3, 10-4,или иначе):
S:=X3/3!  + 4х2/5! +...+ n2xn/(2n+1)!

Код:
program lab3_3;
uses crt;
var an,n,dob:integer ;s,x:real;
begin clrscr ;
 writeln ('vvedit chislo n ta x');
 readln (n,x);
  an:=2; dob :=1*2*3*4 ;
 s:=(x*x*x)/(2*3);
 repeat
   s:=s+((an*an*exp(an*ln(x)))/(dob *(2*an+i)));
 
 dob:=dob*(2*an+i)*(2*an+2);
 inc(an);
 until an>n;
 writeln ('s= ',s:4:8);
 readkey;
 end.

Всего записей: 39 | Зарегистр. 21-03-2009 | Отправлено: 18:12 12-04-2009 | Исправлено: vlrep, 19:05 12-04-2009
Ulllllka

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите пожалуйста, два дня мучаюсь, и в итоге запуталась окончательно.
Дан график у=2*x^2+3*x+0.5
(^ - степень).
Нужно чтобы этот график отобразился на экране с помощью какого-то символа, ну я взяла символ "*"
Всего записей: 1 | Зарегистр. 13-04-2009 | Отправлено: 17:19 13-04-2009
evggve



Junior Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Доброго вреемени суток! Прошу помочь...
Выдали мне тут задание - разобраться с программкой, написаной лет 15-20 назад... %)
Имеется:
1. Экзешник и исходники программы на паскале
2. Компиллятор Паскаль. Не могу определить версию ... Самому смешно, но "about" или что-то похожее отсутствует напрочь... (папка зовется "PAS5", вот скрин внешнего вида скрин )
3. Папка "OP-TPU" с файлами *.TPU
 
Используя DOSBox удалось запустить саму прогу и даже добиться отображения кириллицы. Пытаюсь править исходники (вспоминая пршлый опыт работ в Паскале), но не могу скомпиллировать имеющийся код - возникают проблемы:
а) Пытаясь работать в предоставленном компилляторе получаю ошибку в первой же строке
Код:
{$A+,B-,D-,E+,F-,G-,I+,L+,N-,O-,R-,S+,V+,X-}
с директивами компилятора - "Error 17: Invalid compiler directive" (ругается на "G-" и "X-").
б) Удалив эти диррективы, получаем следующую ошибку в объявлении модулей
Код:
uses Dos, Graph, OpInline,...
- "Error 72: Unit file format error (OPINLINE.TPU)"
в) Пробую компиллировать этот код в Turbo Pascal 7.1, Borland Pascal 7.0 - в этом случае ошибки а) нету, но ошибка б) остается...
 
Собственно вопросы:
1. Как понять, какая версия Pascal прилагалась? )
2. Следует ли из а) что программа компиллировалась в дргой версии Pascal или исходник не самый последний?
3. Следует ли из б),в) что имеющиеся файлы *.TPU были собраны в какой-то версии Pascal, которой у меня нет? Если "да", то как узнать в какой?
4. В чем еще может быть проблема? - прошу подсказать, а то уже голову сломал, не знаю где копать...
Спасибо!
Всего записей: 42 | Зарегистр. 21-01-2008 | Отправлено: 23:05 13-04-2009 | Исправлено: evggve, 23:11 13-04-2009
SERGE_BLIZNUK

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
evggve
ну 100% всё таки TurboPascal... (возможно 6.0)
киньте любую .TPU-щку - попытаюсь проверить.
OP-TPU (на 99% это Object Professional Copyright (c) TurboPower Software    
(и, при необходимости, найти исходиники данного комплекта не проблема!)
Тогда просто пересоберёте проект под TP 7.1
 
кстати, у меня на TP7.0 строка директив  
{$A+,B-,D-,E+,F-,G-,I+,L+,N-,O-,R-,S+,V+,X-}  
проходит на ура!  
 $X:  Extended Syntax Switch Подробнее...
а директива G- похоже, просто ИГНОРИРУЕТСЯ:

Цитата:
  $G:  Group Unit Segments Directive
Specifies the groups of units you want the
linker to place in the same segment.
   Syntax:        {$G UnitName, UnitName ...}
 Target:
Windows and Protected mode

Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 09:36 14-04-2009
Mandor Sawall

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
evggve
По моему, ето код для BP7.
И еще - хотя ето не прямой ответ на ваш вопрос - совет: забудьте об OP-TPU, а поищите пакет "Object Professional" (фирма TurboPower) и използуйте его; кажется последняя версия была 1.30. Некоторые файлы, например, можно найти в http://www.netbridge.dk/bridge/upload/TurnHelp.zip
 
Добавлено:
Ну, да, совсем забыл: TurboPower выложила как OpenSource все свои наработки; вот OP: http://sourceforge.net/projects/tpopro/
Всего записей: 119 | Зарегистр. 20-03-2003 | Отправлено: 09:38 14-04-2009 | Исправлено: Mandor Sawall, 09:44 14-04-2009
V1s1ter



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

Цитата:
1. Как понять, какая версия Pascal прилагалась? )  

При запуске пишет.
По внешнему виду - Turbo Pascal версия 3.00

Цитата:
2. Следует ли из а) что программа компиллировалась в дргой версии Pascal или исходник не самый последний?

Да.

Цитата:
3. Следует ли из б),в) что имеющиеся файлы *.TPU были собраны в какой-то версии Pascal, которой у меня нет? Если "да", то как узнать в какой?

Да. Вышлеш tpu может помогу, скорее всего в 6-й версии, до 4 версии служебная информация в tpu, по моему не писалась.

Цитата:
4. В чем еще может быть проблема? - прошу подсказать, а то уже голову сломал, не знаю где копать...  

Найти исходники Object Professional от TurboPower Software (как правильно заметил SERGE_BLIZNUK), по моему у меня остались, но посмотреть могу только вечером. Если найдеш раньше - черкни на форум чтоб я старые диски не ковырял, много их у меня...  
 
Всего записей: 948 | Зарегистр. 06-02-2007 | Отправлено: 11:57 14-04-2009
akaGM

Platinum Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
вы чё?
 
{$G+} {$G-} всегда были и есть расширением инструкций 86 --> 286
 
V1s1ter

Цитата:
При запуске пишет.

кто, экзюк? неправда ваша...

Цитата:
По внешнему виду - Turbo Pascal версия 3.00

КТО? гы
ты его видел когда-нибудь? в нём никогда не было ни юнитов, ни такой среды и генерил он только *.com формат...
а это среда от 5.0 до 7.1 в обычном текстовом режиме...
Всего записей: 24107 | Зарегистр. 06-12-2002 | Отправлено: 12:43 14-04-2009 | Исправлено: akaGM, 12:51 14-04-2009
SERGE_BLIZNUK

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
evggve
посмотрите на Ваш файл turbo.exe
судя по скриншоту это версия 5.5
(TURBO.EXE           156321 02.05.89 05:50)
(Кстати, помнится, время модификации файлов соответствовало версии!..)
Возможно скриншот от более старой версии, например 5.0. Но точно не 6.0/7.0 (в версии 6.0 уже другой интерфейс был)
 

Цитата:
Turbo Pascal версия 3.00  

кстати, у меня есть версия 3.02 (в архиве 170 кб) - надо?
Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 14:06 14-04-2009
dafnadafna

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Входной файл 'words.txt'. в каждой строчке только одно слово, всего разных слов не более 200. Нужно вывести слово которое встречается в файле чаще других (дано указание воспользоваться массивом на 200 записей)  
 
Добавлено:
Помогите пожалуйста. Очень-очень надо
Всего записей: 3 | Зарегистр. 14-04-2009 | Отправлено: 18:03 14-04-2009
SERGE_BLIZNUK

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
dafnadafna
ну, готовое решение давать — только Вас портить! но подсказать — подскажу!
как и для любой задачи, здесь есть несколько способов решения:
предлагаю два, на выбор:
1)  
описываем массив из записей (или два массива, это как Вам будет понятней, так и делайте)
заводим счётчик слов, помещённых в массив, заносим туда ноль.
Потом в цикле, пока не достигли конец файла:
читаем очередное слово, в цикле от 1 до "счётчик слов" перебираем слова и проверяем, есть уже такое слово в массиве, или нет:
если нет - увеличиваем "счётчик слов" на единицу,
  добавляем в массив Massiv1[счётчик слов]:= СЛОВО;
  количество повторов данного слова устанавливаем в единицу: Massiv2[счётчик слов]:= 1;
 
если такого слова ещё уже было раньше, то просто увеличиваем  количество повторов данного слова : Massiv2[счётчик слов]:= Massiv2[счётчик слов] + 1;
 
дальше проходим по всем словам, ища максимальное значение повторов.
 
Алгоритм 2.
Заносим все слова в массив (в данном случае можно обычный одномерный)
Сортируем его (можно методом обмена, он же - метод "пузырька")
Потом проходим считая, сколько слов одинаковых подряд... Если больше, чем в прошлый раз, берём это количестов, как максимальное значение повторов.
 
Реализуйте код. А будут трудности — пишите, поможем...
 
Успехов.
Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 20:55 14-04-2009
rsmms

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравствуйте! Помогите с решением задачи! Незнаю с чего начать....подскажите алгоритм, а код сама напишу.
Руководство фирмы анализирует работу за последние К лет. Одна из задач, кото-рая решается, заключается в определении самого длительного промежутка времени, в тече-ние которого некий обобщенный показатель М работы фирмы был постоянный. Написать программу определения и вывода на экран данного временного интервала (указать год нача-ла и год конца данного участка).
Всего записей: 7 | Зарегистр. 01-04-2009 | Отправлено: 11:03 15-04-2009
masterhdd

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



запрос на бан ты уже выпросил
Всего записей: 2 | Зарегистр. 15-04-2009 | Отправлено: 11:24 15-04-2009 | Исправлено: ShIvADeSt, 02:09 16-04-2009
yakostik

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

Цитата:
Одна из задач, кото-рая решается, заключается в определении самого длительного промежутка времени, в тече-ние которого некий обобщенный показатель М работы фирмы был постоянный. Написать программу определения и вывода на экран данного временного интервала (указать год нача-ла и год конца данного участка).

Я бы решал как то так
Есть некий масси в который занесены данные по годам для этого показателя M и временные интервалы (года, месяцы и т.д.) далее если требуется устанавливаем какой-то зазор между для М если это требуется (ну типа считать постоянным если разница не привышет сколько то там процентов), сортируем массив по дате и далее идем по массиву и считаем промежуток сколько м входит в интервал запонимаем длинну промежутка и считаем ее максимальной, потом ищем новый промежуток и если он длинне то считам максимумом его
 
Всего записей: 408 | Зарегистр. 30-03-2006 | Отправлено: 12:25 15-04-2009
rsmms

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

Цитата:
[/q]
[q]Я бы решал как то так  
Есть некий масси в который занесены данные по годам для этого показателя M и временные интервалы (года, месяцы и т.д.) далее если требуется устанавливаем какой-то зазор между для М если это требуется (ну типа считать постоянным если разница не привышет сколько то там процентов), сортируем массив по дате и далее идем по массиву и считаем промежуток сколько м входит в интервал запонимаем длинну промежутка и считаем ее максимальной, потом ищем новый промежуток и если он длинне то считам максимумом его  

 
Ээээ....непонятно....
Всего записей: 7 | Зарегистр. 01-04-2009 | Отправлено: 13:33 15-04-2009
evggve



Junior Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Всех благодарю за отзывчивость!

Цитата:
1. Как понять, какая версия Pascal прилагалась? )  

Это версия Turbo Pascal 5.0 (about выскакивает по SHIFT+F10, хорошие люди подсказали).
Итак, ищу Object Professional Copyright TurboPower Software, но тут
Цитата:
вот OP: http://sourceforge.net/projects/tpopro/
этого пакета нет ("No File Packages Defined", Ссылка ) или я чего-то недопонимаю? Взял пакет от Mandor Sawall

Цитата:
Некоторые файлы, например, можно найти в http://www.netbridge.dk/bridge/upload/TurnHelp.zip
, пересобрал все в TP 7.1 (также, пересобрав используемый модуль "WCTAVKA.TPU" - повезло, был исходник) - Скомпилировано!! Далее при запуске (из DOSBox)  "Graphics not initialized (use InitGraph)" Сейчас с этим разбираюсь,  а пока еще вопрос: может ли подобная ошибка быть из-за "плохих" модулей Object Professional, которые я скачал? Стоит ли искать другие? Тогда,  V1s1ter,
Цитата:
по моему у меня остались
можешь посмотреть?
Спасибо!
 
 
 
Всего записей: 42 | Зарегистр. 21-01-2008 | Отправлено: 03:11 16-04-2009 | Исправлено: evggve, 03:14 16-04-2009
V1s1ter



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

Цитата:
Далее при запуске (из DOSBox)  "Graphics not initialized (use InitGraph)" Сейчас с этим разбираюсь,  а пока еще вопрос: может ли подобная ошибка быть из-за "плохих" модулей Object Professional, которые я скачал?  

Нет это из за неустановленных графических драйверов для экрана.
В инстале Турбо паскаля есть примеры, ищи по тому же InitGraph.
Заставь их заработать, а потом в своем проекте сделай тоже самое. Если мне память не изменяет в папке с програмой должны быть файлы *.bgi (например CGA.BGI или EGAVGA.BGI) это те самые дрова, подкличаются так:

Код:
 
uses
  Crt, Graph;
var
  GraphDriver, GraphMode : integer;
begin
  GraphDriver := Detect;
  DetectGraph(GraphDriver, GraphMode);
  TestGraphError(GraphResult);
  case GraphDriver of
    CGA        : begin
                   GraphDriver := CGA;
                   GraphMode := CGAC1;
                 end;
    MCGA       : begin
                   case GraphMode of
                     MCGAMed, MCGAHi: GraphMode := MCGAC1;
                   end;
                 end;
    EGA         : begin
                      GraphMode := EGAHi;
                  end;
  end;
  InitGraph(GraphDriver, GraphMode, '');
 
 
Ну и ссылка на все Паскаль + Куча библиотек ~ 30 метров
Паскаль патченный под новые процессоры.
http://rapidshare.com/files/221837402/BP.rar.html
 
Добавлено:
evggve
И всетаки я Вас не совсем обманул - версию он при запуске пишет.
Хотя на внешний вид вроде 3-я. Прости не специально это я, на зрительную память понадеялся.  
Всего записей: 948 | Зарегистр. 06-02-2007 | Отправлено: 03:44 16-04-2009
badima

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите пожалуйста задали лабу ничего не получается    
Создать приложение в PASCAL со следующим функционалом:
  – Приложение предназначено для создания и редактирования однонаправленных
списков;
  – Выбор операции над списком производится пользователем в режиме меню.
  – Ввод параметров производится с клавиатуры.
Всего записей: 1 | Зарегистр. 16-04-2009 | Отправлено: 09:00 16-04-2009
akaGM

Platinum Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
evggve
напиши так:
Код:
var
 gd, gm: integer;
...
begin
  gd := vga;
  initgraph(gd, gm, 'X:\path где-там-у-тебя-сидит-файл egavga.bgi');
...
и всё у тебя будет...
Всего записей: 24107 | Зарегистр. 06-12-2002 | Отправлено: 14:31 16-04-2009 | Исправлено: akaGM, 14:36 16-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