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)Входные данные:

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


 

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

49566. Расчет параметров цифровых систем передачи непрерывных сообщений 177.5 KB
  Курсовая работа Лист СОДЕРЖАНИЕ Введение Характеристика исходных данных Распределение ошибки передачи сообщения Выбор частоты дискретизации...
49567. Проектирование ОКС №7 на сети 424.51 KB
  Список всех возможных нормальных сигнальных маршрутов сети ОКС для каждой пары пунктов сигнализации ПСi ПСj формируется по следующим правилам: нормальный маршрут должен быть либо прямым без транзитов либо если прямых маршрутов нет проходить через минимальное число транзитных пунктов STP SP STP. маршрута 52 51 да 51 да нет Параллельн. 53 51 да 53 51;55 нет Альтерн. выбран 53 51;25 нет Альтерн.
49569. Применение нейросетевых технологий к оценке недвижимости 416 KB
  Искусственные нейронные сети. Обучение искусственной нейронной сети. Главным отличием нейросетей от других методов например таких как экспертные системы является то что нейросети не нуждаются в заранее известной модели а строят ее сами только на основе предъявляемой информации. Именно поэтому нейронные сети вошли в практику всюду где нужно решать задачи прогнозирования классификации управления – иными словами в области человеческой деятельности где есть неформализуемые или трудно формализуемые задачи...
49570. Изучение спроса на товары народного потребления в торговом предприятии 1.76 MB
  Выявить факторы, формирующие спрос на товары народного потребления. Определить основные направления и методики исследования спроса на товары народного потребления. Дать организационно-правовую и экономическую характеристику предприятия ЗАО фирма «Моспосуда-1». Проанализировать коммерческую деятельность ЗАО фирма «Моспосуда-1». Провести анализ спроса на товары ЗАО фирма «Моспосуда-1»...
49571. Менеджмент. Методические указания 232.5 KB
  В процессе работы студент должен осмыслить проблемы отечественного менеджмента возможность использования зарубежного опыта системного ситуационного и процессного подходов на примере конкретной организации. 2 Темы курсовой работы и варианты ее выполнения Все темы и варианты имеют общую направленность – проектирование или совершенствование системы управления для организации адаптированной к конкретной управленческой ситуации. Управление...
49572. Исследование интернета в удовлетворении потребностей потребителей» (на примере ЧРУП «Белинформ Медиа») 400.65 KB
  Для достижения поставленных целей необходимо решить следующие задачи: Проанализировать существующие первоисточники Определить целевые группы потребителей и их основные характеристики пол возраст уровень дохода Определить мотивацию посещения строительных порталов Выяснить структуру осведомленности о спектре услуг предоставляемых компанией Определить уровень лояльности посетителей сайта Выяснить критерии влияющие на выбор строительного портала Установить основные претензии и причины неудовлетворенности посетителей Выявить...
49573. Расчет режима термической обработки 69.5 KB
  Назначить режим термической обработки температуру закалки охлаждающую среду и температуру отпуска метчиков и плашек из стали У10. Метчики и плашки изготавливают из инструментальной углеродистой и быстрорежущей стали. Инструментальными сталями называют углеродистые и легированные стали обладающие высокой твердостью HRC 6065 прочностью при некоторой вязкости для предупреждения поломки инструмента в процессе работы и износостойкостью необходимой для сохранения размеров и формы режущей кромки при резании. Закаливаемость – способность...