|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.05.2013, 09:19 | #1 |
Новичок
Джуниор
Регистрация: 29.05.2013
Сообщений: 2
|
Перевести код с Паскаля на С++ или Си
uses graph,crt;
var grmode: integer; grdriver: integer; up,q: integer; left: integer; b: boolean; procedure slovo; begin line(left,up,left+80,up); line(left+40,up,left+40,up+80); line(left+90,up,left+90+80,up); line(left+90,up+40,left+90+80,up+40 ); line(left+90,up+80,left+90+80,up+80 ); line(left+90,up,left+90,up+80); line(left+180,up,left+180+80,up); line(left+180,up+80,left+180+80,up+ 80); line(left+180,up,left+180,up+80); line(left+270,up,left+270+80,up); line(left+270+40,up,left+270+40,up+ 80); end; begin clrscr; grdriver:=detect; left:=200; initgraph(grdriver,grmode,''); while q<>1000 do begin delay(1200); q:=q+1; if(up+80=getmaxy) then b:=true; if(up=0) then b:=false; if(b=false) then up:=up+1 else up:=up-1; cleardevice; slovo; end; closegraph; end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
перевести код с Паскаля на С++ | Arman107 | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 29.05.2013 09:13 |
Перевести код с Паскаля на Си | majuw | Помощь студентам | 0 | 20.04.2013 13:50 |
Перевести код из Паскаля в С++. | cristianoman | Помощь студентам | 4 | 26.03.2013 00:15 |