Дискеты.
Дискета представляет собой круглый кусок гибкого пластика, покрытый магнитным окислом. Магнитные диски, использующиеся на больших компьютерах, изготавливаются из жестких металлических пластин, а для дискет используются гибкие пластиковые кружки, что и дало им популярное название "гибкие" или "флоппи" - диски. То, что эти диски были сделаны гибкими, значительно уменьшило вероятность их повреждения при обращении с ними и это в значительной мере определило их успех. Сейчас в компьютерах используются накопители для дискет размером 3,5 дюйма (89 мм) и ёмкостью 1,44 Мбайт. Эти дискеты заключены в жёсткий пластмассовый конверт, что значительно повышает их надёжность и долговечность. На дискетах 3,5 дюйма имеется специальный переключатель - защёлка, разрешающая или запрещающая запись на дискету.
Объяснение:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
uses graphABC;
var d,i:integer;
begin
d:=20;
setwindowsize(44*d,34*d);
centerwindow;
setfontstyle(fsBold);
for i:=1 to 40 do
begin
if i mod 5=0 then
begin
setpencolor(clBlack);
textout(2*d+i*d-d,2*d-d,inttostr(i*d));
end
else setpencolor(clSilver);
line(2*d+i*d,2*d,2*d+i*d,2*d+30*d);
end;
textout(2*d,2*d-20,'0');
for i:=1 to 30 do
begin
if i mod 5=0 then
begin
setpencolor(clBlack);
textout(2*d-30,2*d+i*d-5,inttostr(i*d));
end
else setpencolor(clSilver);
line(2*d,2*d+i*d,2*d+40*d,2*d+i*d);
end;
setpenwidth(2);
setbrushstyle(bsClear);
setpenwidth(4);
rectangle(2*d,2*d,windowwidth-2*d,windowheight-2*d);
line(7*d,7*d,27*d,7*d);
line(32*d,7*d,37*d,7*d);
line(37*d,7*d,37*d,12*d);
line(37*d,17*d,37*d,27*d);
line(37*d,27*d,7*d,27*d);
line(7*d,27*d,7*d,7*d);
setpenwidth(8);
line(8*d,10*d,10*d,8*d);
setpenwidth(2);
moveto(14*d,7*d);
lineto(14*d,10*d);
lineto(10*d,10*d);
lineto(10*d,17*d);
lineto(7*d,17*d);
line(27*d,7*d,27*d,12*d);
arc(27*d,7*d,5*d,270,360);
line(32*d,12*d,37*d,12*d);
arc(37*d,12*d,5*d,180,270);
setbrushcolor(clBlack);
setbrushstyle(bsDiagCross);
rectangle(30*d,22*d,37*d,27*d);
setbrushstyle(bsSolid);
setbrushcolor(clBrown);
rectangle(16*d,7*d,22*d,9*d);
circle(12*d,12*d,d);
rectangle(7*d,20*d,22*d,27*d);
setbrushstyle(bsClear);
rectangle(8*d,21*d,11*d,26*d);
end.
begin
Range(1,15).Tabulate(i->i*i*i).Println(NewLine)
end.
Результат
(1,1)
(2,8)
(3,27)
(4,64)
(5,125)
(6,216)
(7,343)
(8,512)
(9,729)
(10,1000)
(11,1331)
(12,1728)
(13,2197)
(14,2744)
(15,3375)