Pascalabc.netкак заставить ёлку двигаться вправо до конца экрана по нажатию клавиши е вот сама программа: program anima; uses thermal,graphabc; var k,x,y,x1,y1,x2,y2,readkey: integer; begin setwindowwidth(1000); setwindowheight(800); line(0,700,1500,700); floodfill(5,710,clmoneygreen); kqad(50,700,450,400); floodfill(60,600,clpurple); trngl(250,300,450,400,50,400); floodfill(250,310,clmaroon); kqad(80,420,160,560); line(120,420,120,560); line(80,490,160,490); floodfill(85,495,clcyan); floodfill(150,500,clcyan); floodfill(100,430,clcyan); floodfill(150,430,clcyan); kqad(200,700,300,500); floodfill(250,600,clsilver); ball4(290,610,4); floodfill(291,610,clyellow); floodfill(800,100,clpink); kqad(320,420,400,560); line(360,420,360,560); line(320,490,400,490); floodfill(325,495,clcyan); floodfill(390,500,clcyan); floodfill(340,430,clcyan); floodfill(390,430,clcyan); tree(800,450,850,500,750,500); floodfill(800,460,clgreen); floodfill(800,520,clgreen); floodfill(800,580,clgreen); kqad(780,590,820,700); floodfill(800,600,clmaroon); ball4(900,100,100); floodfill(950,100,clyellow); где thermal - это мой модуль, а tree - сама ёлкамодуль -unit thermal; uses graphabc; procedure ball4(x,y,r: integer); begin circle(x,y,r); end; procedure kqad(x,y,x1,y1: integer); begin rectangle(x,y,x1,y1); end; procedure trngl(x,y,x1,y1,x2,y2: integer); begin line(x,y,x1,y1); line(x1,y1,x2,y2); line(x2,y2,x,y); end; procedure tree(x,y,x1,y1,x2,y2: integer); begin pen.color: =(clgreen); trngl(x,y,x1,y1,x2,y2); trngl(x,y+50,x1+20,y1+50,x2-20,y2+50); trngl(x,y+100,x1+30,y1+90,x2-30,y2+90); end;
Басқа тілде оқу
Download PDF
Бақылау
Өңдеу
Ақпараттық қауіпсіздік — мемлекеттік ақпараттық ресурстардың, сондай-ақ ақпарат саласында жеке адамның құқықтары мен қоғам мүдделері қорғалуының жай-күйі.
Ақпаратты қорғауӨңдеу
Ақпаратты қорғау — ақпараттық қауіпсіздікті қамтамасыз етуге бағытталған шаралар кешені. Тәжірибе жүзінде ақпаратты қорғау деп деректерді енгізу, сақтау, өңдеу және тасымалдау үшін қолданылатын ақпарат пен қорлардың тұтастығын, қол жеткізулік оңтайлығын және керек болса, жасырындылығын қолдауды түсінеді. Сонымен, ақпаратты қорғау - ақпараттың сыртқа кетуінің, оны ұрлаудың, жоғалтудың, рұқсатсыз жоюдың, өзгертудің, маңызына тимей түрлендірудің, рұқсатсыз көшірмесін жасаудың, бұғаттаудың алдын алу үшін жүргізілетін шаралар кешені