Что неправильно ?

@Don_Quijote · Регистрация: 14.02.2017

Студворк — интернет-сервис помощи студентам

Что неправильного? По возможности подредактировать

Pascal
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
program kal; 
uses graphabc; 
label 1, 2, 3, 4; 
type Fun = function (x: real): real;
var 
a, g, p, d, m, u: string; 
i, z: real; 
funs: array of Fun := (sin,cos,sqr);
 
function CalcIntegral(a,b: real; N: integer; f: Fun): real;
begin
Result := 0;
var x := a;
var h := (b-a)/N;
for var i:=0 to N-1 do
begin
Result += f(x);
x += h;
end;
Result *= h;
p := '+'; 
m := '-'; 
d := '/'; 
u := '*'; 
end;
var 
a := new RealField('a:');
f1 := new FlowBreak;
b := new RealField('b:');
f2 := new FlowBreak;
N := new IntegerField('N:');
f3 := new FlowBreak;
tl := new TextLabel('Функция: ');
f4 := new FlowBreak;
cb := new ComboBox;
f5 := new FlowBreak(50);
s1 := new Space(20);
ok := new Button('Вычислить');
tb: TextBox;
procedure MyClick;
begin
var f := funs[cb.SelectedIndex];
var res := CalcIntegral(a.Value,b.Value,N.Value,f);
tb.AddLine(Format('Интеграл ({0},{1},{2},{3}) = {4}',a.Value,b.Value,N.Value,cb.SelectedValue,res.ToString));
end;
begin
MainForm.Title := 'Вычисление определенного интеграла';
MainForm.SetSize(500,350);
MainForm.CenterOnScreen;
mainPanel.Dock := DockStyle.Left;
mainPanel.Width := 150;
 
b.Value := 1;
N.Value := 10;
cb.Items.Add('sin');
cb.Items.Add('cos');
cb.Items.Add('x^2');
cb.SelectedIndex := 0;
ok.Click += MyClick;
3: writeln('1-ое число'); 
readln(z); 
repeat 
1: writeln('действие'); 
readln(g); 
if (g = 'cos') or (g = 'sin') or (g = 'модуль') then begin 
if (g = 'cos') then begin 
z := cos(z); 
writeln(z); 
end 
else if(g = 'sin') then begin 
z := sin(z); 
writeln(z); 
end 
else if (g = 'модуль') then begin 
z := abs(z); 
writeln(z); 
end; 
end 
else begin 
writeln('последующее число'); 
readln(i); 
if (g = p) then 
z := z + i; 
if (g = m) then 
z := z - i; 
if (g = d) then 
z := z / i; 
if (g = u) then 
z := z * i; 
end; 
writeln(z:0:2); 
4:writeln('чтобы закончить введите stop,чтобы продолжить введите go.'); 
readln(a); 
if (a <> 'stop') and (a <> 'go') then 
goto 4 
else 
if (a = 'go') then 
goto 1; 
until(a = 'stop'); 
writeln('пока!'); 
writeln('для завершения работы нажмите Enter'); 
readln; 
ParentControl := MainForm;
tb := new TextBox;
tb.Dock := DockStyle.Fill;
end;
 
begin
InitControls;
end;
end.

@Hitoku · 15.02.2017, 09:11

Ох уж эти симбиозы

Взять код для формы и не использовать её. Вот, работает, но соответствует ли задуманному, ответить затруднюсь

Pascal
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
115
program kal;
uses FormsABC;
type Fun = function (x: real): real;
var
j, g, p, d, m, u: string; 
i, z: real;
funs: array of Fun := (sin,cos,sqr);
function CalcIntegral(a,b: real; N: integer; f: Fun): real;
begin
  Result := 0;
  var x := a;
  var h := (b-a)/N;
  for var i:=0 to N-1 do
  begin
    Result += f(x);
    x += h;
  end;
  Result *= h;
  p := '+'; 
  m := '-'; 
  d := '/'; 
  u := '*'; 
end;
 
var 
  a := new RealField('a:');
  f1 := new FlowBreak;
  b := new RealField('b:');
  f2 := new FlowBreak;
  N := new IntegerField('N:');
  f3 := new FlowBreak;
  tl := new TextLabel('Функция: ');
  f4 := new FlowBreak;
  cb := new ComboBox;
  f5 := new FlowBreak(50);
  s1 := new Space(20);
  ok := new Button('Вычислить');
  tb: TextBox;
 
procedure MyClick;
begin
  var f := funs[cb.SelectedIndex];
  var res := CalcIntegral(a.Value,b.Value,N.Value,f);
  tb.AddLine(Format('Интеграл({0},{1},{2},{3}) = {4}',a.Value,b.Value,N.Value,cb.SelectedValue,res.ToString));
end;
 
procedure InitControls;
label l1,l2,l3,l4;
begin
  MainForm.Title := 'Вычисление определенного интеграла';
  MainForm.SetSize(500,350);
  MainForm.CenterOnScreen;
  mainPanel.Dock := DockStyle.Left;
  mainPanel.Width := 150;
 
  b.Value := 1;
  N.Value := 10;
  cb.Items.Add('sin');
  cb.Items.Add('cos');
  cb.Items.Add('x^2');
  cb.SelectedIndex := 0;
  ok.Click += MyClick;
 
 l3: writeln('1-ое число'); 
readln(z); 
repeat 
l1: writeln('действие'); 
readln(g); 
if (g = 'cos') or (g = 'sin') or (g = 'модуль') then begin 
if (g = 'cos') then begin 
z := cos(z); 
writeln(z); 
end 
else if(g = 'sin') then begin 
z := sin(z); 
writeln(z); 
end 
else if (g = 'модуль') then begin 
z := abs(z); 
writeln(z); 
end; 
end 
else begin 
writeln('последующее число'); 
readln(i); 
if (g = p) then 
z := z + i; 
if (g = m) then 
z := z - i; 
if (g = d) then 
z := z / i; 
if (g = u) then 
z := z * i; 
end; 
writeln(z:0:2); 
l4:writeln('чтобы закончить введите stop,чтобы продолжить введите go.'); 
readln(j); 
if (j <> 'stop') and (j <> 'go') then 
goto l4 
else 
if (j = 'go') then 
goto l1; 
until(j = 'stop'); 
writeln('пока!'); 
writeln('для завершения работы нажмите Enter'); 
readln; 
 
  ParentControl := MainForm;
  tb := new TextBox;
  tb.Dock := DockStyle.Fill;
end;
 
begin
  InitControls;
end.

Добавлено через 5 минут
После вычисления синуса и косинуса выскакивает окно с вычислением интеграла, подотрите что ли ненужные участки. Зачем вставлять шаблон, который всё равно не используется? Или используется?

@Don_Quijote · 15.02.2017, 20:21 **[ТС]**

Должно всплывать окно, а насчет ненужных участков, мне нужно, чтобы все работало, а дальше буду подставлять и осваивать

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@Don_Quijote 0 / 0 / 0 Регистрация: 14.02.2017 Сообщений: 3
	15.02.2017, 20:21 [ТС]
	Должно всплывать окно, а насчет ненужных участков, мне нужно, чтобы все работало, а дальше буду подставлять и осваивать 0