11540

Разработка оконных приложений, использующих автономные модули

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

Информатика, кибернетика и программирование

Лабораторная работа №8 Разработка оконных приложений использующих автономные модули Условие Задача 3.4. Составьте подпрограмму исходными данными которой являются числовые массивы C и или D из n элементов. Основной её результат также массив получающий некотор

Русский

2013-04-08

91.98 KB

1 чел.

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

«Разработка оконных приложений, использующих автономные модули»

Условие

Задача 3.4.

Составьте подпрограмму, исходными данными которой являются числовые массивы C и (или) D из n элементов. Основной её результат – также массив, получающий некоторое множество элементов. Их количество (оно может быть равно нулю) – ещё один результат. Требуемые результаты подпрограммы и прочие данные указаны в вариантах.

Множество элементов массива C, следующих за первым нулевым элементом массива C (пустое множество, если в C нулей нет); число нулей в массиве C.

Состав данных для программы

Имя

Смысл

Тип

Структура

Исходные данные

n

Число столбцов матрицы

Целый

Простая переменная

С

Заданный массив

Вещественный

Одномерный массив

Выходные данные

D

Множество элементов массива C, следующих за первым нулевым элементом массива C

Вещественный

Одномерный массив

Промежуточные данные

j

Счетчик столбцов

Целый

Простая переменная

Состав данных для подпрограммы nul

Имя

Смысл

Тип

Структура

Входные параметры

n

Число столбцов матрицы

Целый

Простая переменная

С

Заданный массив

Вещественный

Одномерный массив

Выходные параметры

k

Число нулей в массиве C

Целый

Простая переменная

Промежуточные данные

j

Счетчик столбцов

Целый

Простая переменная

Состав данных для подпрограммы mnog

Имя

Смысл

Тип

Структура

Входные параметры

n

Число столбцов матрицы

Целый

Простая переменная

С

Заданный массив

Вещественный

Одномерный массив

Выходные параметры

D

Множество элементов массива C, следующих за первым нулевым элементом массива C

Вещественный

Одномерный массив

Промежуточные данные

j

Счетчик столбцов

Целый

Простая переменная

g

Счетчик цикла

Целый

Простая переменная

Форма ввода

Блок-схема программы

начало

   

ввод  n,   Cj    nj=1

Вывод nul(c,n)

 

Mnog(c,d,n)

Вывод    Djnj=1

конец

Блок-схема для подпрограммы mnog

Передача C,D,n

j:=0; g:=0

  j<=n-1

C[j-1]=0

h:=j

i:=h

  h<=n-1

D[g]:=c[i]

 

        G:=g+1

        H:=h+1

       Выход из цикла

Передача D[j]

передача n, Ci nj=1

Блок-схема подпрограммы nul 

 k:=0

J:=0

        j<=n-1

     C[j]=0

 

k:=k+1

j:=j+1

nul:=k

Программный код автономного модуля

unit Unit2;

interface

function nul(var c:array of real; n:integer):integer;

procedure mnog(var c,d:array of real; var n,g:integer);

implementation

function nul;

 var j,k:integer;

begin

 for j:=0 to n-1 do

   if c[j]=0 then

     k:=k+1;

 nul:=k;

end;

procedure mnog;

 var j,i,h:integer;

begin

g:=0;

 For j:=0 To n-1 do

   if c[j-1]=0 then

    begin

     h:=j;

     For i:=h to (n-1) do

       begin

         d[g]:=c[i];

         g:=g+1;

       end;

     break;

    end;

end;

end.

Программный код основных обработчиков.

procedure TForm1.Button2Click(Sender: TObject);

var c,d:array of real; i,j,g:integer; a:real;

begin

setlength(c,n);

setlength(d,n);

for j:=0 to n-1 do

 if stringgrid1.Cells[j,1]='' then

   c[j]:=0

 else

   c[j]:=strtofloat(stringgrid1.Cells[j,1]);

mnog(c,d,n,g);

stringgrid2.ColCount:=g;

for j:=0 to g-1 do

 StringGrid2.Cells[j,0]:=IntToStr(j+1);

for j:=0 to g-1 do

 stringgrid2.cells[j,1]:=floattostr(d[j]);

edit2.text:=inttostr(nul(c,n));

end;

Тесты

1)Входные данные:

Выходные данные: 


 

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

80565. Оцінка ефективності інвестицій 180 KB
  Ефективність дохідність довготермінових облігацій може бути виміряна у вигляді: купонної дохідності норма відсотка облігації; ставки розміщення річної ставки складних відсотків. Ставка розміщення найбільш точно характеризує реальну фінансову ефективність облігації враховуючи всі види доходів від неї. Отже завдання вимірювання фінансової ефективності облігації зводиться до обчислення ставки розміщення у вигляді річної ставки складних відсотків. Нарахування відсотків за цією ставкою на ціну придбання облігації яка може відрізнятись від...
80566. Особливості фінансів малого бізнесу 232 KB
  Малий бізнес є найбільш поширеним сектором економіки. Відмінності між цими трьома видами бізнесу обумовлені різним рівнем суспільного поділу праці, характером спеціалізації га усуспільнення виробництва, а також вибором технологічного типу виробничого процесу.
80568. Направления совершенствования расчетного и кассового обслуживания клиентуры в Новоуренгойском отделении Сберегательного банка №8369 707.5 KB
  Сберегательный Банк Российской Федерации – старейший банк страны. Созданный в 1841 году как финансовый институт для малоимущих слоёв населения, он и по сегодняшний день остаётся единственным банком, который обслуживает наименее обеспеченные группы физических лиц.
80569. Процесс перевозки грузов автомобильным транспортом на примере ОО УМ «Газпромдорстрой» 718 KB
  Автомобильный транспорт состоит на пороге больших перемен. Меняются требования к его работе. Необходимо поднять использование автомобилей на новый более качественный уровень развития...
80570. РАЗРАБОТКА СТРАТЕГИЙ РАЗВИТИЯ ПРЕДПРИЯТИЯ (НА ПРИМЕРЕ ИП «СОРОЧИНСКАЯ Л.В.») 482 KB
  Цель работы охарактеризовать деятельность работы магазина розничной торговли и выявить перспективы развития данного предприятия. В первой части содержатся теоретические аспекты разработки стратегии развития организации.
80571. Анализ финансового состояния ООО «Транстехсервис» 191.37 KB
  Целью данной выпускной квалификационной работы является выявление и обоснование основных направлений совершенствования финансового состояния ООО «Транстехсервис» Исходя из цели исследования данного дипломного проекта, в работе поставлены следующие задачи: рассмотреть теоретические основы анализа финансового...
80572. Электрооборудование и электроснабжение электромеханического цеха 370.94 KB
  Организация проверки и наладки электрооборудования после монтажа или ремонта. Спецификация электрооборудования. Избыток тепла от электрооборудования и освещения. Для безопасного обслуживания электрооборудования находящегося на ферме моста устанавливают блокировочные контакты на люке и двери кабины.
80573. Розробка автономного недорогого універсального охоронного пристрою 1.1 MB
  Види систем охоронної сигналізації: охоронна система, яка у випадку спрацьовування будь-якого датчика активує сирену або строб-спалах; система сигналізації з підключенням до телефонної лінії. При появі сигналу тривоги по телефонній лінії передається заздалегідь записане голосове повідомлення...