21000

Масиви в середовищі розробки С++Builder

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

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

Створив новий проект додав форму на якій розмістив компоненти: Запрограмував кнопку Ввести для введення значення у потрібний елемент масиву: void __fastcall TForm1::Button3ClickTObject Sender { i=StrToIntEdit1 Text; a[i]=StrToIntEdit2 Text; Edit3 Text= ; for i=0;i 10;i { Edit3 Text=Edit3 TextIntToStra[i] ; } } Запрограмував кнопку Анализ массива для виведення значень масиву: void __fastcall TForm1::Button1ClickTObject Sender { for i=0;i 10;i { if i2==0 { if a[i]2=0...

Русский

2013-08-02

36.26 KB

4 чел.

МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ

КРЕМЕНЧУЦЬКИЙ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ

ІМ. М. ОСТРОГРАДСЬКОГО

ІНСТИТУТ ЕЛЕКТРОМЕХАНІКИ, ЕНЕРГОЗБЕРЕЖЕННЯ ТА СИСТЕМ УПРАВЛІННЯ

КАФЕДРА СИСТЕМ АВТОМАТИЧНОГО УПРАВЛІННЯ І

ЕЛЕКТРОПРИВОДА

ЗВІТ

До лабораторної роботи №1

З дисципліни: «Програмування»

На тему: «Масиви в  середовищі розробки С++Builder»

Виконав:

Студент групи СІ-10-3С

Шаповал Ю.Я.

Прийняла:

Заквасов В.В.

КРЕМЕНЧУК 2011

Мета:  Створити додаток, з допомогою якого користувач вводить дані у масив та виконується пошук максимального елемента.

Порядок виконання роботи

Створити програму, яка аналізує парні елементи масиву (max 10). Якщо його значення не парне, то підсумувати по парам парні і непарні елементи. Отримане нове значення записати в слідуючий непарний елемент масиву.   

  1.  Створив новий проект, додав форму, на якій розмістив компоненти:

  1.  Запрограмував кнопку Ввести, для введення значення у потрібний елемент масиву:

void __fastcall TForm1::Button3Click(TObject *Sender)

{

i=StrToInt(Edit1->Text);

a[i]=StrToInt(Edit2->Text);

Edit3->Text=" ";

for (i=0;i<10;i++)

{

Edit3->Text=Edit3->Text+IntToStr(a[i])+" ";

}

}

  1.  Запрограмував кнопку Анализ массива, для виведення значень масиву:

void __fastcall TForm1::Button1Click(TObject *Sender)

{

for (i=0;i<10;i++)

{

       if (i%2==0 )

       {

               if (a[i]%2!=0)

               {

               a[i+1]+=a[i];

               }

       }

}

for (i=0;i<10;i++)

{

Edit4->Text=Edit4->Text+IntToStr(a[i])+" ";

}

}

  1.  Перевірив роботу проекту:

Код всієї програми

//------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

//------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

       : TForm(Owner)

{

}

int a[]={2,1,4,7,5,3,8,2,9,3};

int i,max;

//------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)

{

i=StrToInt(Edit1->Text);

a[i]=StrToInt(Edit2->Text);

Edit3->Text=" ";

for (i=0;i<10;i++)

{

Edit3->Text=Edit3->Text+IntToStr(a[i])+" ";

}

}

//------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)

{

for (i=0;i<10;i++)

{

       if (i%2==0 )

       {

               if (a[i]%2!=0)

               {

               a[i+1]+=a[i];

               }

       }

}

for (i=0;i<10;i++)

{

Edit4->Text=Edit4->Text+IntToStr(a[i])+" ";

}

}

//------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)

{

}

//------------------------------------------------------------------


 

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

31597. ПОРУШЕННЯ ВИЩОЇ НЕРВОВОЇ ДІЯЛЬНОСТІ 85.5 KB
  Порушення відчуттів і сприйняття подразнень із зовнішнього середовища. Порушення зорової сенсорної системи зона кори навколо шпорної борозни sulcus clcrinus. Ушкодження зорового аналізатора письмової мови ІІ сигнальна система gyrus ngulris lobulus prietlis inferior супроводжується виникненням алексії порушення здатності читати та розуміти написане.
31598. ПОРУШЕННЯ ГЕМОСТАЗУ. Тромбоцитопенії 83 KB
  2 Тромбоцитопенії повязані із посиленим руйнуванням тромбоцитів: а імунне ушкодження обумовлене антитромбоцитарними антитілами на власні компоненти кровяних пластинок чи на лікарські препарати адсорбовані на тромбоцитах розвиток ідіопатичної тромбоцитопеничної пурпури хвороби Верльгофа; б гіперспленізм гіперфункція селезінки що супроводжується підвищенням фагоцитарної активності фіксованих макрофагів які фагоцитують усі формені елементи крові у тому числі і тромбоцити; в механічне ушкодження тромбоцитів часто виникає при...
31599. ПОРУШЕННЯ ГЕМОСТАЗУ. Система гемостазу 76.5 KB
  За нормальних умов кров перебуває в рідкому агрегатному стані що забезпечується системою РАСК умовна назва від перших літер слів: рідкий агрегатний стан крові яка обумовлюється: 1 Впливом простацикліну який синтезується ендотеліоцитами із арахідонової кислоти під дією циклоксигенази ЦОГ і простациклінсинтетази ПЦС попереджує адгезію тромбоцитів до судинної стінки має виражений антиагрегантний вплив. 2 Впливом оксиду азоту NO який синтезується ендотеліоцитами із Lаргініну під впливом NOсинтетази дифундує у м‘язову оболонку...
31600. ПОРУШЕННЯ ЕНЕРГЕТИЧНОГО ОБМІНУ. ГОЛОДУВАННЯ 71.5 KB
  Енергетичний обмін – це складний біохімічний процес обміну речовин, в якому задіяний каскад біохімічних реакцій, в результаті яких енергія, закладена в структурі вуглеводів, білків, жирів, які надходять в організм, акумулюється в макроергічних зв‘язках особливих хімічних сполук, зокрема, АТФ.
31601. ПОРУШЕННЯ ЛІПІДНОГО ОБМІНУ 80.5 KB
  Характерні: а високий рівень холестерину і ТГ у плазмі; б ксантелазми ліктьові і колінні ксантоми жовтуватокоричневі відкладення ліпідів у шкірі долонних ліній і в місцях тиску кілець; в атеросклероз коронарних артерій периферичних судин і судин мозку; в ожиріння цукровий діабет гіпотиреоз. Клінічно проявляються: а загальним ожирінням б ожирінням печінки в цукровим діабетом г хронічними захворювання нирок д органними ангіопатіями є жировими відкладеннями в сітківці. 4 Гормональні порушення хвороби обміну...
31602. ПАТОЛОГІЧНА ФІЗІОЛОГІЯ НЕРВОВОЇ СИСТЕМИ. ПОРУШЕННЯ СЕНСОРНОЇ ФУНКЦІЇ НЕРВОВОЇ СИСТЕМИ 93.5 KB
  Екстралемнісковий шлях проводить больову чутливість пізня глибока і вісцеральна біль. На відміну від двох попередніх є багатонейронним і філогенетично більш давній. Біль неприємне сенсорне і емоційне відчуття повязане із загрозою або самим ушкодженням тканин. Особливості болю як виду чутливості: 1 Біль дає мало інформації про навколишній світ проте інформує про небезпеку яка може виникнути або уже виникла внаслідок дії ушкоджуючих факторів захисна функція болю.
31603. ПОРУШЕННЯ СИСТЕМИ ЛЕЙКОЦИТІВ 84 KB
  Периферична кров містить: 1 пул циркулюючих лейкоцитів близько 50; 2 пристінковий маргінальний пул близько 50. Для характеристики стану лейкоцитів використовують наступні показники: 1 Вміст лейкоцитів в одиниці обєму крові. Збільшення вмісту лейкоцитів у крові одержало назву лейкоцитозу зменшення лейкопенії.
31604. ПОРУШЕННЯ СИСТЕМНОГО РІВНЯ АРТЕРІАЛЬНОГО ТИСКУ 96.5 KB
  Відповідно до цього виділяють 3и гемодинамічних варіанти артеріальної гіпертензії: 1. Виникнення артеріальної гіпертензії може обумовлюватися змінами функції регуляторних систем організму які забезпечують сталість артеріального тиску. При первинній артеріальній гіпертензії підвищення артеріального тиску не пов'язане із конкретним захворюванням чи патологічним процесом у тих чи інших органах і системах організму: причина підвищення артеріального тиску залишається неясною. Таку форму гіпертензії у різних країнах називають...
31605. ПОРУШЕННЯ ТРАВЛЕННЯ У КИШЕЧНИКУ. (МАЛЬДІГЕСТІЯ) 76 KB
  Він виникає внаслідок: 1 недостатності секреторної функції шлунка; 2 недостатності секреції соку підшлункової залози; 3 недостатньої секреції жовчі; 4 недостатньої секреції кишкового соку 12палої та порожньої кишок. П р и ч и н а м и такого явища можуть бути: а нейрогенне гальмування зовнішньосекреторної функції підшлункової залози при зменшенні тонусу блукаючого нерва чи отруєнні атропіном і ін. Такі фактори ведуть до порушення надходження у 12палу кишку ферментів підшлункової залози які відіграють вирішальну роль в травленні...