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

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


 

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

52022. Я в серці маю те, що не вмирає. (слідами Лесі Українки на Хмельниччині) 4.78 MB
  Я в серці маю те що не вмирає слідами Лесі Українки на Хмельниччині Мета. Ознайомити учнів із досі мало відомими сторінками із життя Лесі Українки зокрема перебуванням її у нашому краї. Але сьогодні ми з вами відкриємо для себе досі не всіма знану і досконало вивчену сторінку історії як нашого краю так і біографії Лесі Українки а саме: перебування відомої поетеси на Хмельниччині її зв’язок з подільським краєм. Адже ми бажаємо глибше знати культурні і літературні традиції Хмельниччини а також життя відомої...
52024. Повторення таблиць множення числа 2 і ділення на 2. Розв’язування задач 434 KB
  Розв’язування задач. Хмельницький Мета: Повторити таблиці множення числа 2 і ділення на 2; формувати вміння розв’язувати прості і складені задачі; розвивати увагу творче мислення пам’ять; виховувати інтерес до математики. а Пояснити розв’язання задачі № 678. в Пояснити розв’язання задачі яку виконували за бажанням за карткою.
52025. Збірник прикладних задач «Математика навколо нас» 3.75 MB
  Анотація Ідея створення цього збірнику виникла з приводу того що розвиток математичних знань у розумово відсталих дітей має виключно практичну важливість оскільки людині в повсякденному житті постійно доводиться оперувати арифметичними виразами здійснювати рахунок і різні операції з числовими величинами. Скільки грошей він отримає пропрацювавши 20 днів Який розфасовки пральний порошок вигідніше купити господині якщо відомо що пакет вагою 2кг 400 г коштує р. Скільки...
52026. Вправи і задачі на засвоєння таблиць додавання і віднімання числа Порівняння виразу і числа 58.5 KB
  Діти в народі говорять: Добрий гість – дому радістьâ€. 2 слайд Математична розминка Інтерактивна вправа Мозковий штурм Як називається геометрична фігура у якої три кути Який день настає після суботи Скільки сторін у квадрата Скільки місяців триває зима Як називається лінія у якої є початок і кінець  Закінч речення: тиждень триває  Скільки паличок потрібно щоб викласти 2 квадрати Молодці 2. Математичний диктант Слайди 412....
52027. Таблица умножения и деления на 7 72 KB
  Гномики обожают число 7 и надеются что его полюбите и вы Что в вашей жизни связано с числом 7 Чего бывает в жизни только 7 Вы знаете что число 7 на Руси издревле считалось волшебным. Братья Гримм Умницы Первый гномик еще мал и любит играть. Гномик хочет познакомиться с вами. 21 : 3 = 7 21 : 7 = 3 назовите компоненты Третий гномик любит решать уравнения.
52028. Наш край у 1932-1933 роках. Історія Маньківщини 57.5 KB
  Хід уроку: Епіграф: Нагадай мені інший народ щоб він зазнав такої чорної недолі як народ український Учитель української мови і літератури Відкосили косами Жниварі з ЦК А ми хліба просимо Аж болить рука Встали під закопами Ух тверді лоби.Проценко Голодомор Учитель історії: Радянське керівництво взявши курс на модернізацію промислового потенціалу країни одразу зіткнулося з трьома проблемами: коштів сировини й робочих рук для розвитку індустрії. Учитель української мови та літератури: Перед вами картина...
52029. По следам бременских музыкантов. Числа от 11 до 20 173.5 KB
  И был у мельника осёл хороший осёл умный и сильный. Долго работал осёл на мельнице таскал на спине кули с мукой и вот наконец состарился.Чтение отрывка из сказки Видит хозяин: ослабел осёл не годится больше для работы и выгнал его из дому. Испугался осёл: “Куда я пойду куда денусь Стар я стал и слабâ€.
52030. Множення дробів. Піднесення дробу до степеня 239 KB
  Мета: домогтися засвоєння учнями правил множення раціонального дробу на цілий вираз на дріб а також правила піднесення раціонального дробу до натурального степеня та виконання сумісних дій піднесення дробу до степеня та множення раціональних дробів; формувати вміння відтворювати вивчені правила та застосовувати їх під час виконання завдань на множення раціональних дробів та піднесення дробу до степеня; вдосконалювати вміння виконувати скорочення раціональних дробів та знаходити ОДЗ дробового виразу; розвивати мислення...