Создания Delphi 7 Forms

@Kudaibergen tak · Регистрация: 29.11.2017

Author24 — интернет-сервис помощи студентам

Извините всем я как начинающий по Delphi Forms я не могу представить как сделать трудную задачу на forms да я изучаю компоненты и палитры и надо выполнить заданию на forms чтоб понять как оно работает правильно
Задание: Дана последовательность действительных чисел а1, а2, …, а10. Подсчитать те ее элементы, которые принадлежат отрезку [c,d]; оно должно выпонено с многострочный редактор.

@Puporev · 14.03.2018, 18:16

Положите на форму Memo, 2 Edit и кнопку.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
const n=10;
var a:array[1..n] of real;
    c,d:real;
    i,k:byte;
    s:string;
begin
randomize;
s:='';
for i:=1 to n do
 begin
  a[i]:=10*random;
  s:=s+formatfloat('0.00',a[i])+' ';
 end;
Memo1.Clear;
Memo1.Lines.Add('Последовательность');
Memo1.Lines.Add(s);
c:=strtofloat(Edit1.Text);
d:=strtofloat(Edit2.Text); //d>c
k:=0;
for i:=1 to n do
if(a[i]>=c)and(a[i]<=d) then k:=k+1;
Memo1.Lines.Add('Количество элементов принадлежащих интервалу ['
                +formatfloat('0.00',c)+';'+formatfloat('0.00',d)
                +']='+inttostr(k));
end;

@Kudaibergen tak · 14.03.2018, 18:33 **[ТС]**

2 edit положить и код писать на кнопке так

@Puporev · 14.03.2018, 20:11

Сделайте лучше так.

@Kudaibergen tak 1 / 1 / 0 Регистрация: 29.11.2017 Сообщений: 55
		1
	Delphi 6-7 Создания Delphi 7 Forms 14.03.2018, 17:44. Показов 546. Ответов 3 Метки нет (Все метки) Извините всем я как начинающий по Delphi Forms я не могу представить как сделать трудную задачу на forms да я изучаю компоненты и палитры и надо выполнить заданию на forms чтоб понять как оно работает правильно Задание: Дана последовательность действительных чисел а1, а2, …, а10. Подсчитать те ее элементы, которые принадлежат отрезку [c,d]; оно должно выпонено с многострочный редактор. 0

@Kudaibergen tak 1 / 1 / 0 Регистрация: 29.11.2017 Сообщений: 55
	14.03.2018, 18:33 [ТС]	3
	2 edit положить и код писать на кнопке так 0

	14.03.2018, 20:11

Опции темы