Функция выдает NaN, математическая задача

@Samat B · Регистрация: 04.08.2013

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

Решаю на JS мат. задачи. Вот эти 2 примера

Вот исходник моей программы на JS которая отказывается работать

JavaScript
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
<html>
<body>
<script type='text/javascript'>
 
function proportion(a,b,c,d, x) 
    {
    
    if (x = 'a')
    {
         a = (b*c)/d;
         res = a;
    }
 
    if (x = 'b')
    {
         b = (b*c)/d;
         res = b;
    }
 
    if (x = 'c')
    {
         c = (a*d)/b;
         res = c;
    }
 
    if (x = 'd')
    {
         d = (b*c)/a;
         res = d;
    }
    
    document.write('x='+ res +'<br/>'); 
    
    return res
    
 
        }
 
 
 function button1() 
    {
    res = 0;
    
    res = proportion(15,3,0,2,'c');
    
    document.write('x='+ res +'<br/>');
 
    return 0
 
        }
 
  document.write('11_proportion =' + '<br/>');
 
  button1();
 
</script>
</body>
</html>

А вот таже программа только на FPC которая работает

Кликните здесь для просмотра всего текста

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
//Fee Pascal(Lazarus)
 
unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
function proportion(a,b,c,d:real; xxx:string):real;
var
  res:real;
  begin
 
    if xxx = 'a' then
    begin
      a:=(b*c)/d;
      res:=a;
    end;
 
    if xxx = 'b' then
    begin
      b:=(b*c)/d;
      res:=b;
    end;
 
    if xxx = 'c' then
    begin
      c:=(a*d)/b;
      res:=c;
    end;
 
    if xxx = 'd' then
    begin
      d:=(b*c)/a;
      res:=d;
    end;
 
    Result:=res;
  end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
var
  res:real;
begin
   res:=proportion(15,3,0,2,'c');
   ShowMessage('x='+FloatToStr(res));
end;
 
 
procedure TForm1.Button2Click(Sender: TObject);
var
  res:real;
begin
   res:=proportion(50,45,100,0,'d');
   ShowMessage('x='+FloatToStr(res));
end;
 
end.

@Lazy_Den · 09.03.2014, 20:51

JavaScript
1
2
3
 if (x = 'a') // тут оператор присваивания
// а вам надо оператор сравнения ==
 if (x == 'a')

Vovan-VE · 10.03.2014, 06:50

Samat B, Пишите "наоборот" - не будет проблем:

JavaScript
1
2
if ("a" = x) {
// Error: Cannot assign to '"a"'

JavaScript
1
if ("a" == x) {

@newJS · 10.03.2014, 21:46

Сообщение от Vovan-VE

Пишите "наоборот" - не будет проблем:

В чём разница?

@BigProgrammer · 10.03.2014, 21:54

Vovan-VE имеет ввиду, что если переставить операнды, то в случае оператора "=" при

Code
1
"a" = x

интерпретатор выдаст ошибку.

Code
1
"a" == x

и

Code
1
x == "a"

работают одинаково.

@newJS · 10.03.2014, 22:13

Сообщение от BigProgrammer

Vovan-VE имеет ввиду

Ответ конечно похож на реальность, но все же не будем гадать, подождем Вована.
Вот только пусть лучше ошибка выскочит, чем молча работать не будет. ИМХО.
Несколько дней назад искал эту молчаливую ошибку.

Vovan-VE · 11.03.2014, 14:42

Сообщение от newJS

В чём разница?

Так ведь...

JavaScript
1
2
if ("a" = x) {
// Error: Cannot assign to '"a"'

JavaScript
1
2
if (x = "a") {
// true. :trollface:

Тут [в JS] ведь даже нет compile warning'ов, чтобы в принципе уметь сматюгнуться на второй вариант.

Новые блоги и статьи Все статьи Все блоги /
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .