close

Вход

Забыли?

вход по аккаунту

?

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

код для вставкиСкачать

Лабораторная работа №5
"Обработка одномерных массивов"
Подготовил: Ярошенко Александр
Группа: 313801
Условие:
14. Сумму модулей элементов массива, расположенных после первого элемента, равного нулю.
Код:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <math.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{ Label2->Hide();
Label3->Hide();
}
int n=5;
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
randomize();
Edit1->Text=IntToStr(n);
StringGrid1->ColCount=n;
for (int i=0;i<n;i++)
StringGrid1->Cells[i][0]=IntToStr(random(21)-10);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (Edit1->Text=="")
{
ShowMessage("Введите размер матрицы!");
return;
}
if(!TryStrToInt(Edit1->Text,n))
{
ShowMessage("Введите числовой размеры матрицы");
Edit1->Text="";
return;
}
n=StrToInt(Edit1->Text);
if(n>10){
ShowMessage("Превышено максимальное количество элементов!");
n=10;
Edit1->Text="10";
}
StringGrid1->ColCount=n;
for(int i=0;i<n;i++)
StringGrid1->Cells[i][0]=IntToStr(random(21)-10);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
int i, q, s=0, a[10];
for(i=0;i<n;i++)
a[i]=StrToInt(StringGrid1->Cells[i][0]);
for(q=0;q<n;q++) {
if(a[q]==0)
{i=q;
break;}
}
if (Edit1->Text=="")
{
ShowMessage("Введите размер матрицы!");
return;
}
if(!TryStrToInt(Edit1->Text,n))
{
ShowMessage("Ошибка!");
Edit1->Text="";
return;
}
if (q<n-1){
for(i=q+1;i<n;i++)
s+=fabs(a[i]);
Label2->Show();
Label3->Show();
Label2->Caption="Сумма модулей =";
Label3->Caption=s;
}
else {
Label3->Hide();
Label2->Show();
if(a[i]==0)
Label2->Caption="Нулевой элемент стоит на последней позиции";
else
Label2->Caption="Нет нулевых элементов";}
}
//---------------------------------------------------------------------------
Документ
Категория
Рефераты
Просмотров
8
Размер файла
65 Кб
Теги
работа, лабораторная
1/--страниц
Пожаловаться на содержимое документа