Borland Pascal 7.0

[Bad Boy]

Повідомлення від ArmHorse

при переводе к синтаксису Паскаля она утратит половину шарма, на Си без рекусии можно немного красивее написать.

а как в Паскале картинки вставлять???

[ArmHorse]

Повідомлення від Bad Boy

а как в Паскале картинки вставлять???

Куда вставлять то?

[Cronus]

Повідомлення від Bad Boy

а как в Паскале картинки вставлять???

http://pascal.sources.ru/articles/107.htm
Учи матчасть (с).

[Magnetto]

Повідомлення від Bad Boy

а как в Паскале картинки вставлять???

GetImage
PutImage

[K@STET]

Незабудь мереименовать в *.rar, или открой с помощью RARа

[Oleg(ator)]

Повідомлення від K@STET

Незабудь мереименовать в *.rar, или открой с помощью RARа

Тема про паскаль а не про С++

[Ganesha]

... хех....
у меня такая *ЦензУрЕд*
буду очень благодарна еси кто-то поможет.

все проги написанные на паскале запускаются нормально... кроме графических. Несмотря на то что и graph.tpu есть, и в той же папке где моя программа, всё равнго не запускается.
Что делать?

[NickDNS]

Повідомлення від Ganesha

... хех....
у меня такая *ЦензУрЕд*
буду очень благодарна еси кто-то поможет.

все проги написанные на паскале запускаются нормально... кроме графических. Несмотря на то что и graph.tpu есть, и в той же папке где моя программа, всё равнго не запускается.
Что делать?

Для работы с модулем Graph тебе нужно его инициализировать. А это делается так:

uses Graph;

var
grDriver: Integer;
grMode: Integer;
ErrCode: Integer;
begin
grDriver := Detect;
InitGraph(grDriver, grMode,'e:\bp7\bgi\egavga.bgi');
ErrCode := GraphResult;
if ErrCode = grOk then
begin
Line(0, 0, GetMaxX, GetMaxY);
Readln;
CloseGraph;
end
else
Writeln('Graphics error:', GraphErrorMsg(ErrCode));
end.

То что выделено красным - это путь к файлу egavga.bgi этот путь впиши сама. Обычно этот файл находится в папке BGI. Ну а там где сиим цветом то это сама программа. Кстати все инструменты которые касаются графа можно найти в хелпе. Выбираешь индекс а потом просто вводишь GRAPH. Там их куча. Line, circle, box и т.д......

[Fagot]

Повідомлення від NickDNS

Для работы с модулем Graph тебе нужно его инициализировать. А это делается так:

uses Graph;

var
grDriver: Integer;
grMode: Integer;
ErrCode: Integer;
begin
grDriver := Detect;
InitGraph(grDriver, grMode,'e:\bp7\bgi\egavga.bgi');
ErrCode := GraphResult;
if ErrCode = grOk then
begin
Line(0, 0, GetMaxX, GetMaxY);
Readln;
CloseGraph;
end
else
Writeln('Graphics error:', GraphErrorMsg(ErrCode));
end.

я думаю проблема не в этом.мне кажется Галина Петровна успела научить Ганешу писать пероцедуру ингр на автомате.Правда Настя?)