Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Общие вопросы > WEB-Программирование
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 27.10.2010, 20:44
denicko denicko вне форума
Прохожий
 
Регистрация: 26.10.2010
Сообщения: 4
Репутация: 10
По умолчанию Вычислить сумму всех простых чисел. Задачка на JavaScript

Вот почти готовая задачка, но она работает немного не корректно помогите пожалуйста подправить. Задачка - На экране в форме вводятся 10 вещественных чисел. Вычислите сумму всех простых чисел. Дело в том что данная программа считает и простые и вещественные вмести, а надо чтобы программа считала только простые а числа не являющиеся простыми просто не замечала (простые числа - те числа которые делятся на 1 и сами на себя, например 1, 3, 5, 7, 13 и т.д.)
Код:
<html>
<head>
<script type="text/JavaScript">
  
function Cymma(obj)
{
var MyArr;
MyArr=new Array(10);
MyArr[0]=parseFloat(obj.num1.value);
MyArr[1]=parseFloat(obj.num2.value);
MyArr[2]=parseFloat(obj.num3.value);
MyArr[3]=parseFloat(obj.num4.value);
MyArr[4]=parseFloat(obj.num5.value);
MyArr[5]=parseFloat(obj.num6.value);
MyArr[6]=parseFloat(obj.num7.value);
MyArr[7]=parseFloat(obj.num8.value);
MyArr[8]=parseFloat(obj.num9.value);
MyArr[9]=parseFloat(obj.num10.value);
var res=(MyArr[0]+MyArr[1]+MyArr[2]+MyArr[3]+MyArr[4]+MyArr[5]+MyArr[6]+MyArr[7]+MyArr[8]+MyArr[9]);
return res;
}

</script>
</head>
<body>
<form name="form1">
Введите первое число: <input type="text" name="num1"><br>
Введите второе число: <input type="text" name="num2"><br>
Введите третье число: <input type="text" name="num3"><br>
Введите четвертое число: <input type="text" name="num4"><br>
Введите пятое число: <input type="text" name="num5"><br>
Введите шестое число: <input type="text" name="num6"><br>
Введите седьмое число: <input type="text" name="num7"><br>
Введите восьмое число: <input type="text" name="num8"><br>
Введите девятое число: <input type="text" name="num9"><br>
Введите десятое число: <input type="text" name="num10" onChange="form1.rez.value=Cymma(document.form1)"><br>
Результат: <input type="text" name="rez">
</form>
</body>
</html>
Ответить с цитированием
  #2  
Старый 27.10.2010, 21:02
ChinYan ChinYan вне форума
Тыкаю клавиши
 
Регистрация: 13.07.2009
Сообщения: 804
Версия Delphi:
Репутация: 48633
По умолчанию

Этот форум посвящен программированию на Delphi, так что с явой не сюда
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 06:52.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter