Технический форум

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Массивы (http://www.tehnari.ru/f41/t35986/)

помогите с написанием программы по массивам:tehnari_ru_121:
№1.Дана действительная квадратная матрица модуль a ij,где i,j=1....n . Получить две квадратные матрицы модуль b ij где i,j=1...n ;модуль c ij,где i,j=1...n , для которых b ij=a ij ,если j=>i и b ij=-a ij ,если j<i ;c ij=a ij,если j<i и c ij=-a ij,если j=>i
не знаю понятно или нет,не копируются формулы из задания(((

№2.Даны целые числа a1, a2, … ,a45. Получить число отрицательных членов последовательности a1, a2, … ,a35 и число нулевых членов всей последовательности a1, a2, … ,a45.

Цитата:

№1.Дана действительная квадратная матрица . Получить две квадратные матрицы ; , для которых.

Вы хотите сказать, что это задание? Нет, давайте все целиком.

Цитата:

№2.Даны целые числа a1, a2, … ,a45. Получить число отрицательных членов последовательности a1, a2, … ,a35 и число нулевых членов всей последовательности a1, a2, … ,a45.

Код:

uses crt;

const n=45;

var a:array [1..n] of integer;

    kneg,knil,i:byte;

begin clrscr;

      writeln ('Type ',n,' numbers: ');

      for i:=1 to n do begin

          read(a[i]);

          if i<=35 then

             if a[i]<0 then

                inc(kneg,1);

          if a[i]=0 then

             inc(knil,1);

      end;

      writeln;

      writeln ('Amount of negative numbers: ',kneg,'; Amount of nils: ',knil);

      readkey;

end.

спасибо за написанную прогу MrSTEP!сейчас напишу второе задание полностью

а вы можете объяснить ,что такое книл и кнег,я просто ваще не рублю в массивах(((

а с блок схемами можите помочь?

А это не имеет никакого отношения к массивам, это просто имена переменных, которые можно назначать любые. kneg - это сокращение от смеси русско-английских слов kol-vo negative (количество отрицательных), а knil - kol-vo nil (количество нулей). Вот и все премудрости.
С блок-схемами могу помочь, но на ближайшие сутки свободного времени не осталось. Вам к какому сроку?

ну мне хотя бы в пятницу сдать надо.чет я прогу набрал она вывела Type45numbers:
что такое ? а первую задачу ты смотрел?

До пятницы блок-схему не успею. Программа хочет, что бы ты ввел 45 элементов :) а к первой задаче задание не очень понятное, лучше картинкой приложи. Взяться за нее сейчас не смогу

Цитата:

Сообщение от MrSTEP (Сообщение 333776)

а к первой задаче задание не очень понятное, лучше картинкой приложи. Взяться за нее сейчас не смогу

Да там всё понятно, если малость дешифровкой позаниматься. Это вот что:

Цитата:

Сообщение от kazax (Сообщение 333651)

Дана действительная квадратная матрица a[i,j], где i,j=1....n . Получить две квадратные матрицы b[i,j] и c[i,j], где i,j=1...n, для которых:
b[i,j]=a[i,j] , если j=>i, и b[i,j]=-a[i,j], если j<i;
c[i,j]=a[i,j], если j<i, и c[i,j]=-a[i,j], если j=>i.

Элементарно:

Код:

const

 n=8;

var

 i,j:integer;

 a,b,c:array[1..n,1..n] of real;



begin

 Randomize;

 for i:=1 to n do

   for j:=1 to n do

    a[i,j]:=Random*100-50;



 WriteLn('Matrix A:');

 for i:=1 to n do

  begin

   for j:=1 to n do

    Write(a[i,j]:8:3);

   writeln;

  end;

 WriteLn('Press "Enter" to continue');

 ReadLn;



 for i:=1 to n do

   for j:=1 to n do

    If j>=i then b[i,j]:=a[i,j] else b[i,j]:=-a[i,j];



 for i:=1 to n do

   for j:=1 to n do

    If j<i then c[i,j]:=a[i,j] else c[i,j]:=-a[i,j];



 WriteLn('Matrix B:');

 for i:=1 to n do

  begin

   for j:=1 to n do

    Write(b[i,j]:8:3);

   writeln;

  end;

 WriteLn('Press "Enter" to continue');

 ReadLn;



 WriteLn('Matrix C:');

 for i:=1 to n do

  begin

   for j:=1 to n do

    Write(c[i,j]:8:3);

   writeln;

  end;

 ReadLn;

end.

Значение константы n можно, разумеется, поменять.

спасибо Vladimir_S ,а с блок схемами пожите?