1

PRAKTIKA.PAS

@@ -0,0 +1,62 @@
+program pr;
+ uses crt, graph;
+ var tmp_d, tmp_m     :     integer; {screen variables}
+     p                :     char;    {readkey}
+     y_wlcm           :     integer; {Vsplivayushii text}
+     javame           :     string;
+
+     {Procedura inicializacii grafiki}
+     procedure init_screen;
+     begin
+      tmp_d := detect;
+      initgraph(tmp_d, tmp_m, '');
+     end;
+
+     {Procedura inicializacii peremennyh}
+     procedure init_variables;
+     begin
+      y_wlcm := -20;
+      javame := 'JavaME';
+     end;
+
+     {Procedura vyvoda zastavki}
+     procedure helloscreen;
+     begin
+      init_screen;
+      repeat
+       setcolor(7);
+       bar(0,0,640,480);
+       settextstyle(1, 0, 7);
+       {vyvod texta Welcome s tenyu}
+       setcolor(green);
+       outtextxy(172, y_wlcm+2, 'Welcome');
+       setcolor(lightgreen);
+       outtextxy(170, y_wlcm, 'Welcome');
+       inc(y_wlcm);
+       {Vyvod imeni}
+       settextstyle(3, 0, 4);
+       setcolor(red);
+       outtextxy(y_wlcm*2-100, 171, 'Author: Victor aNNiMON Melnik');
+       setcolor(lightred);
+       outtextxy(y_wlcm*2-99, 170,'Author: Victor aNNiMON Melnik');
+       delay(1000);
+      until y_wlcm>100;
+      repeat until keypressed;
+
+     end;
+
+ {Glavnaya programma}
+ begin
+    helloscreen;
+    {
+    repeat p:= readkey;
+      setbkcolor(blue);
+      if(p=#72) then inc(colbk1);
+      if(p=#80) then colbk1:=colbk1-1;
+      if(colbk1<0) then colbk1 := 15;
+      if(colbk1>15) then colbk1 := 0;
+
+    until p=#27;
+    readkey;    }
+    closegraph;
+ end.