1-ші буын машиналарының элементарлы базасы – электронды вакуумды шамдар
2-ші буын машиналарының элементарлы базасы – транзисторлар
3-ші буын машиналарының элементарлы базасы – кіші интегралды схемалар
4-ші буын машиналарының элементарлы базасы – үлкен интегралды схемалар
5-ші буын машиналарының элементарлы базасы – өте үлкен интегралды схемалар
1642 жылы француз математигі Блез Паскаль он тоғыз жасында дүние жүзінде бірінші рет қосу машинасы деген атпен белгілі, жетектер мен дөңгелектерден түратын механикалық есептеу машинасын қүрастырды.
1761 жылы ағылшын Д.Робертсон жүгіртпесі бар навигациялық есептеулер жүргізуге арналған логарифм сызғышын жасады. Мүндай қүрал жасау идеясын 1660 жылдары Исаак Ньютон ұсынған болатын.
1833 жылы ол бағдарлама арқылы басқарылатын "Аналитикалық машина" жобасын жасады. Бүл машинада қазіргі компьютерлерде бар барлық негізгі қүраушылар: бастапқы сандар мен аралық нәтижелерді сақтауға арналған жад, жадтан алынған сандармен амалдар орындайтын арифметикалық қүрылғы, берілген бағдарлама бойынша есептеу барысын қадағалап отыратын басқару қүрылғысы, деректерді енгізу мен оларды басып шығару құрылғысы болып табылады.
1945 жылы венгер текті көрнекті американ математигі Джон фон Нейман ұсынған болатын. Нейман бойынша негізгі бөліктер басқару құрылғысы (БҚ) және арифметикалық-логикалық құрылғы (АЛҚ) жады, сырқы жады, енгізу және шығару құрылғылары болып табылады.
Uses crt; const Q=10000; var a:array [1..Q] of integer; x,k,p,m,n,o:integer; begin write('a='); readln(m); write('b='); readln(n); a[1]:=m; for x:=2 to (n-m+1) do a[x]:=a[x-1]+1; write('Положительные: '); for x:=1 to (n-m+1) do if a[x]>0 then begin inc(p); write(a[x],' '); end; writeln; write('Отрицательные: '); for x:=1 to (n-m+1) do if a[x]<0 then begin inc(o); write(a[x],' '); end; writeln; writeln('Положительных чисел:', p); writeln('Отрицательных чисел:',o); end.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim A() As Integer Dim B() As Integer
Randomize() Dim k As Integer Dim i As Integer i = Rnd() * 100 + 1 ReDim A(i) For k = 0 To i A(k) = Rnd() * -1000 + 500 Next i = Rnd() * 100 + 1 ReDim B(i) For k = 0 To i B(k) = Rnd() * -1000 + 500 Next
Dim countA As Integer Dim countB As Integer
countA = change(A) countB = change(B) Dim msg_A As String For i = 0 To UBound(A) - 1 msg_A = msg_A & A(i) & vbCrLf ' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 Next Dim msg_B As String For i = 0 To UBound(B) - 1 msg_B = msg_B & B(i) & vbCrLf Next If countA = countB Then MsgBox("Количество измененных элементов в двух массивах одинаково") MsgBox(msg_A) MsgBox(msg_B) End Sub
Private Function change(ByRef Massiv() As Integer) As Integer Dim count As Integer Dim i As Integer For i = 0 To UBound(Massiv) - 1 If Massiv(i) > 0 Then Massiv(i) = Massiv(i) / i : count = count + 1 Next Return count End Function
1-ші буын машиналарының элементарлы базасы – электронды вакуумды шамдар
2-ші буын машиналарының элементарлы базасы – транзисторлар
3-ші буын машиналарының элементарлы базасы – кіші интегралды схемалар
4-ші буын машиналарының элементарлы базасы – үлкен интегралды схемалар
5-ші буын машиналарының элементарлы базасы – өте үлкен интегралды схемалар
1642 жылы француз математигі Блез Паскаль он тоғыз жасында дүние жүзінде бірінші рет қосу машинасы деген атпен белгілі, жетектер мен дөңгелектерден түратын механикалық есептеу машинасын қүрастырды.
1761 жылы ағылшын Д.Робертсон жүгіртпесі бар навигациялық есептеулер жүргізуге арналған логарифм сызғышын жасады. Мүндай қүрал жасау идеясын 1660 жылдары Исаак Ньютон ұсынған болатын.
1833 жылы ол бағдарлама арқылы басқарылатын "Аналитикалық машина" жобасын жасады. Бүл машинада қазіргі компьютерлерде бар барлық негізгі қүраушылар: бастапқы сандар мен аралық нәтижелерді сақтауға арналған жад, жадтан алынған сандармен амалдар орындайтын арифметикалық қүрылғы, берілген бағдарлама бойынша есептеу барысын қадағалап отыратын басқару қүрылғысы, деректерді енгізу мен оларды басып шығару құрылғысы болып табылады.
1945 жылы венгер текті көрнекті американ математигі Джон фон Нейман ұсынған болатын. Нейман бойынша негізгі бөліктер басқару құрылғысы (БҚ) және арифметикалық-логикалық құрылғы (АЛҚ) жады, сырқы жады, енгізу және шығару құрылғылары болып табылады.