|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
люди.. помогите написать код к задаче.. зачет валится...
сама задача: Дано множество Х1, содержащее целые числа из диапазона
[1..255]. Сформировать новое множество Y путем выделения из множества Х1 нечетных чисел и чисел, делящихся без остатка на 17. |
#2
|
||||
|
||||
Показывайте, что неработает в вашем коде
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#3
|
|||
|
|||
я его вообще написать не могу =))) я по множествам 0 ... литература мне не помогает =(
|
#4
|
|||
|
|||
Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) ComboBox1: TComboBox; Button1: TButton; Button2: TButton; Label1: TLabel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; x1: set of byte; y1:set of byte; i,j,k,n:byte; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin include(x1,combobox1.itemindex); end; procedure TForm1.Button2Click(Sender: TObject); begin x1:=[1..255]; k:=0; for i:=1 to n do if (x1[i] mod 2<>1) and (x1[i] mod 17) then begin x[i]:=inc(k); for j:=1 to k do y1:=x1; end; label1.caption:=inttostr(y1[i]); end; end. писал я такой вот код... другого ничего придумать не могу =( |
#5
|
||||
|
||||
Без кода, врятли, кто- то будет что- то писать за бесплатно. Читай про массивы.
Код:
var My_Array : array of Real; // определить массив SetLength(My_Array,100); // размер массива |
#6
|
|||
|
|||
Цитата:
это не массив, а множество!... по массивам я вам сам нашарю кодов!... |
#7
|
|||
|
|||
у меня задача на множества..
|
#8
|
|||
|
|||
никто помочь не может? оО
|
#9
|
|||
|
|||
Не совсем понял задание... Что значит "путем выделения"? подходящие элементы должны исключаться из Y?
Код:
var X1: set of byte; Y : set of byte; i: integer; begin Randomize; for i := 1 to 100 do X1 := X1 + [Random(255) + 1]; for i := 1 to 255 do if i in X1 = true then if (i mod 2 <> 0) or (i mod 17 = 0) then Y := Y + [i]; end; |
#10
|
|||
|
|||
Цитата:
путем выделения эт значит надо брать из Х1 и пихать в У.. |
#11
|
|||
|
|||
и множество надо описать через Combobox
|
#12
|
|||
|
|||
кому нужен будет исходник этой проги, пишите в асю 390904570 =) на форуме редко бываю =))
|
#13
|
|||
|
|||
Насколько я знаю множество чисел это и есть одномерный массив(кто-то это уже писал), а заполнение можно ставить на random(225)
|
#14
|
||||
|
||||
Цитата:
Ну так оно и есть, прост нельзя обратиться к элементу через индекс. Цитата:
|