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

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

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

Вложение 919265

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

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

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

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

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

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

3
D1973
15.03.2018, 09:21
  #2
 Комментарий модератора 
п. 5.18 Правил форума:
Запрещено размещать задания и решения в виде картинок и других файлов с их текстом.
dron-, функции перепечатайте руками на форум. Внизу страницы есть редактор формул!
0
Matan!
Delphi/Java/DB Dev + Math
526 / 418 / 146
Регистрация: 31.05.2013
Сообщений: 3,382
Записей в блоге: 5
Завершенные тесты: 2
15.03.2018, 09:42 3
Циклические алгоритмы (Алгоритмы с одним циклом)
Циклические алгоритмы
Значение функции S(x) и Y(x) циклические алгоритмы
0
Puporev
Модератор
55507 / 42596 / 29444
Регистрация: 18.05.2008
Сообщений: 100,763
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 Кб, 1 просмотров)
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.03.2018, 11:58

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

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

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


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

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

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