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)

{

}

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


 

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

7652. Культурология как наука 55 KB
  Культурология как наука Введение. Культурология (название происходит от лат cultura и греческого logos) является важнейшей составной частью современного гуманитарного знания, интегральным элементом полноценного высшего образования. Хотя челове...
7653. Проблема сущности культуры 40.5 KB
  Проблема сущности культуры. Сущность культуры как философская проблема. Выявить сущность и значение культуры как особого социального феномена, зафиксировать ее всеобщее определение возможно только средствами философского анализа. Достаточно очеви...
7654. Культура и природа. Пространственно-временные координаты бытия культуры 45 KB
  Культура и природа. Пространственно-временные координаты бытия культуры Природой в широком смысле слова называют все объективно существующее, т.е. понятие природа предельным образом приближено к понятию материальный мир. Словом культура в само...
7655. Культура и общество 79.5 KB
  Культура и общество Несмотря на то, что дефиниция общества представляет для социологии почти такую же проблему, как определение культуры для культурологии, сформулируем рабочее определение данного понятия. Под обществом мы будем понимать совокупност...
7656. Человек в мире культуры 39.5 KB
  Человек в мире культуры Взаимоотношения культура - человек можно рассматривать сквозь призму трех уровней: практического, практически-духовного и теоретического. Первый уровень - реальное созидание человеком второй природы (предметов...
7657. Проблемы типологии культуры. Концепции культурно-исторических типов и линейная (стадиальная) схема периодизации культуры 88.5 KB
  Проблемы типологии культуры. Концепции культурно-исторических типов и линейная (стадиальная) схема периодизации культуры При изучении культур встает проблема их типологизации. Необходимость типологизации культуры следует из сложности и многогр...
7658. Культура как информационно-семиотическая система 61 KB
  Культура как информационно-семиотическая система. I. Новый поворот в понимании сущности культуры наметился в первой половине XX века, и причиной его стало появление новой науки - семиотики. Семиотика - это наука о знаках, знаковых си...
7659. Современная культура как культура масс-медиа 48 KB
  Современная культура как культура масс-медиа I. Сложность исследования особенностей современной культуры, определяется несколькими моментами. Во-первых, современный мир мультикультурен, так как, если ранее степень изоляции различный культур была зна...
7660. Історія української літератури (20 ст.) 59.5 KB
  Історія української літератури (20 ст.) Загальна характеристика українського літературного процесу 20 ст. Загальні особливості української культури 20 ст. Особливості розвитку української культури і літератури в 20-х рр. Трагедія україн...