Turbo pascal как сделать на весь экран

Turbo pascal как сделать на весь экран
Turbo pascal как сделать на весь экран
Turbo pascal как сделать на весь экран
Turbo pascal как сделать на весь экран

@ZX Spectrum-128

Модератор

Эксперт Pascal/Delphi

3652 / 2639 / 1803

Регистрация: 05.06.2014

Сообщений: 12,641

04.12.2015, 17:55 #2 Взято отсюда: Нарисовать флаг России
Pascal 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 uses graph; var x, y, k: integer; xx, yy, a, h, w: real; gd,gm: integer; begin gd:=VGA; gm:=VGAHi; InitGraph(gd,gm,'c:\bp\bgi'); SetViewPort(0,0,400, 400,True); SetBkColor(White); ClearViewPort; a := 0; k := 10; h := 10; w := 0.5; xx := 1 k; yy := H sin( w xx + a ); while xx <= 2.9 k do begin y := round( H sin( w xx + a )); x := round(xx k); putpixel(x, y + 100, DarkGray); putpixel(x, y + 150, DarkGray); putpixel(x, y + 200, DarkGray); putpixel(x, y + 250, DarkGray); xx := xx + 0.02; end; SetColor(DarkGray); line(100, 100 + round(yy), 100, 250 + round(yy)); line(290, 100 - round(yy), 290, 250 - round(yy)); SetFillStyle(SolidFill,Red); floodfill(200, 230, DarkGray); SetFillStyle(SolidFill,LightBlue); floodfill(200, 170, DarkGray); readln; closeGraph; end.

0

Turbo pascal как сделать на весь экран Turbo pascal как сделать на весь экран Turbo pascal как сделать на весь экран Turbo pascal как сделать на весь экран Turbo pascal как сделать на весь экран Turbo pascal как сделать на весь экран Turbo pascal как сделать на весь экран Turbo pascal как сделать на весь экран Turbo pascal как сделать на весь экран Turbo pascal как сделать на весь экран Turbo pascal как сделать на весь экран Turbo pascal как сделать на весь экран Turbo pascal как сделать на весь экран Turbo pascal как сделать на весь экран Turbo pascal как сделать на весь экран

Тоже читают:



Что за подарок сюрприз от ив роше в сентябре

Регулируемый блок питания из компьютерного блока питания своими руками

Схемы металлоискателей с печатными платами

Поделки из природного материала для детского осень

Солнечные электростанции схемы работы