|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.04.2017, 15:44 | #1 |
Пользователь
Регистрация: 27.09.2016
Сообщений: 66
|
Delphi необходимо вывести на экран таблицу значений функции
В задания №5 необходимо вывести на экран таблицу значений функции Y(x) и ее разложения в ряд S(x) для x изменяющихся от xn до xk с шагом h=(xn-xk)/10. Близость значений S(x) и Y(x) во всем диапазоне значений x указывает на правильность вычисления S(x) и Y(x).
Текст программы приведен ниже. unit tema3; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); begin Edit1.text:='0'; Edit2.text:='2'; Edit3.text:='5'; Edit4.text:='0,25'; Memo1.Clear; Memo1.Lines.Add('Результаты ст. гр.155 ЗМК Иванова И.И.'); end; procedure TForm1.Button1Click(Sender: TObject); var x1,x2,x, h,a, s:extended; N, k,c:integer; begin x1:=StrToFloat(Edit4.Text); Memo1.Lines.Add(' x1='+Edit1.Text); x2:=StrToFloat(Edit2.Text); Memo1.Lines.Add(' x2='+Edit2.Text); N:=StrToInt(Edit3.Text); Memo1.Lines.Add(' N='+Edit3.Text); h:=StrToFloat(Edit4.Text); Memo1.Lines.Add(' h='+Edit4.Text); c:=-1; x:=x1; repeat a:=1; S:=1; for k:=1 to N do begin a:=c*a*x/k; s:=s+a; end; Memo1.Lines.Add('при x='+FloatToStrF(x,ffFixed,6,2)+' сумма ='+FloatToStrF(s, ffFixed,6,2)); x:=x+h; until x>x2; end; end. Нужно вписать вот этот пример Пример приведен ниже: Последний раз редактировалось Vladislav125; 18.04.2017 в 17:06. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
необходимо вывести на экран таблицу значений функции Y(x) и ее разложения в ряд S(x) для x изменяющихся от xn до xk с шагом h | ArturBattalov | Помощь студентам | 1 | 09.05.2013 22:06 |
Вывести на экран таблицу значений функции Y(x) и ее разложения в ряд ( Delphi ) | Mark21 | Помощь студентам | 4 | 19.03.2013 15:41 |
В задаче необходимо вывести на экран таблицу значений функции У(х) и ее разложения в ряд С (х) для значений х от до с шагом.(Паск | fashionweek | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 07.02.2013 23:11 |
Delphi вывести на экран таблицу значений функции | rager06 | Помощь студентам | 6 | 11.09.2010 15:51 |
необходимо вывести на экран таблицу значений суммы ряда S(x) для х изменяющихся от xn до xk | Mereke | Помощь студентам | 2 | 21.05.2010 17:28 |