|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Определите количество элементов массива больших 0,5 и меньших 1
Табулирование функции.
|
#2
|
|||
|
|||
Как-то так.
Код:
procedure TForm1.N2Click(Sender: TObject); var x,y,h,a,b: real; cod,kolichestvo: integer; begin Memo1.Lines. Add('X F(X)'); Val(Edit1.Text, a, cod); Val(Edit2.Text, b, cod); Val(Edit3.Text, h, cod); kolichestvo:=0; x:=a; while x<=b+h/2 do begin y:=sin(x)+1; if (y > 0.5) AND (y < 1) then inc(kolichestvo); if CheckBox1.Checked then begin Memo1.Lines.Append(Format('%8.2f %8.3f',[x,y])); end; x:=x+h; end; Memo1.Lines.Append('Количество элементов от 0.5 до 1 = '+IntToStr(kolichestvo)); end; end. Последний раз редактировалось rustorkan, 11.06.2017 в 15:38. |
#3
|
|||
|
|||
А чего спросить-то хотел?
|
Этот пользователь сказал Спасибо lmikle за это полезное сообщение: | ||
crazyman (08.06.2017)
|
#4
|
|||
|
|||
Цитата:
|
#5
|
|||
|
|||
Уже нашел решение.
Долго здесь отвечают. |