Написать программу на языке программирования паскаль, который: 1) имеет 10 случайных элементов от 0 до 99 и выводит на экран 2) ищет индекс, равный 25, если такового нет, то сообщает об этом. премного .
Var i:byte; a:array[1..10] of byte; Fortune:boolean; begin Randomize; Write('Элементы массива: '); Fortune:=False; for i:=1 to 10 do begin a[i]:=Random(100); Fortune:=Fortune or (a[i]=25); Write(a[i],' ') end; Writeln; if not Fortune then Writeln('Нет элемента со значением 25') end.
В результате экономического развития в пореформенный период (особенно промышленного подъема 90-х годов XIX в. , завершился к 1880-1890 гг. ) окончательно сложилась система российского капитализма. Это выражалось в росте предпринимательства и капиталов, совершенствовании производства, его технологическом перевооружении, увеличении количества наемной рабочей силы во всех сферах народного хозяйства. Одновременно с другими капиталистическими странами в России происходила вторая техническая революция (ускорение производства средств производства, широкое использование электричества и других достижений современной науки) , совпавшая с индустриализацией. Из отсталой аграрной страны Россия к началу XX в. стала аграрно-индустриальной державой (82 % занято в сельском хозяйстве) . По объему промышленной продукции она вошла в пятерку крупнейших государств (Англия, Франция, США и Германия) и все глубже втягивалась в мировую систему хозяйства.
Правила задания имени файла определяются операционной системой и используемой файловой системой. Вообще файловая система определяет общую структуру именования, хранения и организации файлов в операционной системе. Файловая система FAT (File Allocation Table) поддерживается операционнымисистемами DOS и Windows (в DOS — FAT16; в Windows9x — FAT16 и FAT32). Это файловая система, основанная на таблице размещения файлов, которая поддерживается операционной системой для отслеживания состояния различных сегментов дискового пространства, используемого для хранения файлов. NTFS (Windows NT File System) — файловая система операционных систем Windows NT и Windows 2000. Улучшенная по сравнению с FAT файловая система, разработанная для использования специально с ОС Windows NT. Она выполняет те же функции, что и FAT, но, кроме того, поддерживает средства восстановления файловой системы и допускает использование чрезвычайно больших носителей данных. Также поддерживает объектно-ориентированные приложения, обрабатывая все файлы как объекты с определяемыми пользователем и системой атрибутами. Каждый файл на томе NTFS представлен записью в специальном файле, называемом “главной файловой таблицей” (MFA). В операционных системах семейства DOS имя файла может содержать от 1 до 8 символов, можно использовать символы латинского алфавита, арабские цифры и некоторые другие символы; есть ряд символов, использование которых в имени запрещено. В операционных системах семейства Windows имя может содержать уже от 1 до 255 символов, причем набор символов, из которых можно составлять имена файлов, расширяется. В частности, можно использовать буквы национальных алфавитов, пробелы и т. д. Windows, как правопреемница DOS, обеспечивает совместимость собственных “длинных” имен с короткими именами DOS, т. е. у файла Windows есть дополнительный атрибут — имя этого файла в DOS. Строчные и прописные буквы в именах файлов не различаются. По-другому дело обстоит в операционных системах семейства Unix. Там строчная и прописная буквы различаются, поэтому имена, записанные одними и теми же буквами, но имеющие различия в регистрах, будут разными. Расширение имени файла записывается после точки и может содержать от 1 до 3 символов в DOS и больше 3 — в Windows. Чаще всего в расширение вкладывается определенный смысл (хотя пользователь может задавать и бессмысленные расширения) — оно указывает на содержимое файла или на то, какой программой был создан данный файл. Например, DOC, TXT — расширения текстовых файлов, COM, EXE — исполнимых файлов, INI — инициализационных файлов, PAS, BAS, CPP — исходные тексты программ на соответствующем языке программирования, и т. д. В операционной системе Windows именно по расширению файлы ассоциируются с определенной программой, с которой они могут быть открыты для просмотра или модификации. .
i:byte;
a:array[1..10] of byte;
Fortune:boolean;
begin
Randomize;
Write('Элементы массива: ');
Fortune:=False;
for i:=1 to 10 do begin
a[i]:=Random(100);
Fortune:=Fortune or (a[i]=25);
Write(a[i],' ')
end;
Writeln;
if not Fortune then Writeln('Нет элемента со значением 25')
end.
Тестовые запуски:
Элементы массива: 86 57 51 82 5 25 20 77 67 86
Элементы массива: 80 0 7 50 1 12 61 17 96 95
Нет элемента со значением 25