Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 03.10.2009
Сообщений: 80

Вычислить значение выражения

03.04.2010, 00:20. Показов 1457. Ответов 7
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Я выложил их в формате Word. Посмотрите, пожалуйста, может кто-то сможет решить. Они мне нужны до 7 апреля 2010. Если кто сделает, отпишитесь, пожалуйста, в теме, я в личку скину свой мейл...
Лаб3.doc
Лаб4.doc
Лаб5.doc
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
03.04.2010, 00:20
Ответы с готовыми решениями:

Вычислить сумму чисел:в указанном пределе, с неопределенным пределом. Вычислить значение выражения
s=\sum_{n=1}^{15}*{(-1)}^{n+1}*\frac{2*sin(n*x)}{n},y=x Помогите найти ошибку. unit Unit1; interface uses Windows,...

Вычислить значение выражения
w=ln(x-a*a) x0=3.261; h=0.49; n=10

Вычислить значение выражения
Всем привет, это мои задачи на пересдачу экзамена. .. я решил задание с кусочно-линейной функцией. .. а вот с первым беда мы не делали...

7
 Аватар для Фоат
165 / 82 / 32
Регистрация: 05.02.2010
Сообщений: 318
03.04.2010, 06:58
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
57
58
59
60
61
62
63
64
65
66
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Edit3: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
        procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  x, y, z : extended;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Text := '3,4';   // Ïî÷àòêîâå çíà÷åííÿ Õ
  Edit2.Text := '0,74';  // Ïî÷àòêîâå çíà÷åííÿ Y
  Edit3.Text := '19,43'; // Ïî÷àòêîâå çíà÷åííÿ Z
  Memo1.Lines.Clear;           // Î÷èñòêà îêíà ðåäàêòîðà Memo1
 
Memo1.Lines.Add('Ëà6.ðàá.N2. Ñò.ãð. 2ÝÊ Èâàíîâ À.À.');
end;
 
procedure TForm1.Button1Click(Sender: TObject);
  var  x, y, z, a, b, c, u: Extended;
begin
  x := StrToFloat(Edit1.Text);
 
  Memo1.Lines.Add('X = '+Edit1.Text);
 
  Y := StrToFloat(Edit2.Text);
 
  Memo1.Lines.Add('Y ='+Edit2.Text);
 
  Z := StrToFloat(Edit3.Text);
 
  Memo1.Lines.Add('Z = '+Edit3.Text);
 
 
  a := Sqr(Sin(x+y)/Cos(x+y));
  b := Exp(y-z);
  C := Sqrt((Cos(x)*cos(x))+(Sin(z)*sin(z)));
  U := a - b * C ;
//Матику не очень помню формулы по заданию под себя переделай
  Memo1.Lines.Add('U:= '+ FloatToStr(u));
end;                                                 end.
1
0 / 0 / 0
Регистрация: 03.10.2009
Сообщений: 80
03.04.2010, 19:08  [ТС]
Огромнейшее спасибо)) +1)) А, кста, а это по какой лабе?))
0
 Аватар для Фоат
165 / 82 / 32
Регистрация: 05.02.2010
Сообщений: 318
03.04.2010, 20:31
Это 3 лаба , Там есть недоработка: Обратите внимание пожалуйста !!!!
1.Исправить следующим образом
Delphi
1
2
3
 Memo1.Lines.Add('Значение u='+FloatToStrF(u,ffFixed,8,2)) ;
end;  
end.
2. Проверте формулы! Это то что вам нужно??? Я формулы не изменял !
Если переделать, то попрасите кто у вас шарит , после переделаю !
0
0 / 0 / 0
Регистрация: 03.10.2009
Сообщений: 80
04.04.2010, 00:20  [ТС]
Да, это то что нужно)
0
 Аватар для Фоат
165 / 82 / 32
Регистрация: 05.02.2010
Сообщений: 318
04.04.2010, 12:20
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
unit unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
type
  TForm1 = class(TForm)
    
 
 
    Button1: TButton;
 
 
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
 
    Label1: TLabel;
    Label4: TLabel;
    Label2: TLabel;
    Label3: TLabel;
 
    Memo1: TMemo;
 
    RadioGroup1: TRadioGroup;
 
    CheckBox1: TCheckBox;
 
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
 
    procedure Button1Click(Sender: TObject);
 
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Text := '0,1';  
 
  Edit2.Text := '0,356';  
 
  Edit3.Text := '0'; 
 
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
 
  var  x, y, z, a, u, ma : Extended;
 
begin
 
Memo1.Lines.Clear;
 
Memo1.Lines.Add(Студент группы     ?  );
 
 
  x := StrToFloat(Edit1.Text);
 
  Memo1.Lines.Add('Õ = '+Edit1.Text);
 
  Y := StrToFloat(Edit2.Text);
 
  Memo1.Lines.Add('Y ='+Edit2.Text);
 
  Z := StrToFloat(Edit3.Text);
 
  Memo1.Lines.Add('Z = '+Edit3.Text);
 
  Сase RadioGroup1.ItemIndex of
 
    0: u := cos(x);
 
    1: u := sin(x);
 
    2: u := sin(x)/cos(x);
 
  End;
 
 Memo1.Lines.Add('U = ' + FloatToStrF(U,ffFixed,8,2));
 
  if CheckBox1.Checked then
               begin
               u := abs(u);
               y := abs(y);
               z := abs(z)
               end;
 
 
  if u>y then ma := u else ma := y;
 
  if z>ma then ma := z;
 
  if Checkbox1.checked then
 
  Memo1.Lines.Add('maxabs=' + FloatToStrF(ma,ffFixed,8,2))
 
  else
Memo1.Lines.Add('max=' + FloatToStrF(ma, ffFixed,8,2));
 
end;
end.
Добавлено через 1 минуту
Остальное по времени и желанию....
0
0 / 0 / 0
Регистрация: 03.10.2009
Сообщений: 80
04.04.2010, 21:56  [ТС]
Огромнейшее спасибо!!!
0
0 / 0 / 0
Регистрация: 03.10.2009
Сообщений: 80
07.04.2010, 13:22  [ТС]
Пожалуйста!!! Очень срочно нужно сделать оставшуюся лабораторку, а то через час сдавать нужно!!! С меня +20 к репутации!!!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
07.04.2010, 13:22
Помогаю со студенческими работами здесь

Вычислить значение выражения
Как написать 17 программу?

Вычислить значение выражения
del

Вычислить значение выражения
Помогите мне пожалуйста написать программы в Дельфи 7 по заданию. Нужно только 2 и 3 задание.

Вычислить значение выражения
выглядит так: sin(x+y), если x>y S: { , где x=x0(hx)xk ...

Вычислить значение выражения
Помогите, пожалуйста. Дано натуральное число N. Вычислить


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

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Новые блоги и статьи
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Access
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru