Размер изображения = 256*128*4 бит это за 8 сек
<span>за одну сек это будет 256*128*4 / 8 = 16384 бит в секунду = 0,015625 Мегабит в секунду, как сейчас модно мерять в мегабитах</span>
Предназначен для исполнения<span>может иметь бесконечное число шагов.
</span>
А)Мои документы
Б)Сетевое окружение
Простите если не правильно,но других вариантов я не знаю!
1
2
3
4
5
6
7
8
9
10
11
12
13
14 procedure TForm1.Button1Click(Sender: TObject);
var
k,i,j:integer;
begin
k:=10;
for i:=1 to 90 do begin
if (k mod 7)=0 then begin
j:=j+1;
stringgrid1.cells[1,i]:=inttostr(k);
end;
k:=k+1;
end;
label1.Caption:=inttostr(j);
end;