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

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


 

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

80389. Джерела земельного права 64.01 KB
  Із загальною теорією держави і права. Саме загальна теорія права займається питаннями галузі права, її ознаками, визначає критерії самостійності галузі права; поняття «галузь права», «предмет галузі права», «метод галузі права», «правовідносини» розробляються на загальнотеоретичному рівні саме цією наукою;
80391. Гарантії прав на землю 54.25 KB
  Серед гарантій захисту прав на землю важливими є гарантії права власності на земельну ділянку. Земельний кодекс України передбачає, що власник не може бути позбавлений права власності на земельну ділянку, крім випадків, передбачених Кодексом або іншими законами України.
80392. Поняття і зміст правової охорони земель 53.73 KB
  Поняття та правові форми охорони землі як основного національного багатства України. Зміст правової охорони земель. Правова забезпечення рекультивації порушених земель. Особливості правової охорони ґрунтів.
80393. Правове регулювання управління в галузі використання та охорони земель 54.89 KB
  Поняття та функції управління в галузі використання та охорони земель. Система органів управління в галузі використання та охорони земель. Моніторинг земель. Державний земельний кадастр. Економічне стимулювання раціонального використання та охорони земель...
80394. Юридична відповідальність в земельному праві України 56.11 KB
  Загальна характеристика юридичної відповідальності в земельному праві України. Земельне правопорушення як підстава юридичної відповідальності. Види юридичної відповідальності за земельні правопорушення
80395. Право землекористування та його види 65.16 KB
  Поняття та характерні особливості права землекористування. Суб’єкти та об’єкти права постійного землекористування. Права та обов’язки землекористувачів. Особливості права орендного землекористування. Характеристика договору оренди землі. Суборенда землі. Використання земель на умовах концесії.
80396. Обмеження і обтяження прав на землю 51.51 KB
  Земельного кодексу України на використання власником земельної ділянки або її частини може бути встановлено обмеження обтяження в обсязі передбаченому законом або договором. Що стосується договору то наприклад договором оренди землі може бути встановлена заборона на передачу земельної ділянки в суборенду. Нарешті за позовом власника чи користувача однієї земельної ділянки суд може заборонити певну діяльність власника сусідньої земельної ділянки якою завдається неприпустимий вплив ст. Така заборона являтиме собою обмеження прав на...
80397. Правовий режим земель сільськогосподарського призначення 57.33 KB
  Поняття та склад земель сільськогосподарського призначення. Особливості правового режиму земель сільськогосподарського призначення. Субєкти права сільськогосподарського землекористування та загальна характеристика їх правового статусу...