<span>ЭВМ 1-го поколения </span><span>функционарировали</span><span> на основе электронных ламп</span>
<span><span> 2-ое поколение - дискретные транзисторные логические элементы вытеснили электронные лампы</span></span>
<span><span><span>Машины 3 поколения — это </span></span></span>машины с единой архитектурой,в качестве элементной базы в них используются интегральные схемы- микросхемы
<span>4 поколение — это теперешнее поколение компьютерной техники, разработанное после 1970 года.</span>
<span><span>А теперь ведутся интенсивные разработки ЭВМ V поколения. Разработки производится на основе больших интегральных схем повышенной степени интеграции</span></span>
<em /><em>VAR</em>
<span><em> mx, ind: Integer;</em></span>
<span><em> n, m, i, j: Integer;</em></span>
<em>
b: Array of Integer;</em>
<em>
a: Array of Array of Integer;</em>
<em>BEGIN</em>
<em>
Read(n); SetLength(a, n+1); </em>
<em> For i := 1 to n do SetLength(a[i], n+1);</em>
<em></em>
<em>
For i := 1 to n do</em>
<em> For j := 1 to n do Read(a[i][j]);</em>
<em></em>
<em> SetLength(b, n+1);</em>
<em> For i := 1 to n do b[i] := a[i][i];</em>
<em></em>
<em> mx := b[1]; ind := 1;</em>
<em> For i := 2 to n do </em>
<em> If (mx < b[i]) then begin </em>
<em> mx := b[i]; ind := i; End;</em>
<em></em>
<em> Write('Макс. элемент гл. диагонали - B[',ind,'] = ', mx);</em>
<em>END.</em>
<em></em>
Или намного проще (если нужен только ответ):
<em>VAR</em>
<em> mx, ind, el: Integer;</em>
<em> n, m, i, j: Integer;</em>
<em>BEGIN</em>
<em> Read(n);</em>
<em></em>
<em> // Присваем макс. элементу самое минимальное число,</em>
<em> // которое точно не встретится в массиве</em>
<em> mx := -999999999;</em>
<em></em>
<em> For i := 1 to n do</em>
<span><em> For j := 1 to n do begin </em></span>
<span><em> Read(el);</em></span>
<span><em> If (i <> j) then Continue;</em></span>
<span><em> If (mx < el) then begin </em></span>
<span><em> mx := el; ind := i; End; End;</em></span>
<em></em>
<span><em> Write('Макс. элемент гл. диагонали - B[',ind,'] = ', mx);</em></span>
<em>END.</em>
Первичный был:
D:\Документы\Фото\2011\Весна
Дальше поднялся на три уровня вверх и оказался в D:\Документы дальше спустился в D:\Документы\Экзамены\Информатика. Вот полный путь
Program prog;
uses crt;
var a,b,c,x,y:real;
begin
clrscr;
write('Ребро параллелепипеда а = ');
readln(a);
write('Ребро параллелепипеда b = ');
readln(b);
write('Ребро параллелепипеда c = ');
readln(c);
writeln;
write('Сторона отверстия х = ');
readln(x);
write('Сторона отверстия y = ');
readln(y);
writeln;
if ((a<x) and (b<y)) or
((a<x) and (c<y)) or
((c<x) and (b<y)) or
((b<x) and (a<y)) or
((c<x) and (a<y)) or
((b<x) and (c<y)) then
writeln('Может пройти') else writeln('Не может пройти');
end.
Function F(x,eps:double):double;
var
s0,s1,sgn,d:real;
begin
s1:=x; d:=1; sgn:=1;
repeat
s0:=s1; d:=d+1; sgn:=-sgn;
s1:=s0+sgn*x/d
until abs(s1-s0)<=eps;
f:=s1
end;
var
x:double;
begin
x:=-0.5;
while x<=0.5 do begin
Writeln(x:4:1,F(x,1e-7):14:7);
x:=x+0.1
end
end.
<u>Результат</u>
-0.5 -0.3465736
-0.4 -0.2772589
-0.3 -0.2079442
-0.2 -0.1386295
-0.1 -0.0693148
0.0 0.0000000
0.1 0.0693148
0.2 0.1386295
0.3 0.2079442
0.4 0.2772589
0.5 0.3465736