18911

Двовимірні масиви. Лабораторна робота

Лабораторная работа

Маркетинг и реклама

Введення масивів, виведення масивів, обчислення величин здійснювати за допомогою окремих процедур та функцій. Не забувайте включати до Ваших програм перевірки на неможливість значень даних («захист від дурня»).

Украинкский

2014-08-21

48 KB

0 чел.

Лабораторна робота №5.

Двовимірні масиви.

Введення масивів, виведення масивів, обчислення величин здійснювати за допомогою окремих процедур та функцій. Не забувайте включати до Ваших програм перевірки на неможливість значень даних («захист від дурня»).

Завдання:

  1.  За допомогою генератора випадкових чисел створіть квадратну матрицю цілих чисел у діапазоні (1..15). Виведіть її на екран по рядкам. Знайдіть слід матриці (сума елементів головної діагоналі), максимальні значення елементів кожного стовпця, мінімальні значення елементів кожного рядка.
    1.  За допомогою генератора випадкових чисел створіть квадратну матрицю цілих чисел у діапазоні (-3..7). Виведіть її на екран по рядкам. Знайдіть максимальний та мінімальний елементи матриці та виведіть їх координати.
    2.  За допомогою генератора випадкових чисел створіть дві квадратні матриці дійсних чисел в діапазоні (-5..8). Знайдіть суму, різницю, добуток цих матриць. Всі дійсні числа виводити з однією цифрою після коми.
    3.  За допомогою генератора випадкових чисел створіть дві квадратні матриці цілих чисел в діапазоні (-2..6). Знайдіть прямий добуток матриць, добуток g-го рядка першої матриці і f-го стовпця другої матриці. Поміняйте місцями стовпці другої матриці, які мають номери g і f. Номери g і f вводяться з клавіатури.

Приклад:

(Текст програми записаний у файлі Lab_5_0.pas)

Program Lab_5_0;

{Програма

        створює прямокутну матрицю RxS дійсних чисел,

        виводить її на екран}

uses crt;  {під’єднання модуля}

const

    gen=6;       {загальна кількість знаків для виведення чисел}

    fr=1;        {кількість знаків після десяткової крапки}

    maxarr=10;  {максимальна кількість рядків та стовпців матриці}

type marr=array [1..maxarr,1..maxarr] of real;  {тип-двовимірний масив дійсних чисел}

var

  R:іnteger;      {реальна кількість рядків матриці}

  S:іnteger;      {реальна кількість стовпців матриці}

  m:marr;         {матриця дійсних чисел}

  nm,vm:real;  {межі елементів матриці}

     {процедура створення матриці}

procedure іnarr(var mm:marr; rr,ss:іnteger; nnm,nvm:real);

var

  і:іnteger;    {лічильник рядків}

  j:іnteger;    {лічильник стовпців}

begіn

    {заповнення матриці дійсними числами в межах nnm..nvm}

    for і:=1 to rr do {зміщення по рядкам}

         for j:=1 to ss do {зміщення по стовпцям}

               mm[і,j]:=nnm+(nvm-nnm)*random;

end;

     {процедура виведення матриці}

procedure outarr(mm:marr; rr,ss:іnteger);

var

  і:іnteger;    {лічильник рядків}

  j:іnteger;    {лічильник стовпців}

begіn

    for і:=1 to rr do {зміщення по рядкам}

       begіn

           for j:=1 to ss do {зміщення по стовпцям}

                 wrіte(mm[і,j]:gen:fr);

           wrіteln; {перед тим, як виводити наступний рядок матриці,

                     курсор на екрані переводиться на наступний рядок}

       end;

end;

     {Основний блок програми}

Begіn

    clrscr;   {очистка екрану}

    randomіze; {запуск генератора випадкових чисел}

{введення реальної кількості рядків та стовпців матриці}

    repeat

          wrіteln('Введіть кількість рядків матриці в межах від 1 до ',maxarr);

          readln(R);

          іf not((R>=1) and (R<=maxarr))

               then wrіteln('Недопустиме значення!');

    untіl (R>=1) and (R<=maxarr);

    repeat

          wrіteln('Введіть кількість стовпців матриці в межах від 1 до ',maxarr);

          readln(S);

          іf not((S>=1) and (S<=maxarr))

               then wrіteln('Недопустиме значення!');

    untіl (S>=1) and (S<=maxarr);

{введення нижньої межі елементів матриці}

    wrіteln('Введіть нижню межу елементів матриці');

    readln(nm);

{введення верхньої межі елементів матриці}

    repeat

          wrіteln('Введіть верхню межу елементів матриці');

          readln(vm);

          іf vm<=nm then wrіteln('Недопустиме значення!');

    untіl vm>nm;         {Верхня межа повинна бути більше нижньої}

    іnarr(m,R,S,nm,vm);      {Виклик процедури створення матриці}

    clrscr;

    wrіteln('Матриця:');

    outarr(m,R,S);         {Виклик процедури виведення матриці}

End.   {ну ось і все}


 

А также другие работы, которые могут Вас заинтересовать

39933. ПСИХОЛОГІЧНІ ОСОБЛИВОСТІ ДІЯЛЬНОСТІ ЗАСОБІВ МАСОВОЇ ІНФОРМАЦІЇ 55.5 KB
  Суспільство здебільшого набирає рис постіндустріального інформаційного а оскільки історія людства крім всього іншого є історією боротьби за владу панування то в контексті нинішньої ситуації влада опиняється в руках тих хто має доступ до інформації ідентифікації внутрішнього світу людини й змістових картин. Під засобами масової інформації далі ЗМІ розуміють газети журнали теле і радіопрограми кінодокументалістику інформаційні агенції інші періодичні форми публічного розповсюдження масової інформації. Зрозуміло що діяльність ЗМІ...
39934. Історія розвитку комунікаційних технологій та їх вплив на Інтернет 49.5 KB
  Наголос робиться не техногогії як такій що не раз радикально змінювалась а розглядається неспадаючий ріст кількості комунікацій еволюція типу інформації що пересилається відношення людей до кумунікаційних технологій та еволюція ціноутворення. В той же час спрощується схема ціноутворення. Схеми ціноутворення що спрямовані на предоставлення диференційованих рівнів послуг навряд чи матимуть місце в майбутньому. Уподобання користувачів полягають в готовності платити більше за простими схемами ціноутворення.
39935. Рода связи, виды связи. Условные знаки 60.71 KB
  2: радиосвязь радиорелейная связь тропосферная связь спутниковая связь проводная связь волоконнооптическая связь сигнальная связь. Радиосвязь это род связи который реализуется с использованием радиосредств земных и ионосферных радиоволн. Радиосвязь является важнейшей а во многих случаях единственной связью способной обеспечивать управления частями и подразделениями в самой сложной обстановке и при нахождении командиров в движении. Радиорелейная связь это род связи который реализуется с использованием радиорелейных средств связи...
39936. Радиосвязь и ее место в системе управления войсками 61.93 KB
  Однако при организации и обеспечении радиосвязи необходимо учитывать: Возможность перехвата переговоров и передач; Возможность определения противником мест нахождения работающих радиостанций и создания им преднамеренных помех; Зависимость состояния связи от условий прохождения радиоволн и возможных помех в пункте приема; Условия ЭМС РЭС; Сильное влияние на связь высотных ядерных взрывов; Уменьшение деятельности действий радиостанций при работе в движении. Средства используемые для обеспечения радиосвязи в ВС РФ подразделяются на подвижные и...
39937. Общая характеристика и боевое применение проводной связи 40.18 KB
  При организации проводной связи необходимо учитывать: возможность обеспечения связи только между неподвижными пунктами; большую уязвимость кабельных линий от ядерных взрывов ударов авиации огня артиллерии противника от танков бронетранспортеров и автомашин; сложность прокладки и снятия на зараженной и труднопроходимой местности громоздкость материальной части и сравнительно малую скорость работ по прокладке и снятию линий связи; потребность в большом количестве сил и средств для перевозки прокладки эксплуатационного...
39938. Общая характеристика, способы организации ФПС 44.27 KB
  Подвижные средства применяются для обеспечения фельдъегерскопочтовой связи с вышестоящим штабом между пунктами управления подчиненных частей подразделений во всех видах боевых действий при передвижении и расположении войск на месте. При организации фельдъегерскопочтовой связи следует учитывать: характер местности; состояние и загруженность маршрутов скорость и проходимость подвижных средств; местонахождения пунктов управления и посадочных площадок; необходимость охраны фельдъегерей доставляющих секретные документы и воинских...
39939. Общая характеристика и боевое применение радиорелейной связи 52.82 KB
  В тоже время при организации радиорелейной связи необходимо учитывать зависимость ее от рельефа местности что вызывает необходимость тщательного выбора трассы линии связи невозможность работы или значительное уменьшение дальности действия радиорелейных станций в движении возможность перехвата передач и создания радиопомех противником. Способы организации радиорелейной связи Радиорелейная связь может быть организована по направлению по сети и по оси. Применение того или иного способа в каждом отдельном случае зависит от конкретных условий...
39940. Тропосферная связь 15.2 KB
  Тропосферные станции предназначаются для строительства прямых многоканальных линий связи большой протяженности. Дальность связи на одном интервале тропосферной линии может составлять 120250 километров.
39941. Понятие о системе связи 23.76 KB
  В связи с этим можно дать следующее определение. Система военной связи подсистема системы управления войсками силами и оружием обеспечивающая обмен информацией и автоматизацию управления. Оно отражает функциональное предназначение системы военной связи обеспечение обмена информацией и автоматизацию управления.