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)

{

}

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


 

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

49817. Проблема согласования библейского повествования о творении мира и современных научных данных 236 KB
  Два мира Физическое состояние человека и мира Первозданный мир Мир после грехопадения. Научно-методическое совещание на тему Преподавание в православных школах вопросов творения мира жизни и человека € проведенное Отделом религиозного образования и катехизации Московского Патриархата.
49818. ПРОГРАМНІ ЗАСОБИ В ТЕЛЕКОМУНІКАЦІЙНИХ СИСТЕМАХ 153.5 KB
  Створення та редагування елементів принципових схем у відповідності до ЄСКД. Створення та редагування елементів принципових схем у відповідності до ЄСКД у САПР ORCD 9. Розміщення елементів на робочому полі. Автоматична нумерація елементів.
49821. ПРОЕКТУВАННЯ СИСТЕМ ЕЛЕКТРОПОСТАЧАННЯ 1.07 MB
  Вибір кількості потужності і розташування цехових трансформаторних підстанцій Вибір та порівняння варіантів компенсації реактивної потужності Попереднє визначення розрахункових електричних навантажень економічно доцільної величини споживання реактивної потужності від електроенергетичної системи Qе орієнтовної кількості й потужності трансформаторів цехових ТП і розподільчих пристроїв. Вибір кількості та потужності трансформаторів цехових ТП компенсувальних устав КУ і розподільних пунктів РП.
49822. Значення мотивації для процесу управління. Методи та способи мотивації в управлінській діяльності 233.5 KB
  Визначити поняття «мотивація»; Проаналізувати основні мотиваційні теорії; Визначити роль потреб у процесі мотивації; Дослідити конкретні методи та способи мотивації персоналу в управлінській діяльності; Розкрити процес формування комплексної мотивації в сучасних умовах.
49823. Нейролінгвістичне програмування (НЛП) та управління колективом 176 KB
  Теоретичні засади НЛП в управлінні колективом організації. НЛП як інструмент управління колективом. Сфера застосування та цілі НЛП.
49824. Тактика прийняття управлінських рішень в складних ситуаціях 223.5 KB
  Характеристика рішення в психології управління. Поняття процесу управлінського рішення і його види. Етапи прийняття рішення в складній ситуації. Процес прийняття управлінського рішення керівником в залежності від його психологічних якостей.
49825. Стратегія управління стресом. Профілактика стресів та стратегія виходу зі стресових ситуацій 215 KB
  Виникнення стресу. Стрес його сутність та види. Причини виникнення стресів та динаміка розвитку внутрішнього напруження під час стресу. Висновки та рекомендації Список використаної літератури Додатки Вступ Переважна більшість людей в сучасному суспільстві знаходиться під впливом стресу бо у часи науковотехнічної революції в які ми живемо посилюється психічна діяльність людей. Тому й виникає проблема емоційного стресу тобто напруження і перенапруження...