Итоговая работа.
Подготовка реферата «История развития компьютерной техники»
Реферат (от лат. rеfеrо - докладываю, сообщаю) — краткое изложение научной проблемы, результатов научного исследования, содержащихся в одном или нескольких произведениях идей и т. п.
Посмотреть требования к оформлению реферата файл «Требование к реферату»
Этапы подготовки реферата:
1. В текстовом процессоре создайте новый документ и последовательно скопируйте в него содержимое файлов:
Введение.rtf,
Начало эпохи ЭBM.rtf,
Первое поколение ЭBM.rtf,
Второе поколение ЭBM.rtf,
Третье поколение ЭBM.rtf,
Четвёртое поколение ЭBM.rtf,
Заключение.rtf.
2. Сохраните результат работы в личной папке под именем Реферат.rtf.
3. Озаглавьте каждый из шести разделов документа (названия разделов могут совпадать с названиями соответствующих файлов).
4. Отформатируйте документ в соответствии с требованиями к реферату (файл «Требование к реферату»)
5. Добавьте в начало документа подготовленную титульную страницу (файл «Титул.rtf»)
6. В сети Интернет найдите информацию о С. А. Лебедеве и дополните ею текст реферата.
7. Узнайте, когда и кем был разработан первый массовый персональный компьютер, и добавьте эту информацию в соответствующий раздел реферата.
8. Найдите в сети Интернет изображения ЭВМ разных поколений. Вставьте по одному наиболее интересному изображению в соответствующие разделы.
9. Добавьте в реферат раздел «Сравнительные характеристики поколений ЭВМ» и включите в него таблицу:
Характеристики Поколения ЭВМ
I II III IV
Годы применения
Элементная база
Размеры
Количество ЭВМ в мире
Быстродействие
Объём оперативной памяти
Типичные модели
Носитель информации
10. Найдите необходимую информацию в сети Интернет и занесите её в соответствующие ячейки таблицы.
11. Добавьте раздел «Список литературы и Интернет-ресурсов» и включите в него перечень источников информации, которыми вы пользовались при подготовке реферата.
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var x:=ArrRandom(n,-5,25); x.Println;
var y:=ArrRandom(n,-5,25); y.Println;
var z:=x.Zip(y,(p,q)->p-q).ToArray; z.Println;
var s:=z.Sum;
var c:=s<0 ? 'отрицательный' : s=0 ? 'отсутствует' : 'положительный';
Writeln('Сумма равна ',s,', знак суммы ',c)
end.
Пример
n= 13
2 -5 24 3 23 22 -3 6 -3 -2 9 25 8
17 9 11 8 0 -2 -2 2 25 19 16 21 -4
-15 -14 13 -5 23 24 -1 4 -28 -21 -7 4 12
Сумма равна -11, знак суммы отрицательный
program max_elementarray ;
var i, max : integer ;
a : array [1..10] of integer;
begin
for i : = 1 to 10 do
begin
readln(a[i]);
end;
max : = a[1];
for i : = 2 to 10 do
if a[i]> max then max : = a[i];
writeln('max element of array = ',max) ;
readln ;
end.