ЗаДача НА МАССИв для РГР

За вознаграждение или нахаляву (если повезёт)

Модераторы: Хыиуду, Medved, dr.Jekill, MOTOCoder

Ответить
Wudro
Сообщения: 8
Зарегистрирован: 07 май 2005, 23:37

ЗаДача НА МАССИв для РГР

Сообщение Wudro » 09 июн 2005, 00:48

24.Даны последовательность x1<x2<..xn вещественных чисел и вещественное число y. Напишите программу для вычисления такого k, что xk<y<xk+1

Здесь x1,x2,xn,xk,xk+1 , всё что после x это нижние индексы
(на массив)

VirusXP
Сообщения: 12
Зарегистрирован: 07 июн 2005, 19:00
Откуда: Москва
Контактная информация:

Сообщение VirusXP » 10 июн 2005, 11:34

в чем проблема то???!!!)))P
-------------
unit Unit1;

interface

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

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

var Form1: TForm1;

implementation

const ArrIn: array[1..7] of real = (1, 4, 7, 9, 10, 4, 6);
CheckReal = 5;

{$R *.dfm}

function check(AInd: integer): boolean;
begin
result := (CheckReal > ArrIn[AInd]) and (CheckReal < ArrIn[AInd + 1]);
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i := Low(ArrIn) to High(ArrIn)-1 do
if check(i) then
self.Caption := self.Caption + ' ' + FloatToStr(i); // íàïðèìåð
end;

end.
...и опыт - сын ошибок трудных,
и гений - парадоксов друг... (c)

Ответить