Комментарии в блоге "Блог Мохова С.А." на "10В класс: Информатика от 7.05.2020" Комментарии в блоге "Блог Мохова С.А." на "10В класс: Информатика от 7.05.2020" http://sammitportal.ru/blog/teacher/?page=post&blog=blog_mokhov&post_id=10v-klass-informatika-ot-7052020 ru http://backend.userland.com/rss2 Thu, 28 Mar 2024 21:42:56 +0300 Комментарии на "10В класс: Информатика от 7.05.2020" от Makarov uses Graph;
var Gd, Gm: smallint;
i,j,k,l,r,r1: word;
begin
Gd:= Detect;
InitGraph(Gd, Gm, '');
setcolor(4);
setfillstyle(1,15);
k:=1;
l:=1;
for i:=1 to (GetmaxX div 100) do begin
 for j:=1 to (GetmaxY div 100) do begin
 setcolor(4);
setfillstyle(1,15);
 bar(k,l,k+100,l+100);
   rectangle(k,l,k+100,l+100);
    setcolor(4);
    r:=random(2);
    if r=1 then
    setfillstyle(1,7)
    else
    setfillstyle(1,14);
bar(k+16,l+16,k+100-16,l+100-16);
rectangle(k+16,l+16,k+100-16,l+100-16);
r1:=random(2);
setfillstyle(1,8);
    if r1=1 then
bar(k,l+100,k+100,l+84);
    rectangle(k,l+100,k+100,l+84);
k:=k+100;
 end;
k:=1;
l:=l+100;
end;
readln;
CloseGraph;
end.

                                            Я вернулся, теперь буду клепать проги эври дей.]]>
http://sammitportal.ru/blog/teacher/?page=post&blog=blog_mokhov&post_id=10v-klass-informatika-ot-7052020&commentId=952#com952 http://sammitportal.ru/blog/teacher/?page=post&blog=blog_mokhov&post_id=10v-klass-informatika-ot-7052020&commentId=952#com952 Sun, 10 May 2020 13:37:21 +0300
Комментарии на "10В класс: Информатика от 7.05.2020" от Виктория Сторожук http://sammitportal.ru/blog/teacher/?page=post&blog=blog_mokhov&post_id=10v-klass-informatika-ot-7052020&commentId=944#com944 http://sammitportal.ru/blog/teacher/?page=post&blog=blog_mokhov&post_id=10v-klass-informatika-ot-7052020&commentId=944#com944 Thu, 07 May 2020 16:50:53 +0300