VPF::[Delphi]Определить имеется ли среди чисел a,b,c

Skvot

Дата 29.4.2009, 17:47 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 23.1.2009

Репутация: нет
Всего: нет

Определить имеется ли среди чисел a,b,c хотя бы одна пара взаимно противоположных чисел

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c:integer;
begin
a:=StrToInt(edit1.text);
b:=StrToInt(edit2.text);
c:=StrToInt(edit3.text);
if a>=0 then if b>=0 then if c>=0 then Label1.caption:='Нет'
else Label1.caption:='Есть'
else Label1.caption:='Есть'
else if b>=0 then Label1.caption:='есть'
else
if c>=0 then Label1.caption:='есть'
else Label1.caption:='нет';
end;
end.

Вот написал.Ребят проверьте.Посоветуйте что нибудь

Silent

Дата 30.4.2009, 10:36 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 252
Регистрация: 3.10.2006

Репутация: 6
Всего: 9

Непонятно что такое взаимно противоположные числа. Если, насколько следует из кода, это просто бимодальность представленных чисел, то процедуру вычисления можно упростить:

Код


procedure TForm1.Button1Click(Sender: TObject);
var a,b,c:integer;
begin
a:=StrToInt(edit1.text);
b:=StrToInt(edit2.text);
c:=StrToInt(edit3.text);
if (a+b+c=abs(a)+abs(b)+abs(c)) then Label1.Caption:='Нет'
else Label1.Caption:='Есть';
end;

Kakadu

Дата 30.4.2009, 15:38 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 273
Регистрация: 19.3.2008

Репутация: 7
Всего: 7

Число проивоположно данному, если он в сумме с данным дает ноль. (Для меня это определение)

Код


procedure TForm1.Button1Click(Sender: TObject);
var a,b,c:integer;
begin
a:=StrToInt(edit1.text);
b:=StrToInt(edit2.text);
c:=StrToInt(edit3.text);
if ((a+b=0)or(c+b=0)or(a+c=0)) then Label1.Caption:='Есть'
else Label1.Caption:='Нет';
end;

--------------------

Добрые мариносы долго кормили украдкой маленьких зерлингов. От этой украдки зерлинги пухли и дохли

grigiv

Дата 30.4.2009, 16:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 32
Регистрация: 1.12.2008

Репутация: -3
Всего: -3

Код


if (a=-b) or (a=-c) or (b=-c) then Label1.Caption:='Есть'
else Label1.Caption:='Нет';

Dmi3ev

Дата 30.4.2009, 16:58 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1698
Регистрация: 28.11.2007

Репутация: 5
Всего: 41

Kakadu, присоединяюсь...

--------------------

Skvot

Дата 6.5.2009, 15:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 23.1.2009

Репутация: нет
Всего: нет

Блок схема

Присоединённый файл ( Кол-во скачиваний: 7 )

____.JPG 478,41 Kb

Kakadu

Дата 6.5.2009, 15:36 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 273
Регистрация: 19.3.2008

Репутация: 7
Всего: 7

По-видимому надо возвращать true если среди трех чисел есть числа разных знаков.

Код


procedure TForm1.Button1Click(Sender: TObject);
var a,b,c:integer;
begin
a:=StrToInt(edit1.text);
b:=StrToInt(edit2.text);
c:=StrToInt(edit3.text);
if ((a*b<0)or(c*b<0)or(a*c<0)) then Label1.Caption:='Есть'
else Label1.Caption:='Нет';
end;

Это сообщение отредактировал(а) Kakadu - 6.5.2009, 15:38

--------------------

Добрые мариносы долго кормили украдкой маленьких зерлингов. От этой украдки зерлинги пухли и дохли

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »