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

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


 

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

72094. Эффективность использования финансовых ресурсов предприятия ООО «Маджерик» 274.75 KB
  Цель дипломной работы - провести анализ эффективного использования финансовых ресурсов предприятия ООО «Маджерик», а также предложить мероприятия по совершенствованию использования финансовых ресурсов. Для достижения данной цели необходимо решить следующие задачи: Рассмотреть теоретические основы управления финансовыми ресурсами предприятия...
72095. Разработка и проектирование локальной вычислительной сети для ООО “Карнавал” 3.67 MB
  Характеристика подразделений и видов их деятельности Данная организация состоит из: коммерческой службы финансовой службы административно-хозяйственной части и руководство исполнительной дирекцией рисунок 1 Коммерческая служба объединяет ряд отделов: Отдел рекламы определяет планирование и направление рекламных...
72096. Левобережная Украина в составе России: проблемы интеграции со времен Петра I до Екатерины II. Присоединение к России Правобережной Украины и Белоруссии 17.52 KB
  После смерти Петра Великого политический курс Петербурга по отношению к Украине меняется в связи с обострением отношений с Османской империей усиливается тенденция к централизации управления. принимаются Решительные пункты устанавливавшие правовую основу управления Украиной.
72097. Российско-украинские отношения и гражданская война на Украине (1657-1687) 16.88 KB
  По условиям этого договора: 1 Украина вошла в польско-литовское государство на правах ограниченной автономии; 2 прямых выборов гетмана не было: Украина могла лишь выбирать кандидатов из числа которых король назначал гетмана; 3 в сенат Речи Посполитой вошли православные епископы...
72098. Русская Америка в контексте российско-американских отношений (1809-1867 гг.) 16.54 KB
  В 1776 году было образовано независимое государство Соединенные Штаты Америки в 1807 году между Россией и США были установлены дипломатические отношения. Шеффер предложил Александру I завладеть островом на Гавайях и сделать его промежуточным портом для кораблей РАК но император крайне...
72099. Итоги освободительной борьбы украинского народа (1648-1654 гг.) и «цена» воссоединения Украины с Россией для Московского государства 18.58 KB
  Важнейшими пунктами на которые Москва дала согласие были: права и вольности всякого звания людей на Украине подтверждаются всякие выборные суды казачьи и выборные городские должности должны и впредь отправляться свободно. Существовало противоречие между крепостным правом в России и свободой на Украине...
72100. Сибирь и Дальний Восток в политике царизма и особенности управления данными территориями (конец XVI – начало XX вв.) 18.61 KB
  Высший администратор власти Сибири обладал большими полномочиями нежели в других частях империи. К 1917 на территории Сибири и Дальнего Востока использовались формы административного управления: Тобольская и Томская губернии; Иркутское и Приамурское генералгубернаторства Якутская область казачьи и горные округа...