Надо составить нейронную сеть таким образом, чтоб на графике она оказалась ниже целевой ошибки. (можно редактировать/добавлять: нейронные сети, кол-во нейроннов, их вес, скорость обучения, и ивд самих нейронов)
Паскаль --- uses crt; var a: array[1..100,1..100] of integer; x,y,sum,k,n:integer; begin write('Введите n: '); readln(n); clrscr; for x:=1 to n do begin for y:=1 to n do begin a[x,y]:=random(21)-10; write(a[x,y]:4); end; writeln; end; k:=0; Sum:=0; for x:=1 to n do for y:=x+1 to n do if a[x,y]>0 then begin Sum:=Sum+a[x,y]; inc(k); end; writeln; if k<>0 then write(sum/k:4:2); end.
CLS DIM n AS INTEGER INPUT "Введите кол-во студентов:", n
DIM studentYearsOld(1 TO n) AS INTEGER DIM studentName(1 TO n) AS STRING
FOR i = 1 TO n INPUT "Введите имя студента:", studentName(i) INPUT "Введите год рождения студента:", studentYearsOld(i) NEXT i PRINT FOR i = 1 TO n PRINT "Студент "; studentName(i) studentYrs = 2016 - studentYearsOld(i) IF studentYrs < 18 THEN PRINT "Лет до права голоса:"; 18 - studentYrs ELSEIF studentYrs >= 18 THEN PRINT "Студент уже имеет право голоса!" PRINT END IF studentYrs = 0 NEXT i
Код валидный, если допустил ошибку во время переписывания - сообщите.
---
uses crt;
var a: array[1..100,1..100] of integer;
x,y,sum,k,n:integer;
begin
write('Введите n: ');
readln(n);
clrscr;
for x:=1 to n do begin
for y:=1 to n do begin
a[x,y]:=random(21)-10;
write(a[x,y]:4);
end;
writeln;
end;
k:=0;
Sum:=0;
for x:=1 to n do
for y:=x+1 to n do
if a[x,y]>0 then begin
Sum:=Sum+a[x,y];
inc(k);
end;
writeln;
if k<>0 then write(sum/k:4:2);
end.