МАссивы

[Епгений]

Здарова народ чесной )))
прошу помощи в одном но оче важном деле.
вобшем так
1) Даны два массива с 10-тью элементами. Найти наибольшее значение из двух массивов.
2) Даны два массива с 10-тью элементами. Объединить оба массива в первый массив с возрастающим по порядку упорядочиванием.
3) Сделать мини-игру на загадку заданного числа. Компьютер загадывает число. Вводим число, компьютер должен вывести либо: «Ваше число больше моей», «Ваше число меньше моей». И когда вводим правильное число, то выводит: «Число отгадано!». Игра прекращается.
4) Cделать паззл. Есть 3 лампы и 3 выключателя. Первый выключатель включает 1ую и 3ую лампы. Второй выключатель включает 2ую и 3ую лампы, а третий 3ую лампу. И нужно зажечь все лампы.

вот с массивами вроде бы легко но я давно забыл за безнадоностью теперь вот мучаюсь )).
Ребят очень нужно, плизз хэльП ми!

парни от этого зависит моя дальнейшая карьера

[rubius2008]

Представьте свои наработки, если нету и хотите чтоб за вас все сделали, и готовы оплатить, то пишите в асю или во фриланс

[Епгений]

на счет наработок я бы рад но дело втом что я 1, 2 поверхностно знаю, а об остальных не имею представления даже. Мне бы только хорошие советы для тольчка, что бы дело пошло )))

ещё вопрос 3 и 4 задании возможно ли на делфи сделать?

[Рик]

по 3-му пункту:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  num,enigm:real; // num :число вводимое тобой в edit1, enigm:число "загадываемое" программой при запуске
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 randomize;
 enigm:=random(10)*10.5;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 num:=strtofloat(edit1.Text );
 if num > enigm then ShowMessage('Ваше число больше моего');
 if num < enigm then ShowMessage('Ваше число меньше моего');
 if num = enigm then ShowMessage('Число отгадано!');
end;



end.

но это так, по быстрому, без проверки вводимого значения в текстовое поле.

[Епгений]

УАаа Рик да ты проста зверь Сбасибки ))) отлично все работает но вот только если при нажатии кнопки когда Edit пустой, то появляется ошибка.

эээ ещё один вопросик я к этой игре добавил ещё одну форму которая появляется при победе, ну это такая меню будет добавил 2 кнопки 'играть ещё' и 'выход'.
так вот к кнопке 'играть ещё' при нажатии его должна появиться form1 и уже с другими генерациями чисел. я попробовал проста form1.show окно появляется но число та же которую я ток шо угадал 0_0 как быть

[Сtrl]

я попробовал проста form1.show окно появляется но число та же которую я ток шо угадал 0_0 как быть

Unit1.enigm:=random(10)*10.5;

[Епгений]

УУУ парнии ура все отлично работает спасибо вам всем за помощь :D.
Вот мой код это еси кому ни будь чем ни будь поможет:

Unit1:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   num,enigm:real;
implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

 begin
num:=strtofloat(edit1.Text);

 if num > enigm then ShowMessage('Ваше число больше моего');
 if num < enigm then ShowMessage('Ваше число меньше моего');
 if num = enigm then  Form2.show ;

 end;


procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
enigm:=random(10);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Clear;
end;
end.

Unit2:
procedure TForm2.Button1Click(Sender: TObject);
begin
unit1.enigm:=random(10);
form2.Close;
form1.Edit1.Clear;
end;
end.

Ползуйтес такие ж новички как Я )))

Ой ещё один малюсенький вопросик.
Вот тут хочу добавить ещё один if then:

"procedure TForm1.Button1Click(Sender: TObject);
begin
num:=strtofloat(edit1.Text);

if num > enigm then ShowMessage('Ваше число больше моего');
if num < enigm then ShowMessage('Ваше число меньше моего');
if num = enigm then Form2.show ;
end; "

ээ при нажатии на кнопку еси Edit1 пустой ни чего не должно происходило, а то еси нажимаешь ошибка какая то.
Вот как то так будет да: if num =('') enigm then ;

[Сtrl]

if edit1.text = '' then
begin
//Тут пишите, что делать если поле пустое
end;

[Епгений]

) щя попробуем

ну как то так сделал:

begin
num:=strtofloat(edit1.Text);
if Edit1.Text = '' then
 begin

  ShowMessage('Введите данные');
     end;
 if num > enigm then ShowMessage('Ваше число больше моего');
 if num < enigm then ShowMessage('Ваше число меньше моего');
 if num = enigm then  Form2.show ;
 end;

при нажатии кнопки ошибку показывает что то типа "is not a valid floating poin value "

я четам тока не добавлял, Edit1.setfocus тож пробовал не ахти это в каком то примере было.

[Сtrl]

Так вы же в случае, если поле пустое, выводите сообщение на экран, а потом продолжаете работу. Я бы на вашем месте TMaskEdit использовал.