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


 

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

39707. Реклама 15.09 KB
  Прямая реклама по почте лично. Реклама в прессе газеты журналы. Печатная реклама каталоги плакаты. Экранная и радиореклама.
39708. Дистрибуция в маркетинге 19.84 KB
  Дистрибуция для поставщика продукции это создание системы управления продажами которая основывается на управлении и планировании продаж в различных каналах продаж сбыта. Оба взгляда на дистрибуцияю верны. В широком смысле дистрибуция это распределение. Дистрибуция или место plce один из четырех элементов маркетинга входящих в маркетингмикс 4P .
39709. Маркетинговая логистика 17.29 KB
  В маркетинговой логистике существенную роль играют современные информационные технологии: компьютерыкассовые терминалы; единообразная кодировка товаров; системы спутникового слежения за транспортировкой; электронный обмен данных и перевод денег. Понятие доступность продукции играет важную роль в логистической концепции являясь как целью так и одной из основных характеристик функционирования логистической системы. В маркетинговой логистике выделяют следующие основные стадии: постановку целей системы; определение текущего состояния;...
39710. Маркетинговая информация 15.37 KB
  Выделяют следующие типы информации: 1 по месту сбора: а внутренняя любая информация полученная из финансовохозяйственной отчетности и документации фирмы предприятия организации; 6 внешняя информация собираемая за пределами организации в том числе подготовленная статистическими агентствами государственными и общественными организациями; информация публикуемая в СМИ; информация рекламного и коммерческого характера.; б вторичная уже существующая информация собираемая для различных других целей но может быть использована для...
39713. Понятие маркетинга, цели, принципы и функции маркетинга 17.15 KB
  Производственная: организация производственных товаров организация материальнотехнического снабжения управление качеством и конкурентоспособностью продукции. Сбытовая: организация системы товародвижения организация системы формирования спроса и стимулирования сбыта и системы продаж реклама товарная политика организация сервиса ценовая политика. Управления и контроля: организационные принципы управления и контроля планирование и информационное обеспечение маркетинга организация системы коммуникаций на предприятии управление рисками.