Матрица в Paskal

[Mad_Cat]

Этот код не работает чето

1) обьявите переменные
2) введите матрицу
3) вставьте код из поста #8
4) выведите матрицу!

я правда сам тут уже ничего не понимаю)) но вам же не важно, лиш бы работало))

правда врет она страшно, но надо стиль будет перенять

kakayato_neivestnaya_peremennaya :=45; //а потомучта

[vovk]

Сообщение от Mad_Cat

1)
правда врет она страшно, но надо стиль будет перенять

и ничего не врёт я там так следы путал, что кажется сам под конец запутался))
я там ещё поправил чтоб на турбо паскале запустилась.

[Fromki]

Супер!!!Я конечно переправил его немного и теперь Код работает, но только нет вот этого "нахождения в столбцах матрицы положительных (>0) элементов, подсчета их количества" вот это он не делает.... хотя бы отдельным кодом напишите плиз,а дальше я уже сам разберусь.

а тебе, vovk, просто громадное спасибо!!!

[Fromki]

вот исправленный код

program cool_super_program;
uses crt;
const
n=5; m=5;
var
super_square_matrix : array [1..n,1..m] of integer;
cool_array_of_columns : array [1..n] of integer;
x, y,kakayato_neivestnaya_peremennaya: integer;
begin
clrscr;
randomize;
kakayato_neivestnaya_peremennaya :=45;
for x:=1 to n do
begin
y:=1;
while not (y > m) do
begin
super_square_matrix[x,y]:=random(9)-5;
inc(y);
end;
end;
writeln('matrica');
x:=0;
repeat
inc(x,1);
for y:=1 to m do
begin
if (x=1) then
write('_____')
else
if (x>n+1) then
write('-----')
else
begin
if super_square_matrix[y,x-1] > -1 then
write(' ');
write(super_square_matrix[y,x-1]);
write(' | ');
end;
end;
writeln('');
until m<(x-1);

y:=0;
while y < m do
begin
x:=1;
cool_array_of_columns[y+1]:=0;
repeat
if super_square_matrix[y+1,x]>0 then
cool_array_of_columns[y+1]:=cool_array_of_columns[y+1]+ super_square_matrix[y+1,x];
inc(x);
until x>n;
y:=y+1;
end;
writeln('cloj ctolb ');
y:=1;
repeat
for x:=1 to m do
begin
if (y=1) then
write('_____')
else
if (y>n+1) then
write('-----')
else
begin
if super_square_matrix[x,y-1] > -1 then
write(' ');
write(super_square_matrix[x,y-1]);
write(' | ');
end;
end;
writeln('');
inc(y,1);
until (n+2<y);

for x:=1 to n do
begin
write(cool_array_of_columns[x]);
write(' | ');
end;
writeln(' cymmi');

for x:=1 to n do
for y:=1 to m do
if super_square_matrix[x,y]<>0 then
super_square_matrix[x,y]:= cool_array_of_columns[x] div super_square_matrix[x,y];
writeln('');

writeln('pezylt');
x:=0;
repeat
inc(x,1);
for y:=1 to m do
begin
if (x=1) then
write('_____')
else
if (x>n+1) then
write('-----')
else
begin
if super_square_matrix[y,x-1] > -1 then
write(' ');
write(super_square_matrix[y,x-1]);
write(' | ');
end;
end;
writeln('');
until m<(x-1);
readln
end.

[vovk]

program cool_super_program;
uses  crt;
const
n=5; m=5;
var
super_square_matrix : array [1..n,1..m] of integer;
cool_array_of_columns : array [1..n,1..2] of integer;
x, y,kakayato_neivestnaya_peremennaya:integer;
begin
clrscr;
 randomize;
kakayato_neivestnaya_peremennaya :=45; {а потомучта}
for x:=1 to n do
 begin
 y:=1;
   while not (y > m) do
   begin
    super_square_matrix[x,y]:=random(9)-5;
    inc(y);
   end;
 end;
   writeln('это матрица, неужели неузнали?');
   x:=0;
   repeat
     inc(x,1);
     for y:=1 to m do
     begin
       if  (x=1)  then
         write('_____')
         else
   if  (x>n+1)  then
        write('-----')
         else
        begin
 if super_square_matrix[y,x-1] > -1 then
       write(' ');
     write(super_square_matrix[y,x-1]);
     write(' | ');
        end;
     end;
     writeln;
   until m<(x-1);

     y:=0;
   while y < m do
    begin
       x:=1;
       cool_array_of_columns[y+1,1]:=0;
       cool_array_of_columns[y+1,2]:=0;
      repeat
     if super_square_matrix[y+1,x]>0 then
        begin
     cool_array_of_columns[y+1,1]:=cool_array_of_columns[y+1,1]+ super_square_matrix[y+1,x];
     cool_array_of_columns[Y+1,2]:=  cool_array_of_columns[Y+1,2]+1;
        end;
      inc(x);
      until x>n;
     y:=y+1;
    end;
    writeln('это супер матрица, и первые итоги ну столбики сложили ');
   y:=1;
   repeat
     for x:=1 to m do
       begin
   if  (y=1)  then
        write('_____')
       else
   if  (y>n+1)  then
        write('-----')
         else
        begin
           if super_square_matrix[x,y-1] > -1 then
                write(' ');
        write(super_square_matrix[x,y-1]);
        write(' | ');
         end;
        end;
       writeln;
       inc(y,1);
    until (n+2<y);

    for x:=1 to n do
      begin
      write(' ');
 write(cool_array_of_columns[x,1]);
        write(' | ');
      end;
 writeln(' а тут как раз суммы');
     for x:=1 to n do
      begin
   write(' ');
 write(cool_array_of_columns[x,2]);
        write(' | ');
      end;
 writeln(' ну а тут количество');

for x:=1 to n do
for y:=1 to m do
if super_square_matrix[x,y]<>0 then
super_square_matrix[x,y]:= cool_array_of_columns[x,1] div super_square_matrix[x,y];
 writeln;

   writeln('а вот то что вышло, правда так лучше?))');
   x:=0;
   repeat
     inc(x,1);
     for y:=1 to m do
     begin
       if  (x=1)  then
         write('_____')
         else
   if  (x>n+1)  then
        write('-----')
         else
        begin
     if super_square_matrix[y,x-1] > -1 then
                write(' ');
     write(super_square_matrix[y,x-1]);
     write(' | ');
        end;
     end;
     writeln;
   until m<(x-1);
  readln
end.

лучше подумай как будеш рассказывать что и где там происходит если спросят))

вот исправленный код

хмм и что там исправленного?

[Fromki]

ну я имел в виду оформление))) теперь когда я жму run оно так мигнуло и снова на синий экран вылетело

[vovk]

напиши readln перед последним end.

[zog07]

из одномерного массива А, состоящего из 12 целых чисел, сформировать мисси в В элементов, кратных 3 и не кратных 5. Отсортировать массив В по убыванию» помогите плиз

[vovk]

Сообщение от zog07

из одномерного массива А, состоящего из 12 целых чисел, сформировать мисси в В элементов, кратных 3 и не кратных 5. Отсортировать массив В по убыванию» помогите плиз

одна тема = 1 вопрос. И совет, выкладывайте свои наработки, вам многие охотно помогут, без наработок как повезёт..

[Fromki]

Все. Теперь она полноценно работает. спасибо.