Массивы

[kazax]

Массивы

помогите с написанием программы по массивам: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.

 

[MrSTEP]

№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.

 

[kazax]

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

 

[kazax]

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

 

[kazax]

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

 

[MrSTEP]

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

 

[kazax]

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

 

[MrSTEP]

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

 

[Vladimir_S]

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

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

Дана действительная квадратная матрица 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 можно, разумеется, поменять.

 

[kazax]

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

 

[kazax]

где можно почитать и понять хоть немного о массивах?

 

[Vladimir_S]

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

Нет. К сожалению, не умею. Поскольку мне блок-схемы никогда не были нужны.

где можно почитать и понять хоть немного о массивах?

В Сети море литературы по языку Паскаль - учебники, руководства, справочники. Ну, например, вот:
Задачник - решебник. Программирование на языке Паскаль.
Это не значит, что это лучшее руководство - просто первое, что попалось. Можете сами поискать другие, если не понравится.

 

[kazax]

спасибо!

 

[DDS]

Вот, я нарисовал блок-схемы.
Блин, во вложении ничего не разобрать, поэтому приклалываю архив, где изображение в нормальном качестве.

 

[kazax]

спасибо DDS!всем большое спасибо за помощь!!!