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)

{

}

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


 

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

16532. Использование материалов Единой коллекции ЦОР при изучении истории в школе 24 KB
  Занятие № 6 Тема: Использование материалов Единой коллекции ЦОР при изучении истории в школе. Цель: содействие становлению компетентности будущего учителя истории в области использования ЦОР при обучении школьников истории; развитие умений анализировать дидак
16533. Разработка и использование цифровых образовательных ресурсов при организации процесса обучения истории 16.85 KB
  Занятие № 7 Тема: Разработка и использование цифровых образовательных ресурсов при организации процесса обучения истории. Цель: Формирование базовых знаний о типологии и дидактических принципах использования современных ИКТ в процессе обучения школьнико
16534. Компьютерные технологии, реализующие диагностические процедуры 15.38 KB
  Занятие №8 Тема: Компьютерные технологии реализующие диагностические процедуры. Цель: Формирование профессиональной компетентности студентов в области использования тестов. Вопросы для обсуждения: Теория и практика создания тестов для системы ...
16535. Использование тестов в практике обучения 14.64 KB
  Занятие №9 Тема: Использование тестов в практике обучения. Цель: Формирование профессиональной компетентности студентов в области использования тестовых заданий. Вопросы для обсуждения: Эффективность использования компьютерных технологий в п
16536. Основы организации ЭВМ 598 KB
  Лабораторная работа №6. Основы организации ЭВМ 1. Архитектура компьютера. Архитектура ЭВМ Презентация. Устройства компьютера. Шинная структура связей Для достижения максимальной универсальности и упрощения протоколов обмена информацией в м...
16537. МОНИТОРИНГ СИСТЕМЫ WINDOWS И РАБОТА С ПОДСИСТЕМОЙ БЕЗОПАСНОСТИ 119.5 KB
  МЕТОДИЧЕСКИЕ УКАЗАНИЯ К ВЫПОЛНЕНИЮ ЛАБОРАТОРНЫХ РАБОТ ПО ДИСЦИПЛИНЕ ОПЕРАЦИОННЫЕ СИСТЕМЫ Лабораторная работа 3. Мониторинг системы Windows и работа с подсистемой безопасности Часть1. Мониторинг и оптимизация системы Вызовите программу Диспетчер задач. ...
16538. ОРГАНИЗАЦИЯ РАБОЧЕЙ СРЕДЫ ПОЛЬЗОВАТЕЛЯ 105.5 KB
  МЕТОДИЧЕСКИЕ УКАЗАНИЯ К ВЫПОЛНЕНИЮ ЛАБОРАТОРНЫХ РАБОТ ПО ДИСЦИПЛИНЕ ОПЕРАЦИОННЫЕ СИСТЕМЫ ЛАБОРАТОРНАЯ РАБОТА 1. ОРГАНИЗАЦИЯ РАБОЧЕЙ СРЕДЫ ПОЛЬЗОВАТЕЛЯ Часть 1. Использование графического интерфейса Настройка рабочей среды пользователя Посмотрите как
16539. РАБОТА С ФАЙЛАМИ 89 KB
  МЕТОДИЧЕСКИЕ УКАЗАНИЯ К ВЫПОЛНЕНИЮ ЛАБОРАТОРНЫХ РАБОТ ПО ДИСЦИПЛИНЕ ОПЕРАЦИОННЫЕ СИСТЕМЫ Лабораторная работа 2. Работа с файлами Часть 1. Локальные файловые системы Создать папку в ФС NTFS и вложить в нее несколько файлов. Установить права доступа на папку.
16540. СОЗДАНИЕ УЧЕТНЫХ ЗАПИСЕЙ ПОЛЬЗОВАТЕЛЕЙ И ГРУПП В СРЕДЕ ОС LINUX. ОРГАНИЗАЦИЯ РАБОЧЕЙ СРЕДЫ ПОЛЬЗОВАТЕЛЯ 381.5 KB
  Лабораторная работа 4. Создание учетных записей пользователей и групп в среде ОС Linux. Организация рабочей среды пользователя Войдите в систему. Используя Центр управления создайте своего пользователя. Перейдите в первую текстовую консоль и зарегистрируйтесь...