Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 21.11.2017
Сообщений: 6
1
Delphi 6-7

Циклические алгоритмы. Табулирование функций

14.03.2018, 20:33. Показов 931. Ответов 3
Метки нет (Все метки)

Вложение 919265

Циклические алгоритмы. Табулирование функций
Составить алгоритм и программу вычисления значений функции y(x) в K равноотстоящих друг от друга точках при изменении x на отрезке [x1; x2]. Значения K, x1, x2, А вводится при работе программы.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.03.2018, 20:33
Ответы с готовыми решениями:

Циклические алгоритмы (Алгоритмы с одним циклом)
Доброго времени суток! Помогите пожалуйста написать программы на циклы в Delphi 7, а то я только...

Циклические алгоритмы
Пожалууйстааа

Циклические алгоритмы
Определить k -- количество трёхзначных натуральных чисел, сумма цифр которых рана n (1<=n<=27)....

циклические алгоритмы...
помогите плз написать проги на циклы в Delphi Console.. а то я только на линейные и разветвляющиеся...

3
D1973
15.03.2018, 09:21
  #2
 Комментарий модератора 
п. 5.18 Правил форума:
Запрещено размещать задания и решения в виде картинок и других файлов с их текстом.
dron-, функции перепечатайте руками на форум. Внизу страницы есть редактор формул!
0
Модератор
1279 / 872 / 206
Регистрация: 31.05.2013
Сообщений: 5,875
Записей в блоге: 6
15.03.2018, 09:42 3
Циклические алгоритмы (Алгоритмы с одним циклом)
Циклические алгоритмы
Значение функции S(x) и Y(x) циклические алгоритмы
0
Модератор
63391 / 47080 / 32450
Регистрация: 18.05.2008
Сообщений: 114,118
15.03.2018, 11:58 4
Формула
Циклические алгоритмы. Табулирование функций

Решить можно так.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
{$R *.dfm}
uses Math;
procedure TForm1.Button1Click(Sender: TObject);
var xn,xk,a,h,x,y:real;
    i,k:integer;
    str1,str2,str3: string;
begin
val(Edit1.Text,xn,i);
if i<>0 then
 begin
  ShowMessage('Неверно введено начало интервала xn');
  Edit1.Clear;
  Edit1.SetFocus;
  exit;
 end;
val(Edit2.Text,xk,i);
if (i<>0)or(xk<=xn) then
 begin
  ShowMessage('Неверно введен конец интервала xk');
  Edit2.Clear;
  Edit2.SetFocus;
  exit;
 end;
val(Edit3.Text,a,i);
if i<>0 then
 begin
  ShowMessage('Неверно введен параметр а');
  Edit3.Clear;
  Edit3.SetFocus;
  exit;
 end;
val(Edit4.Text,k,i);
if (i<>0)or(k<3) then
 begin
  ShowMessage('Неверно введено количество точек');
  Edit4.Clear;
  Edit4.SetFocus;
  exit;
 end;
Memo1.Clear;
Memo1.ScrollBars:=ssVertical;
Memo1.Font.Name:='Courier New';
Memo1.Lines.Add(' №     X       Y');
h:=(xk-xn)/(k-1);
for i:=0 to k-1 do
 begin
  x:=xn+i*h;
  Str(i+1:3,str1);
  Str(x:7:2,str2);
  if x<=-1 then y:=a*cos(x+1)+a
  else y:=a*power(x+2,3/2);
  Str(y:9:4,str3);
  Memo1.Lines.Add(str1+str2+str3);
 end;
 
end;
0
Вложения
Тип файла: rar Табуляция с Memo_картинка.rar (230.2 Кб, 6 просмотров)
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.03.2018, 11:58

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Циклические алгоритмы
необходимо вывести на экран таблицу значений функции Y(x) и ее разложения в ряд S(x) для x...

Циклические алгоритмы
Дорогие друзья, приветсвую мне нужна помощь, сделал лабораторную работу, но не уверен, что там все...

ЦИКЛИЧЕСКИЕ АЛГОРИТМЫ
Доказать (путем перебора возможных значений), что для любых величин а, b, с типа boolean следующие...

Задача по теме «циклические алгоритмы»
Суточный рацион коровы составляет u кг сена, v кг силоса и w кг комбикорма. В хозяйстве, содержащем...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.