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.   {ну ось і все}


 

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

70146. Одноэтажное промышленное здание. Проект центра сервисного обслуживания автомобилей LADA в городе Новосибирске 61.5 KB
  Проект - одноэтажное промышленное здание выполняется на 2-х листах формата А1. Помимо этого к проекту прилагается пояснительная записка. Схема промышленного здания выдаётся преподавателем, а также задаются основные размеры...
70147. Расчет и выбор посадок с зазором, с натягом, колец подшипников качения 989.5 KB
  Взаимозаменяемостью издедий (машин, приборов, механизмов и т.д.), их частей или других видов продукции (сырья, материалов, полуфабрикатов и т.д.) называют их свойство равноценно заменять при использовании любой из множества экземпляров изделий, их частей или иной продукции...
70149. Отопление и вентиляция жилого четырехэтажного здания 143.02 KB
  Система отопления Выбор системы отопления и типа нагревательных приборов; Тепловой расчет стояка; Гидравлический расчет системы отопления; Расчет элеваторной установки; Расчет нагревательных приборов; Вентиляция Нормы вытяжки воздуха...
70150. Отопление и вентиляция жилого четырёхэтажного здания (жилого дома) 336.12 KB
  Назначение здания - жилой дом. СНиП- 23-02-03 «Тепловая защита зданий» СНиП- 23-01-99 «Строительная климатология» Район постройки г.Татарск Число этажей- 4 Температура воздуха наиболее холодной пятидневки, обеспеченностью 0,92 t= - 39 Температура наиболее холодных суток, обеспеченностью 0,92 t= - 41...
70151. Отопление и вентиляция жилого четырехэтажного здания в г. Минусинск 1.05 MB
  Район постройки г. Минусинск Число этажей- 4 Расчетная температура наружного воздуха обеспеченностью 0,92 t=-42 Температура холодных суток t=-43 Температура среднего отопительного периода t=-9,5 Средняя скорость ветра за январь...
70152. Деревянный каркас одноэтажного производственного здания 771.5 KB
  Ограждающей конструкцией покрытия является утеплённая клеефанерная плита с одной верхней обшивкой. Размер панели в плане 1518-4180 мм. Обшивка плиты выполнена из фанеры клееной повышенной водостойкости марки ФСФ ГОСТ 3916.2-96, порода древесины шпона фанеры – лиственница.