Измерительно-вычислительные комплексы (канал общего пользования). Петросьянц В.В. - 156 стр.

UptoLike

ВУЗ: 

ДВФУ | Владивосток

Составители: 

Рубрика: 

155
readln;
c:=0;sim:=27;
end
else Done:=True;
Cur_off;
end
else
begin
Arrow(290-(Item)*20,Black);
Inc(Item);
Arrow(290-(Item)*20,White);
end;
end;
end;
if (c=0) and (sim=27) then Done:=True;
Until Done;
CloseGraph;
Done:=False;
end. 
                  readln;
                  c:=0;sim:=27;
                  end
                  else Done:=True;
                  Cur_off;
                  end
                         else
                  begin
                  Arrow(290-(Item)*20,Black);
                  Inc(Item);
                  Arrow(290-(Item)*20,White);
                  end;
           end;
       end;
   if (c=0) and (sim=27) then Done:=True;
Until Done;
CloseGraph;
Done:=False;
end.




                                 155

Страницы