Onajonm: существует несколько типов оптических дисков: cd-диски – для записи и считывания информации с них используется инфракрасный лазер, на cd-диск может быть записано до 700 мбайт информации; dvd-диски – имеют значительно большую информационную емкость, чем сd-диски, так как для записи и считывания информации с них используется лазер с меньшей длиной волны и оптические дорожки на них имеют меньшую толщину и размещены более плотно. на одной стороне dvd-диска умещается 4,7 гбайт информации, но бывают диски двухслойные, тогда объем может достигать 8,5 гбайт. в оптических дисководах используется оптический принцип записи и считывания информации. информация на оптическом диске хранится на одной спиралевидной дорожке, идущей от центра диска к периферии и содержащей чередующиеся участки с плохой и хорошей отражающей способностью.
Const n1=15; n2=10; n3=12; type V=array[1..15] of string; procedure M_in(s:string; var a:V; n:integer); { ввод данных в массив } var i:integer; begin Writeln('Вводите по одному ',n,' элементов массива ',s); for i:=1 to n do Readln(a[i]) end;
procedure M_out(var a:V; n:integer; c:char); { выводит элементы, начинающиеся с указанного символа } var i:integer; begin Writeln('*** Слова на букву ',c,' ***'); for i:=1 to n do if a[i][1]=c then Writeln(a[i]); Writeln end;
var s1,s2,s3:V; begin M_in('S1',s1,n1); M_in('S2',s2,n2); M_in('S3',s3,n3); M_out(s1,n1,'В'); M_out(s2,n2,'Ц'); M_out(s3,n3,'А'); end.
