Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.02.2012, 23:15   #1
Анастасия20
Новичок
Джуниор
 
Регистрация: 07.02.2012
Сообщений: 2
Печаль Ввести масив и проверить входят ли его елементы в указаный диапазон

Код:
//Ввести масив и проверить входят ли его елементы в указаный диапазон

#include <vcl.h>
#include <iostream.h>
#include <stdlib.h>
#include <stdio.h>
#include <conio.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
class masiv{
      int *B,n;
 public:
      masiv(int n1){
        n=n1;}
  void pam(){
    if(B)
    delete[]B;
    int *B=new int(n);
    }
  void set(int i, int z, int *B)
     {   B[i]=z;
     }
    int get(int i){return B[i];}
 };
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  ListBox1->Items->Add(Edit3->Text);
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Button2Click(TObject *Sender)
{  masiv ob(ListBox1->Count);
   int a,b,i;
 a=StrToInt(Edit1->Text);
 b=StrToInt(Edit2->Text);
 for(i=0;i<ListBox1->Count;i++)
  if(ob.get(i)>=a&&ob.get(i)<=b)
 ListBox2->Items->Add(ob.get(i));
  if(ob.get(i)<a&&ob.get(i)>b)
 ListBox3->Items->Add(ob.get(i));
  if(ob.get(i)<a&&ob.get(i)<b)
 ListBox3->Items->Add(ob.get(i));
  if(ob.get(i)>a&&ob.get(i)>b)
 ListBox3->Items->Add(ob.get(i)); 
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)
{
 Form1->Close();        
}
//---------------------------------------------------------------------------


Вообщим программа не делает, того что надо, она не сравнивает элементы массива с значениями а и b, и не выводит их в указаное место, и я незнаю что с этим сделать((
Изображения
Тип файла: jpg Новый рисунок.JPG (60.7 Кб, 36 просмотров)

Последний раз редактировалось ACE Valery; 08.02.2012 в 01:12.
Анастасия20 вне форума Ответить с цитированием
Старый 07.02.2012, 23:55   #2
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

нда....
учим что такое блок операторов!
Цитата:
Код:
for(i=0;i<ListBox1->Count;i++)
if(ob.get(i)>=a&&ob.get(i)<=b)
ListBox2->Items->Add(ob.get(i));
if(ob.get(i)<a&&ob.get(i)>b)
ListBox3->Items->Add(ob.get(i));
if(ob.get(i)<a&&ob.get(i)<b)
ListBox3->Items->Add(ob.get(i));
if(ob.get(i)>a&&ob.get(i)>b)
ListBox3->Items->Add(ob.get(i));
И сколько операторов после for выполнится?
и тем более где ввод массива?
вам класс для работы с массивом прям очень нужен?
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303
Hacker19_90 вне форума Ответить с цитированием
Старый 08.02.2012, 00:10   #3
VIK_aka_TOR
Участник клуба
 
Аватар для VIK_aka_TOR
 
Регистрация: 30.01.2011
Сообщений: 1,578
По умолчанию

Цитата:
Вообщим программа не делает, того что надо
насмешили... как раз таки она и делает то что нужно... это вы пишите не то что нужно)
пишу код не только за печеньки
VIK_aka_TOR вне форума Ответить с цитированием
Старый 08.02.2012, 22:07   #4
Анастасия20
Новичок
Джуниор
 
Регистрация: 07.02.2012
Сообщений: 2
По умолчанию

void __fastcall TForm1::Button1Click(TObject *Sender)
{
ListBox1->Items->Add(Edit3->Text);
}


Вот ввод масива по элементно.


ну тогда как правильно прописать?
Если бы знала, что писать, то не спрашивала бы.
Анастасия20 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ввести однозначное число и определить его четность в ассемблере kachur76 Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 0 29.01.2012 23:07
Ввести исходный массив из текстового файла. Вывести его в естественном виде. yana33311 Паскаль, Turbo Pascal, PascalABC.NET 2 17.04.2011 11:56
Ввести несколько строк и проверить, может ли этот текст быть классом Sudeki Помощь студентам 0 05.12.2009 14:45
Ввести несколько строк и проверить, может ли этот текст быть классом Sudeki Помощь студентам 2 26.11.2009 22:31
Есть масив а[i,j] (10х10), все елементы которого равны 0, т.е нулевая матрица, как воплотить в программе? alex2008ean Паскаль, Turbo Pascal, PascalABC.NET 2 10.12.2008 00:08