| Автор | Паскаль |
|---|
надо задачку сделать
В графичном режиме нарисовать команду розгалуження(полную и кратую)
могу отблогадорить если захотите
тоок надо седня
хелп плз |
команду розгалуження
а по-русски это как звучит? |
для kirill91:
разветвление |
команда ветвления в паскале - if X then Y else Z. это, видимо, краткая.
case OP of
x : X
else
end
это, видимо, полная.
И что надо нарисовать? |
для kirill91:
http://qb-branching.narod.ru/polnforlin.htm
http://qb-branching.narod.ru/krforlin.htm
надеюсь не рвс |
для kirill91:
нет, краткое ветвление, эт
if лог_выражение then действие;
Полное:
if лог_выражение then действие1 else действие2;
Что надо рисовать - хз)) |
команду розгалуження
а по-русски это как звучит?
команда разветвления |
для Я_не_нюб:
а задание пояснить никак? Блок-схемы нарисовать чтоль? Дык это ж садизм. Оо |
для Balmung:
Блок-схемы нарисовать чтоль? - да |
Rectangle(x1,y1,x2,y2); (x1,y1) - левый верхний угол (x2,y2) - правый нижний
line(x1,y1,x2,y2); прямая из (x1,y1) в (x2,y2)
outtextxy(x,y,text) - вывод строки text в (x,y)
инициализация графики:
const
path='путь в директорию паскаля'; например 'c:\tp'
var
grDriver,grMode,ErrCode : integer;
BEGIN
grDriver:=Detect;
InitGraph(grDriver,grMode,path);
ErrCode:=GraphResult;
if ErrCode=grOk then
PS если не получится, напишу утром |
path='путь в директорию паскаля'; например 'c:\tp'
зачем ето? |
для Я_не_нюб:
путь к графическим драйверам |
для kirill91:
1 раз такое вижу
его обязательно писать? |
для Я_не_нюб:
не обязательно, path мб пустой строкой, тогда паскаль ищет драйвер в текущем каталоге |
для kirill91:
о_О
точно outtextxy(x,y,text) - вывод строки text в (x,y)
я забыл это
спс
только у меня паскаля нету((
не смогу подставить точки |
для Я_не_нюб:
мыло есть? могу скинуть 7.0 |
для kirill91:
нет
спс счас найду))
спс за прогу |
для kirill91:
а С++ есть?
его точно надо скинуть |
для Я_не_нюб:
не за что
чистого С++ увы нету |
для kirill91:
жаль
если чето не пойдет завтра в ЛП напишу |
| тема закрыта by Я_не_нюб (2009-06-12 01:48:50) |
|---|
