Комментарии в блоге "Блог Мохова С.А." на "10В класс: Информатика от 27.04.2020" Комментарии в блоге "Блог Мохова С.А." на "10В класс: Информатика от 27.04.2020" http://sammitportal.ru/blog/teacher/?page=post&blog=blog_mokhov&post_id=10-klass-informatika-ot-27042020 ru http://backend.userland.com/rss2 Fri, 29 Mar 2024 14:53:48 +0300 Комментарии на "10В класс: Информатика от 27.04.2020" от Евгений Чернов uses Graph;
var Gd, Gm: Smallint;
s, c,i,j,g: integer;
 k:boolean;
begin
Gd:= detect;
InitGraph(Gd, Gm, '');
SetFillStyle(1, 1);
Bar(1, 1,getmaxx,getmaxy);
SetColor(0);
for i:= 1 to GetMaxY div 100 do begin
c:= GetMaxY - ((i - 1)* 100);
 for j:= 1 to GetMaxX div 100 do begin
   s:= ((GetMaxX) - ((GetMaxX div 100)*100)) div 2 + ((j - 1) * 100);
   Setfillstyle(1,0);
   Bar(s-1, c - 101, s + 99, c-1);
   SetFillStyle(1, 7);
   Bar(s, c - 100, s + 100, c);
  g:= random(2);
 if g = 1 then
   k:=true
 else
   k:=false;
 If k=true then
   SetFillStyle(1, 14)
  else
   SetFillStyle(1, 8);
   Rectangle(s + 10, c - 10, s + 90, c - 90);
   FloodFill(s + 11, c - 11, 0);
   Line(s + 70, c - 10, s + 70, c - 90);
   Line(s + 70, c - 70, s + 90, c - 70);
       if (j + i) mod 4 = 0 then begin
        SetFillStyle(1, 4);
      Bar(s + 1, c - 49, s + 99, c - 1);
end;
end;
end;
readln;
CloseGraph;
end.  ]]>
http://sammitportal.ru/blog/teacher/?page=post&blog=blog_mokhov&post_id=10-klass-informatika-ot-27042020&commentId=932#com932 http://sammitportal.ru/blog/teacher/?page=post&blog=blog_mokhov&post_id=10-klass-informatika-ot-27042020&commentId=932#com932 Thu, 30 Apr 2020 23:11:21 +0300
Комментарии на "10В класс: Информатика от 27.04.2020" от ??? ??? program domik;
uses graph;
var Gd, Gm: smallint;
a, b: integer;
c, d, e: longint;
begin
Gd:= detect;
initgraph(Gd, Gm, '');
setfillstyle(1, 15);
floodfill(1, 1, 1);
setColor(0);
for c:= 1 to GetMaxY div 100 do begin
b:= GetMaxY - ((c - 1)* 100);
for d:= 1 to GetMaxX div 100 do begin
a:= ((GetMaxX) - ((GetMaxX div 100)*100)) + ((d - 1) * 100);
setfillstyle(1, 6);
rectangle(a, b - 100, a + 100, b);
floodfill(a + 1, b - 1, 0);
e:= random(1);
if e = 1 then
setfillstyle(1, 4)
else
setfillstyle(1, 9);
rectangle(a + 10, b - 10, a + 90, b - 90);
floodfill(a + 11, b - 11, 0);
line(a + 70, b - 10, a + 70, b - 90);
line(a + 70, b - 70, a + 90, b - 70);
end;
end;
readln;
closegraph;
end.  ]]>
http://sammitportal.ru/blog/teacher/?page=post&blog=blog_mokhov&post_id=10-klass-informatika-ot-27042020&commentId=926#com926 http://sammitportal.ru/blog/teacher/?page=post&blog=blog_mokhov&post_id=10-klass-informatika-ot-27042020&commentId=926#com926 Thu, 30 Apr 2020 08:00:51 +0300
Комментарии на "10В класс: Информатика от 27.04.2020" от Черепанова Анна Uses Graph;
Var Gd, Gm : SmaLLInt;
 a,b,i,j,k,n:integer;
Begin
Gd:=Detect;
InitGraph(Gd,Gm,'');
SetFillStyle(1,1);
Bar(0,GetMaxY,GetMaxX,0);
for i:=1 to GetMaxY div 150  do begin
b:=GetMaxY-((i-1)*150);
for j:=1 to GetMaxX div 150 do begin
a:=(GetMaxX-((GetMaxX div 150)*150)) div 2+((j-1)*150);
SetColor(0);
Rectangle(a,b-150,a+150,b);
SetFillStyle(1,7);
FloodFill(a+1,b-1,0);
Rectangle(a+30,b-120,a+120,b-30);
k:=random(4);
if (k=1) or (k=3) then SetFillStyle(1,14)
else
SetFillStyle(1,8);
FloodFill(a+90,b-31,0);
Line(a+90,b-120,a+90,b-30);
Line(a+90,b-90,a+120,b-90);
SetColor(1);
if (j mod 3=0) then begin
if (k=3) then SetFillStyle(1,9)
else SetFillStyle(1,6);
Rectangle(a,b-70,a+150,b);
FloodFill(a+1,b-65,1);
end;
end;
end;
Readln;
CloseGraph;
End.                      ]]>
http://sammitportal.ru/blog/teacher/?page=post&blog=blog_mokhov&post_id=10-klass-informatika-ot-27042020&commentId=925#com925 http://sammitportal.ru/blog/teacher/?page=post&blog=blog_mokhov&post_id=10-klass-informatika-ot-27042020&commentId=925#com925 Wed, 29 Apr 2020 10:38:15 +0300
Комментарии на "10В класс: Информатика от 27.04.2020" от Сергей Мохов http://sammitportal.ru/blog/teacher/?page=post&blog=blog_mokhov&post_id=10-klass-informatika-ot-27042020&commentId=923#com923 http://sammitportal.ru/blog/teacher/?page=post&blog=blog_mokhov&post_id=10-klass-informatika-ot-27042020&commentId=923#com923 Tue, 28 Apr 2020 22:19:32 +0300 Комментарии на "10В класс: Информатика от 27.04.2020" от Олег Калашин Uses Graph;
Var j,i,x,y,k,f,flag:integer;
   Gd,Gm:SmallInt;
begin
 Gd:=Detect;
 InitGraph(Gd,Gm, '');
 x:=250;
 y:=250;
 k:=x;
 SetFillStyle(1,2);
 Bar(0,0,GetMaxX,GetMaxY);
 For j:=1 to 5 do begin
 For i:=1 to 10 do begin
   SetColor(0);
   Rectangle(x,y,x+50,y+50);
   SetFillStyle(1,7);
   Bar(x+1,y+1,(x+50)-1,(y+50)-1);
   SetColor(0);
   Rectangle(x+7,y+7,x+43,y+43);
   Flag:=random(2);
   If Flag=1 then
   SetFillStyle(1,14)
   else SetFillStyle(1,8);
   Bar(x+8,y+8,(x+43)-1,(y+43)-1);
   SetColor(0);
   Line(x+35,y+7,x+35,y+43);
   Line(x+35,y+13,x+43,y+13);
   f:=random(2);
   If f=1 then begin
   SetFillStyle(1,6);
   Bar(x+1,y+25,(x+50)-1,(y+50)-1);
   end;
   x:=x+50;
 end;
 y:=y-50;
 x:=k;
 end;
 Readln;
 CloseGraph;
end.]]>
http://sammitportal.ru/blog/teacher/?page=post&blog=blog_mokhov&post_id=10-klass-informatika-ot-27042020&commentId=922#com922 http://sammitportal.ru/blog/teacher/?page=post&blog=blog_mokhov&post_id=10-klass-informatika-ot-27042020&commentId=922#com922 Tue, 28 Apr 2020 15:50:55 +0300
Комментарии на "10В класс: Информатика от 27.04.2020" от Черепанова Анна Uses Graph;
Var Gd, Gm : SmaLLInt;
 a,b,i,j,k:integer;
Begin
Gd:=Detect;
InitGraph(Gd,Gm,'');
SetFillStyle(1,1);
Bar(0,GetMaxY,GetMaxX,0);
SetColor(0);
for i:=1 to GetMaxY div 150  do begin
b:=GetMaxY-((i-1)*150);
for j:=1 to GetMaxX div 150 do begin
a:=(GetMaxX-((GetMaxX div 150)*150)) div 2+((j-1)*150);
Rectangle(a,b-150,a+150,b);
SetFillStyle(1,7);
FloodFill(a+1,b-1,0);
Rectangle(a+30,b-120,a+120,b-30);
k:=random(4);
if (k=1) or (k=3) then SetFillStyle(1,14)
else
SetFillStyle(1,8);
floodFill(a+90,b-31,0);
Line(a+90,b-120,a+90,b-30);
Line(a+90,b-90,a+120,b-90);
if (j mod 3=0) then begin
if (k=3) then SetFillStyle(1,9)
else SetFillStyle(1,6);
Bar(a,b-70,a+150,b);
end;
end;
end;
Readln;
CloseGraph;
End.  ]]>
http://sammitportal.ru/blog/teacher/?page=post&blog=blog_mokhov&post_id=10-klass-informatika-ot-27042020&commentId=921#com921 http://sammitportal.ru/blog/teacher/?page=post&blog=blog_mokhov&post_id=10-klass-informatika-ot-27042020&commentId=921#com921 Tue, 28 Apr 2020 13:03:44 +0300
Комментарии на "10В класс: Информатика от 27.04.2020" от Виктория Сторожук uses Graph;
var Gd, Gm: Smallint;
 s, c: word;
 i, j, k: byte;
begin
Gd:= detect;
InitGraph(Gd, Gm, '');
       SetFillStyle(1, 1);
       FloodFill(1, 1, 1);
       SetColor(0);
       for i:= 1 to GetMaxY div 100 do begin
           c:= GetMaxY - ((i - 1)* 100);
           for j:= 1 to GetMaxX div 100 do begin
              s:= ((GetMaxX) - ((GetMaxX div 100)*100)) div 2 + ((j - 1) * 100);
              SetFillStyle(1, 7);
              Rectangle(s, c - 100, s + 100, c);
              FloodFill(s + 1, c - 1, 0);
              k:= random(2);
              if k = 1 then
                 SetFillStyle(1, 14)
                 else
                   SetFillStyle(1, 8);
              Rectangle(s + 10, c - 10, s + 90, c - 90);
              FloodFill(s + 11, c - 11, 0);
              Line(s + 70, c - 10, s + 70, c - 90);
              Line(s + 70, c - 70, s + 90, c - 70);
              if (j + i) mod 3 = 0 then begin
                 SetFillStyle(1, 3);
                 Bar(s + 1, c - 49, s + 99, c - 1);
              end;
           end;
       end;
       readln;
CloseGraph;
end.  ]]>
http://sammitportal.ru/blog/teacher/?page=post&blog=blog_mokhov&post_id=10-klass-informatika-ot-27042020&commentId=919#com919 http://sammitportal.ru/blog/teacher/?page=post&blog=blog_mokhov&post_id=10-klass-informatika-ot-27042020&commentId=919#com919 Mon, 27 Apr 2020 20:27:42 +0300