program progressbar_Console;
uses crt,sysutils;
const lBar=10;
bar100=110;
var i:integer;
procedure pBar(const cp:integer);
var i,n,m:integer;s:string;s1:String;ch:char;
begin
m:=round(100/bar100*cp);
n:=round(lBar/bar100*cp);
s:='[]';
s1:=' '+IntToStr(m)+' % ';
for i:=1 to lBar do
begin
if i<n then ch:=#35 else ch:=#45;
insert(ch,s,pos(']',s));
end;
insert(s1,s,pos('[',s)+1+(lBar div 2));
gotoxy(1,1);writeln(s);
end;
begin
clrscr;
for i:=1 to bar100 do
begin
pBar(i);
delay(50);
end;
end.
Циркуль - острый предмет. На одном конце циркуля есть острая игла, которую нужно ставить на середину листка или там, где вы хотите нарисовать круг.
На другом конце есть специальный карандаш или вставка для него. Им и надо рисовать круг.
2. Рассуждение:
Острым концом нужно поставить точку и отвести карандаш на столько, сколько требуется для круга. Это может быть так же, как и 1 сантиметр, 2 и т.д.
После этого надо не отпускать циркуль, держа его сверху. Другим концом, где карандаш рисуем круг.
3. Повествование:
Им можно очень легко уколоться, если быть к нему неосторожным. К примеру, когда я пришла в школу, мне надо было достать ручку. Мой циркуль и ручка лежали в пенале. Я начала доставать ручку и укололась, было очень больно.
Мне еще повезло, что у меня не пошла кровь.
Будьте осторожны с этим предметом!
