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

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

27.02.2015, 18:38. Показов 1323. Ответов 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 Кб, 8 просмотров)
Тип файла: rar Лабороторная№3.rar (288.9 Кб, 8 просмотров)
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.02.2015, 18:38
Ответы с готовыми решениями:

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

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

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

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

2
225 / 224 / 112
Регистрация: 20.10.2013
Сообщений: 808
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 Кб, 9 просмотров)
0 / 0 / 0
Регистрация: 27.02.2015
Сообщений: 3
27.02.2015, 20:41  [ТС] 3
Просто я забыл пароль от старого акаунта, а сообщение со сменой пароля по моему запросу почему-то пришло где-то через пол часа. Я учту ваше замечание по поводу вкладывания КОДА. Спасибо
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.02.2015, 20:41

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

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

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

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

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


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

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

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