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

Программа Решения Системы уравнений

24.11.2016, 00:06. Просмотров 238. Ответов 4
Метки нет (Все метки)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Label1Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Label1Click(Sender: TObject);
const D:= 1.5;
var X, B: real;
begin
X:=StrToFloat (Edit1.Text);
if X<1.3 then Pi:=D
end;
end.
Выдает Ошибки "Left side cannot be assigned to" в 10й строчке и "Identifier redeclared "TForm1.Label1Click"" в 6й строчке, как разобратсья с ошибками?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.11.2016, 00:06
Ответы с готовыми решениями:

Написать программу решения по методу Гаусса системы линейных уравнений
Написать программу решения по методу Гаусса системы линейных уравнений ...

Написать программу решения по методу Гаусса системы линейных уравнений
задания: 1.Написать программу решения по методу Гаусса системы линейных...

Программа решения уравнений
Народ очень нужна помощь, нужна программа, предназначенная для решения...

Составить процедуру для решения системы линейных уравнений с нижней треугольной матрицой
Составить процедуру для решения системы линейных уравнений с нижней треугольной...

Программа для решения системных уравнений. Не пойму как написать
Не пойму как написать данную программу. Вся информация на скрине.

4
ZfoxAK
505 / 489 / 222
Регистрация: 26.11.2012
Сообщений: 1,929
24.11.2016, 04:00 2
Цитата Сообщение от Kypeli Посмотреть сообщение
"Identifier redeclared "TForm1.Label1Click
У вас две процедуры обработки одного события, а должен быть один.
Цитата Сообщение от Kypeli Посмотреть сообщение
Pi:=D
Pi - это математическая константа число Пи = 3,14...........
0
Kypeli
0 / 0 / 0
Регистрация: 30.05.2016
Сообщений: 14
24.11.2016, 09:11  [ТС] 3
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.Edit1Change(Sender: TObject);
const D= 1.5;
var X, B: real;
begin
X:=StrToFloat (Edit1.Text);
if X<1.3 then D:=Pi
end;
procedure TForm1.Label1Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
end.
Немного переделал код, но все таки выпрыгивает ошибка "Left side cannot be assigned to" в 6й строчке.
0
Puporev
Модератор
54734 / 42134 / 29092
Регистрация: 18.05.2008
Сообщений: 99,455
24.11.2016, 09:15 4
Наверное так
Delphi
1
if X<1.3 then B:=Pi else B:=?
Нет второго условия и не понятно где применяется константа D.
И выкиньте это.
Delphi
1
2
3
4
procedure TForm1.Label1Click(Sender: TObject);
begin
close;
end;
0
ZfoxAK
505 / 489 / 222
Регистрация: 26.11.2012
Сообщений: 1,929
24.11.2016, 09:35 5
Цитата Сообщение от Kypeli Посмотреть сообщение
const D= 1.5;
Цитата Сообщение от Kypeli Посмотреть сообщение
D:=Pi

Не по теме:

В военное время cos(x) может достигать 4!

0
24.11.2016, 09:35
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.11.2016, 09:35

Методы решения сеточных уравнений
численное решение задачи для уравнения колебания струны

Методы решения нелинейных уравнений
Отделить корни уравнений F(x) = 0 и уточнить значения корней (или одного из...

Методы решения нелинейных уравнений
ребят нашел у вас программу на методы. а как в эту же программу вписать еще...


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

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

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