:pascal: создать файл f целого типа. вычислить сумму четных компонент файла. увеличить на значение суммы отрицательные компоненты второй половины файла, после этого из файла f удалить минимальную компоненту. исходный и файл после замены распечатать.

204

470

Посмотреть ответы 2

Ответы на вопрос:

dimabolnygin

Информатика

4,4(38 оценок)

// pascalabc.net 3.3.5, сборка 1636 от 10.03.2018 // внимание! если программа не работает, обновите версию! begin // создание файла var f: file of integer; var n: =20; // размер файла randomize; rewrite(f,'f.bin'); var b: integer; loop n do begin b: =random(-50,50); write(f,b) end; f.close; // вывод содержимого исходного файла reset(f,'f.bin'); while not f.eof do print(f.read); writeln; // нахождение суммы четных компонент файла // в связи с двусмысленностью условия считается, что // понятие четности применяется к значению компоненты. f.reset; var s: =f.readelements.where(t-> t.iseven).sum; // -48 // увеличение на значение суммы отрицательных компонент // второй половины файла f.seek(f.filesize div 2); while not f.eof do begin b: =f.read; if b< 0 then begin b+=s; f.seek(f.filepos-1); write(f,b) end end; // удаляем минимальную компоненту f.reset; var a: =f.readelements.toarray; var imin: =a.indexmin; a: =(a? [: imin]+a? [imin+1: ]).toarray; f.reset; foreach b in a do write(f,b); f.truncate; // вывод содержимого полученного файла f.reset; while not f.eof do print(f.read); writeln; f.close end. пример -21 20 37 -30 6 -32 -25 45 -15 -12 0 31 20 -47 -42 41 -38 36 26 -2 -21 20 37 -30 6 -32 -25 45 -15 -12 0 31 20 -90 41 -86 36 26 -50 замечание чтобы получить именно такие данные, укажите в программе randomize(3);

annaaristova

Информатика

4,8(36 оценок)

1 поколение ЭВМ: ЭВМ, сконструированные в 1946 - 1955 гг.

1. Элементная база: электронно-вакуумные лампы.

2. Соединение элементов: навесной монтаж проводами.

3. Габариты: ЭВМ выполнена в виде громадных шкафов.

Эти компьютеры были огромными, неудобными и слишком дорогими машинами, которые могли приобрести крупные корпорации и правительства.

Лампы потребляли большое количество электроэнергии и выделяли много тепла.

4. Быстродействие: 10−20 тыс. операций в секунду.

5. Эксплуатация: сложная из-за частого выхода из строя электронно-вакуумных ламп.

6. Программирование: машинные коды. При этом надо знать все команды машины, двоичное представление, архитектуру ЭВМ. В основном были заняты математики-программисты. Обслуживание ЭВМ требовало от персонала высокого профессионализма.

7. Оперативная память: до 2 Кбайт.

8. Данные вводились и выводились с перфокарт, перфолент.

II поколение ЭВМ: ЭВМ, сконструированные в 1955 - 1965 гг.

В 1948 году Джон Бардин, Уильям Шокли, Уолтер Браттейн изобрели транзистор, за изобретение транзистора они получили Нобелевскую премию в 1956 г.

1 транзистор заменял 40 электронных ламп, был намного дешевле и надёжнее.

В 1958 году создана машина М-20, выполнявшая 20 тыс. операций в секунду — самая мощная ЭВМ 50−х годов в Европе.

1. Элементная база: полупроводниковые элементы (транзисторы, диоды).

2. Соединение элементов: печатные платы и навесной монтаж.

3. Габариты: ЭВМ выполнена в виде однотипных стоек, чуть выше человеческого роста, но для размещения требовался специальный машинный зал.

4. Быстродействие: 100−500 тыс. операций в секунду.

5. Эксплуатация: вычислительные центры со специальным штатом обслуживающего персонала, появилась новая специальность — оператор ЭВМ.

6. Программирование: на алгоритмических языках, появление первых операционных систем.

7. Оперативная память: 2−32 Кбайт.

8. Введён принцип разделения времени — совмещение во времени работы разных устройств.

9. Недостаток: несовместимость программного обеспечения.

Уже начиная со второго поколения, машины стали делиться на большие, средние и малые по признакам размеров, стоимости, вычислительных возможностей.

Так, небольшие отечественные машины второго поколения («Наири», «Раздан», «Мир» и др.) были в конце 60 -х годов вполне доступны каждому вузу, в то время как упомянутая выше БЭСМ-6 имела профессиональные показатели (и стоимость) на 2−3 порядка выше.

III поколение ЭВМ: ЭВМ, сконструированные в 1965 - 1975 гг.

В 1958 году Джек Килби и Роберт Нойс, независимо друг от друга, изобретают интегральную схему (ИС).

В 1961 году в продажу поступила первая, выполненная на пластине кремния, интегральная схема.

В 1965 году начат выпуск семейства машин третьего поколения IBM-360 (США). Модели имели единую систему команд и отличались друг от друга объёмом оперативной памяти и производительностью.

ibm.PNG

В 1967 году начат выпуск БЭСМ - 6 ( 1 млн. операций в 1 с) и «Эльбрус» ( 10 млн. операций в 1 с).

В 1968 году сотрудник Стэндфордского исследовательского центра Дуглас Энгельбарт продемонстрировал работу первой мыши.

mish.PNG

В 1969 году фирма IBM разделила понятия аппаратных средств (hardware) и программные средства (software). Фирма начала продавать программное обеспечение отдельно от железа, положив начало индустрии программного обеспечения.

29 октября 1969 года проходит проверка работы самой первой глобальной военной компьютерной сети ARPANet, связывающей исследовательские лаборатории на территории США.