Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Случайные числа - random
Код
{&R-}
Program Umnoj2;
Const Max=25;
Var A,B,C: array [1..Max,1..Max] of integer;
   i,j,k,n,m,b1,a1,l : integer; Summa: integer;
begin
randomize;
   N:=15+random(10);
randomize;
     k:=15+random(10);
   randomize;
   M:=15+random(10);
   for i:=1 to n do
   for j:=1 to k do
  begin
    randomize;
   a1:=random(10);
       A[i,j]:=a1;
       end;
   for i:=1 to k do
   for j:=1 to m do
   begin
   randomize;
   b1:=random(10);
    B[i,j]:=b1;
      end;
      write;
       writeln;
      for i:=1 to k do
     begin
       for j:=1 to m do
         write(A[i,j]:4);
     end;
     writeln('cl');
       for i:=1 to n do
     begin
       for j:=1 to k do
         write(B[i,j]:4);
       writeln;
     end;
     for i:=1 to n do
     for j:=1 to m do
       begin
         Summa:= 0;
         for l:= 1 to k do
           Summa:= Summa + A[i,l]*B[l,j];
           C[i,j] := Summa;
       end;
   for i:=1 to n do
     begin
       for j:=1 to m do
         write(C[i,j]:6);
       writeln;
     end;
readln;
end.

есть такой код для умножения двух матриц, где столбцы, строки и заполнение массивов задается через random, проблема в том, что первый массив равен второму, и у первого массива слишком мало строк
Заранее спасибо
1 | Автор: ikutin | 2014-05-22, 14:06   |  Репутация: [ + 0 ]
program xxx;

const  n = 5;

var
f : file of integer;
x,y,i   : integer;
z : array [1..n] of integer;
path : string;

begin

assign(f,'C:\Users\яяя\Desktop\ффф111.txt');
rewrite(f);
randomize;
x := 0;
y := 0;
for i := 1 to n do
begin
z :=random(10)+1;
write(f,z);
if z mod 2 = 0 then
inc(x)
else
inc(y);
end;
if x > y then
writeln('Больше четных')
else if y > x then
writeln('Больше нечетных')
else
writeln('Поровну');
reset(f);
i := 1;
while not eof(f) do
begin
read(f,z);
write(z,' ');
inc(i);
end;
readln;
end.

Создайте файл f, компоненты которого являются целыми числами. Напишите программу подсчета нечетных и четных компонентов файла f, и определите, каких из них больше
2 | Автор: ВАно | 2014-05-22, 14:06 | Изменено: ВАно - Чт, 2014-05-15, 20:40   |  Репутация: [ + 0 ]
  • Страница 1 из 1
  • 1
Поиск: