1) var f:text; a:array[1..7] of real; i,k,c,x:integer; s:string; begin for i:=1 to 7 do begin readln(x); a[i]:=x; end; assign(f,'file.txt'); rewrite(f); for i:=1 to 7 do begin str(a[i],s); writeln(f,s); end; close(f); reset(f); k:=0; while not eof(f) do begin readln(f,s); val(s,x,c); if x<0 then k:=k+1; end; close(f); if k<>0 then writeln('В массиве ',k,' отрицательных элемента(ов)'); else writeln('В массиве нет отрицательных элементов'); erase(f); end.
2) Var a,b,c,d:integer;
Function max(a,b:integer):integer; begin if a>b then max:=a else max:=b; end;
Begin readln(a,b,c,d); a:=(max(a,b)); b:=(max(c,d)); writeln('max=',max(a,b)); End.
В 1956г (13 сентября) IBM создала первый магнитный "диск" - 50 дисков диаметром 24 дюйма - в 5мб. А первый жесткий диск для микрокомпьютеров (или как теперь называют PC) - в 1980г фирма Seagate сделала опять-таки 5мб диск, и размером он был всего лишь вдвое толще 5-ти дюймового флопповода.
1956 — жесткий диск IBM 350 в составе первого серийного компьютера IBM 305 RAMAC. Накопитель занимал ящик размером с большой холодильник, а общий объем памяти 50 вращавшихся в нем покрытых чистым железом тонких дисков диаметром с большую пиццу (610 мм) составлял около 4,4 мегабайт (5 миллионов 6-битных байт)
1980 — первый 5,25-дюймовый Winchester, Shugart ST-506, 5 Мб 1986 — Стандарт SCSI 1991 — Максимальная ёмкость 100 Мб 1995 — Максимальная ёмкость 2 Гб 1997 — Максимальная ёмкость 10 Гб 1998 — Стандарты UDMA/33 и ATAPI 1999 — IBM выпускает Microdrive ёмкостью 170 и 340 Мб 2002 — Взят барьер адресного пространства выше 137 Гб (проблема 48-bit LBA) 2003 — Появление SATA 2005 — Максимальная ёмкость 500 Гб 2005 — Стандарт Serial ATA 3G 2005 — Появление SAS (Serial Attached SCSI) 2006 — Применение перпендикулярного метода записи в коммерческих накопителях 2006 — Появление первых «гибридных» жёстких дисков, содержащих блок флэш-памяти 2007 — Hitachi представляет первый коммерческий накопитель ёмкостью 1 Тб 2008 — Seagate Technology LLC представляет накопитель емкостью 1,5 Тб
512=2^9. Следовательно, 9 бит.