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

Циклические алгоритмы

27.02.2015, 18:38. Просмотров 1099. Ответов 2
Метки нет (Все метки)

Дорогие друзья, приветсвую мне нужна помощь, сделал лабораторную работу, но не уверен, что там все верно
Тема В заданиях с №1 по 15 (табл. 3.1.) необходимо вывести на экран таблицу значений функции Y(x) и ее разложения в ряд S(x) для x изменяющихся от xn до xk с шагом h=(xn-xk)/10. Близость значений S(x) и Y(x) во всем диапазоне значений x указывает на правильность вычисления S(x) и Y(x).
Я делал задание №11 из таблицы 3.1, которая на 26 странице. Кому не трудно посмотрите
0
Вложения
Тип файла: rar Лабораторный практикум ПРОГРАММИРОВАНИЕ В СРЕДЕ DELPHI.rar (266.4 Кб, 6 просмотров)
Тип файла: rar Лабороторная№3.rar (288.9 Кб, 7 просмотров)
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.02.2015, 18:38
Ответы с готовыми решениями:

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

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

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

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

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

2
Sigin
221 / 221 / 111
Регистрация: 20.10.2013
Сообщений: 808
Завершенные тесты: 4
27.02.2015, 20:36 2
Лучший ответ Сообщение было отмечено Abisal как решение

Решение

Ну во-первых отмечу, что создать для каждого сообщения новый аккаунт не есть хорошо...
Во-вторых, на форуме принято выкладывать КОД в сообщение, и/или описывать задание.
Ну, а теперь к делу:
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
function Factorial(n: Integer): Integer;
var
  i: Integer;
begin
  if n < 1 then
    Result := 0
  else
  begin
    Result := 1;
    for i := 1 to n do
      Result := Result * i;
  end;
end;
 
function y(x: Double): Double;
begin
  Result := (1-Sqr(x)/2)*Cos(x)-(x/2)*Sin(x);
end;
 
function s(x: Double; n: Integer): Double;
begin
  Result := Power(-1, n) * ((2 * Sqr(n) + 1) / (Factorial(2 * n)) * Power(x, 2 * n));
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  xn, xk, h, x: Double;
  n: integer;
begin
  xn := StrToFloat(Edit1.Text);
  xk := StrToFloat(Edit2.Text);
  n := StrToInt(Edit3.Text);
  h := (xk - xn) / 10;
  Memo1.Clear;
  if ((h>0) and (n>0)) then
  begin
    x:=xn;
    repeat
      Memo1.Lines.Add('При x='+FloatToStr(x)+'; функция Y(x)='+FloatToStrF(y(x), ffFixed, 8, 4)+'; функция S(x)='+FloatToStrF(s(x,n), ffExponent, 3, 2)+';'); //С выводом подбери сам
      x := x + h;
    until x > xk;
  end;
end;
0
Вложения
Тип файла: rar Лабороторная №3.rar (20.3 Кб, 8 просмотров)
Abisal
0 / 0 / 0
Регистрация: 27.02.2015
Сообщений: 3
27.02.2015, 20:41  [ТС] 3
Просто я забыл пароль от старого акаунта, а сообщение со сменой пароля по моему запросу почему-то пришло где-то через пол часа. Я учту ваше замечание по поводу вкладывания КОДА. Спасибо
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.02.2015, 20:41

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

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

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


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

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

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