Теория и практика математического моделирования в современном литейном производстве. Дурина Т.А. - 76 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

76
begin
writeln('ВводA1B1J1');
readln(A1,B1,J1);
writeln(F0,'A1=',A1,'B1=',B1);
writeln(F0,'J1=',J1);
end;
procedureVVOD22;
begin
writeln('ВводA2B2J2');
readln(A2,B2,J2);
writeln(F0,'A2=',A2,'B2=',B2);
writeln(F0,'J2=',J2);
end;
procedureVVOD23;
begin
writeln('ВводA3B3J3');
readln(A3,B3,J3);
writeln(F0,'A3=',A3,'B3=',B3);
writeln(F0,'J3=',J3);
end;
procedureVVOD24;
begin
writeln('ВводA4B4J4');
readln(A4,B4,J4);
writeln(F0,'A3=',A3,'B3=',B3);
writeln(F0,'J3=',J3);
end;
procedureVVOD25;
begin
writeln('ВводA5B5J5');
readln(A5,B5,J5);
writeln(F0,'A3=',A3,'B3=',B3);
writeln(F0,'J3=',J3);
end;
procedureGB780;
begin
SS:=0;O[1]:=0;
forJ:=1toXdo
begin
SS:=SS+Y[J];
O[1]:=O[1]+1;
end;
B[1]:=SS/O[1];
SS:=0;O[2]:=0;
forJ:=1toXdo
begin
SS:=SS+I[J]*Y[J];
O[2]:=O[2]+I[J]*I[J];
end;
 begin
  writeln('Ввод A1 B1 J1');
  readln(A1,B1,J1);
  writeln(F0,'A1=',A1,' B1=',B1);
  writeln(F0,'J1=',J1);
 end;
procedure VVOD22;
 begin
  writeln('Ввод A2 B2 J2');
  readln(A2,B2,J2);
  writeln(F0,'A2=',A2,' B2=',B2);
  writeln(F0,'J2=',J2);
 end;
procedure VVOD23;
 begin
  writeln('Ввод A3 B3 J3');
  readln(A3,B3,J3);
  writeln(F0,'A3=',A3,' B3=',B3);
  writeln(F0,'J3=',J3);
 end;
procedure VVOD24;
 begin
  writeln('Ввод A4 B4 J4');
  readln(A4,B4,J4);
  writeln(F0,'A3=',A3,' B3=',B3);
  writeln(F0,'J3=',J3);
 end;
procedure VVOD25;
 begin
  writeln('Ввод A5 B5 J5');
  readln(A5,B5,J5);
  writeln(F0,'A3=',A3,' B3=',B3);
  writeln(F0,'J3=',J3);
 end;
procedure GB780;
 begin
  SS:=0; O[1]:=0;
  for J:=1 to X do
   begin
    SS:=SS+Y[J];
    O[1]:=O[1]+1;
   end;
  B[1]:=SS/O[1];
  SS:=0; O[2]:=0;
  for J:=1 to X do
   begin
    SS:=SS+I[J]*Y[J];
    O[2]:=O[2]+I[J]*I[J];
   end;
                                    76

Страницы