Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.04.2009, 11:55   #1
Ser
Пользователь
 
Регистрация: 25.02.2008
Сообщений: 17
По умолчанию Вопрос по задаче на Паскаль

Задача:Дана последовательность из не менее чем 2-х натуральных чисел, за которой следует 0. Вычислить сумму тех из них, порядковые номера которых простые числа.
Вопрос: подскажите пожалуйста, как организовать цикл на проверку элементов, которые соответсвуют номеру порядка простого числа.
Заранее Спасибо!
Ser вне форума Ответить с цитированием
Старый 03.04.2009, 12:04   #2
Dj_smart
Капсула от спама
Форумчанин
 
Аватар для Dj_smart
 
Регистрация: 04.03.2008
Сообщений: 779
По умолчанию

Код:
function IsSimple(w:word):boolean;
var n,i:integer;
begin
  n:=0;
  if w>1 then begin // исключаем единицу
    for i:=1 to w do begin
      if w mod i = 0  then n:=n+1;
    end;
  end else n:=2;
  IsSimple:=n=2; // если N=2 - число простое
  // два, потому что деление на 1 и на самого себя.
end;
И флаг вам в руки! Пользуйтесь на здоровье
Если данный ответ не столь конкретен, как Вы желаете его увидеть, возможно необходимо поразмыслить, стоит ли вопрос того, чтобы о нём спрашивать на форуме?
CncFiles.ru - бесплатный файловый хостинг
Dj_smart вне форума Ответить с цитированием
Старый 04.04.2009, 12:26   #3
Ser
Пользователь
 
Регистрация: 25.02.2008
Сообщений: 17
По умолчанию

Спасибо за помощь, а не подскажешь как, этот код связать с введенной последовательностью и вывести сумму.
Ser вне форума Ответить с цитированием
Старый 04.04.2009, 14:40   #4
Dj_smart
Капсула от спама
Форумчанин
 
Аватар для Dj_smart
 
Регистрация: 04.03.2008
Сообщений: 779
По умолчанию

Ну, приблизительно так
massiv_count - количесто элеметов
mas - массив элементов
Код:
summ:=0;
for i:=1 to massiv_count do
  if IsSimple(i) then summ:=summ+mas[i];
Если данный ответ не столь конкретен, как Вы желаете его увидеть, возможно необходимо поразмыслить, стоит ли вопрос того, чтобы о нём спрашивать на форуме?
CncFiles.ru - бесплатный файловый хостинг
Dj_smart вне форума Ответить с цитированием
Старый 04.04.2009, 16:19   #5
Ser
Пользователь
 
Регистрация: 25.02.2008
Сообщений: 17
По умолчанию

Спасиибо все работает
Ser вне форума Ответить с цитированием
Старый 04.04.2009, 20:23   #6
annya77
Заблокирован
 
Регистрация: 04.04.2009
Сообщений: 14
По умолчанию

приветик! мальчик, как дела?
что вы делате???? Пожалуйста, помогите мне ..

Пожалуйста, помогите мне решить упражнения.
слишком важна для меня, пожалуйста
Я рассчитываю на вас, чтобы помочь мне, и благодарю вас ...


Задача 1:
--------
Вывести график функция и в виде таблицы значения аргумента Xi,
значение функция Yi (i = 1,2,3,4 ...), max, min функция:

Y= - SINXi + COSXi -1

диапазон изменения аргумента:, количество точек графика 40

Задача 2:
--------
Выполнить задание 2 с применением возможностей Турбо Паскаль (record).

Создайте файл, который содержит:
- Название государства,
- Столицу,
- Количество населения,
- Площадь.
Напечатать данные о 10 государств с наибольшей плотностью населения. Вывести всю информацию о государстве X.


Задача 3:
--------
Написать программу, розвьязуe данную задачу с применением пiдпрограм типа FUNCTION, PROCEDURE:
решить уравнение:
ax=b
a-следует матрицы А (5,5).
b-следует матрицы B (7,7).
Матрицы А, В-распечатать в общепринятом виде


Я рассчитываю на вас, чтобы помочь мне, и благодарю вас ...

благодарю вас за вашу помощь ^^
annya77 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Найти ошибку в задаче на ПАскаль Анжелика Помощь студентам 3 16.01.2009 00:55
есть один вопрос [ПАскаль] Айат Помощь студентам 1 25.11.2008 10:48
Вопрос по задаче file Паскаль, Turbo Pascal, PascalABC.NET 20 03.06.2008 17:37
Вопрос по задаче Freeman12 Помощь студентам 5 26.05.2008 17:40
Нарисовать блок схему к задаче Паскаль gigaman Помощь студентам 3 07.03.2008 19:50