I поколение ЭВМ: ЭВМ, сконструированные в 1946 - 1955 гг.
1. Элементная база: электронно-вакуумные лампы.
2. Соединение элементов: навесной монтаж проводами.
3. Габариты: ЭВМ выполнена в виде громадных шкафов.
Эти компьютеры были огромными, неудобными и слишком дорогими машинами, которые могли приобрести крупные корпорации и правительства.
Лампы потребляли большое количество электроэнергии и выделяли много тепла.
4. Быстродействие: 10−20 тыс. операций в секунду.
5. Эксплуатация: сложная из-за частого выхода из строя электронно-вакуумных ламп.
6. Программирование: машинные коды. При этом надо знать все команды машины, двоичное представление, архитектуру ЭВМ. В основном были заняты математики-программисты. Обслуживание ЭВМ требовало от персонала высокого профессионализма.
7. Оперативная память: до 2 Кбайт.
8. Данные вводились и выводились с перфокарт, перфолент.
var a:array [1..20] of integer; i:integer; begin randomize; for i:=1 to 20 do begin a[i]:=random(19-(-10)+1)+-10; write (a[i],' '); end; end.
Задача №2
var a:array [1..20] of integer; i:integer; begin writeln('Введите числа в интервале [-20;29]'); for i:=1 to 10 do read(a[i]); for i:=1 to 10 do if (a[i]>-29) and (a[i]<20) then write(a[i],' '); end.
Задача №3
var a:array [1..20] of integer; i,sum:integer; begin randomize; sum:=0; for i:=1 to 20 do begin a[i]:=random(19-(-10)+1)+-10; write (a[i],' '); if a[i]>0 then sum:=sum+1; end; writeln('Количество положительных элементов массива = ', sum); end.
Задача №4
var a:array [1..20] of integer; i:integer; begin randomize; for i:=1 to 20 do begin a[i]:=random(19-(-10)+1)+-10; if a[i]<0 then a[i]:=0; write (a[i],' '); end; end.
Задача №5
var a:array [1..20] of integer; i,sum:integer; begin randomize; sum:=0; for i:=1 to 20 do begin a[i]:=random(19-(-10)+1)+-10; write (a[i],' '); if a[i]>0 then sum:=sum+a[i]; end; writeln('Сумма положительных элементов массива = ', sum); end.
// PascalABC.NET 3.0, сборка 1128 begin var a:=ArrRandom(20,-10,19); a.Println(','); // 1 var b:=ReadArrInteger('Введите 10 целых чисел',10); // 2 Writeln('Количество положительных элементов ', a.Where(x->x>0).Count); // 3 for var i:=0 to 19 do if a[i]<0 then a[i]:=0; Writeln('Массив А после замены отрицательных'); a.Println(','); //4 Writeln('Сумма положительных элементов ', a.Where(x->x>0).Sum) // 5 end.
Тестовое решение: 14,8,9,-5,6,3,3,-10,-8,18,7,13,2,17,-1,0,4,-3,8,-8 Введите 10 целых чисел -5 0 13 -7 -14 11 8 19 -3 -1 Количество положительных элементов 13 Массив А после замены отрицательных 14,8,9,0,6,3,3,0,0,18,7,13,2,17,0,0,4,0,8,0 Сумма положительных элементов 112
Відповідь:
I поколение ЭВМ: ЭВМ, сконструированные в 1946 - 1955 гг.
1. Элементная база: электронно-вакуумные лампы.
2. Соединение элементов: навесной монтаж проводами.
3. Габариты: ЭВМ выполнена в виде громадных шкафов.
Эти компьютеры были огромными, неудобными и слишком дорогими машинами, которые могли приобрести крупные корпорации и правительства.
Лампы потребляли большое количество электроэнергии и выделяли много тепла.
4. Быстродействие: 10−20 тыс. операций в секунду.
5. Эксплуатация: сложная из-за частого выхода из строя электронно-вакуумных ламп.
6. Программирование: машинные коды. При этом надо знать все команды машины, двоичное представление, архитектуру ЭВМ. В основном были заняты математики-программисты. Обслуживание ЭВМ требовало от персонала высокого профессионализма.
7. Оперативная память: до 2 Кбайт.
8. Данные вводились и выводились с перфокарт, перфолент.