0 / 0 / 1
Регистрация: 10.10.2011
Сообщений: 15

Функция: Подсчитать количество простых чисел в последовательности, больших заданного числа М

31.10.2012, 14:41. Показов 2242. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Подсчитать количество простых чисел в последовательности, больших заданного числа М.
Пример: М=5, 2 3 4 7 19 18 7 8 11 15; результат: K=4.

Массив перед обработкой и после обработки распечатать в виде строки чисел.
Массив должен задаваться в секции объявлений.
В программе необходимо использовать функции с передаваемыми параметра
Помогите, пожалуйста.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
31.10.2012, 14:41
Ответы с готовыми решениями:

Подсчитать количество простых чисел в последовательности, больших заданного числа М
Подсчитать количество простых чисел в последовательности, больших заданного числа М. Пример: М=5, 2 3 4 7 19 18 7 8 11 15; результат:...

Подсчитать количество простых чисел в последовательности, больших заданного числа М
Всем привет)) помогите разработать программу С++! Тема: Одномерные массивы. Разработать программу на языке программирования согласно...

Требуется подсчитать число пар простых чисел-близнецов ,не больших заданного числа N. С использованием функций
Среди простых чисел встречаются числа-близнецы(числа,разность между которыми равна 2,например,3 и 5,17 и 19....)Требуется подсчитать число...

2
Почетный модератор
 Аватар для Puporev
64312 / 47609 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
31.10.2012, 15:30
Лучший ответ Сообщение было отмечено Inna как решение

Решение

Написано фиг поймешь, поэтому так.
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
uses crt;
function Prost(a:integer):boolean;
var i:integer;
    f:boolean;
begin
if a<2 then f:=false
else
 begin
  i:=2;
  f:=true;
  while(i*i<=a)and f do
  if a mod i=0 then f:=false
  else i:=i+1;
 end;
Prost:=f;
end;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,m,k:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(100);
  write(a[i]:4);
 end;
writeln;
write('Введите число для сравнения m=');
readln(m);
k:=0;
for i:=1 to n do
if Prost(a[i])and(a[i]>m) then k:=k+1;
write('Количество простых чисел, больших ',m,'=',k);
readln
end.
0
0 / 0 / 1
Регистрация: 10.10.2011
Сообщений: 15
02.11.2012, 21:22  [ТС]
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
Program 02;
  uses crt;
  type Tmas= array [1..10] of integer;
  const mas: Tmas=(2,3,4,7,19,18,7,8,11,15);
 
 function Prostoe (b:integer):boolean;
  var i: integer;
      f:boolean;
  begin
    i:=2;
    F:=true;
    while (i<b) and f do
     begin
      if (b mod i)=0 then f:=false;
      i:=i+1;
     end;
    Prostoe:=f;
  end;
 
  var k,i,m:integer;
      f:boolean;
  Begin
   clrscr;
   write ('M=');
   readln (m);
   k:=0;
   for i:=1 to 10 do
    begin
     if (mas[i]>m) and  (prostoe (mas [i]))
       then  k:=k+1;
    end;
   writeln (k);
   readln;
  End.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
02.11.2012, 21:22
Помогаю со студенческими работами здесь

Подсчитать количество чисел, больших заданного числа L и стоящих на местах, кратных 3
Подсчитать количество чисел,больших заданного числа L и стоящих на местах,кратных 3; вычислить произведение чисел,принадлежащих промежутку...

Подсчитать сумму элементов, больших по модулю некоторого заданного С, в последовательности чисел, используя одну переменную-указатель для след. числа
Подсчитать сумму элементов, больших по модулю некоторого заданного С, в последовательности вещественных чисел, используя одну...

Подсчитать сумму чисел, меньших заданного D, и количество чисел, стоящих на четных местах и больших заданного
1.Подсчитать сумму чисел, меньших заданного D, и количество чисел, стоящих на четных местах и больших заданного С. 2.Найти среднее...

Сформировать массив простых чисел не больших заданного натурального числа N
Сформировать массив простых чисел не больших заданного натурального числа N.

Сформировать массив простых чисел не больших заданного натурального числа N.
Сформировать массив простых чисел не больших заданного натурального числа N.


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

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

Новые блоги и статьи
POCO, ACE, Loki и другие продвинутые C++ библиотеки
NullReferenced 13.05.2025
В C++ разработки существует такое обилие библиотек, что порой кажется, будто ты заблудился в дремучем лесу. И среди этого многообразия POCO (Portable Components) – как маяк для тех, кто ищет. . .
Паттерны проектирования GoF на C#
UnmanagedCoder 13.05.2025
Вы наверняка сталкивались с ситуациями, когда код разрастается до неприличных размеров, а его поддержка становится настоящим испытанием. Именно в такие моменты на помощь приходят паттерны Gang of. . .
Создаем CLI приложение на Python с Prompt Toolkit
py-thonny 13.05.2025
Современные командные интерфейсы давно перестали быть черно-белыми текстовыми программами, которые многие помнят по старым операционным системам. CLI сегодня – это мощные, интуитивные и даже. . .
Конвейеры ETL с Apache Airflow и Python
AI_Generated 13.05.2025
ETL-конвейеры – это набор процессов, отвечающих за извлечение данных из различных источников (Extract), их преобразование в нужный формат (Transform) и загрузку в целевое хранилище (Load). . . .
Выполнение асинхронных задач в Python с asyncio
py-thonny 12.05.2025
Современный мир программирования похож на оживлённый мегаполис – тысячи процессов одновременно требуют внимания, ресурсов и времени. В этих джунглях операций возникают ситуации, когда программа. . .
Работа с gRPC сервисами на C#
UnmanagedCoder 12.05.2025
gRPC (Google Remote Procedure Call) — открытый высокопроизводительный RPC-фреймворк, изначально разработанный компанией Google. Он отличается от традиционых REST-сервисов как минимум тем, что. . .
CQRS (Command Query Responsibility Segregation) на Java
Javaican 12.05.2025
CQRS — Command Query Responsibility Segregation, или разделение ответственности команд и запросов. Суть этого архитектурного паттерна проста: операции чтения данных (запросы) отделяются от операций. . .
Шаблоны и приёмы реализации DDD на C#
stackOverflow 12.05.2025
Когда я впервые погрузился в мир Domain-Driven Design, мне показалось, что это очередная модная методология, которая скоро канет в лету. Однако годы практики убедили меня в обратном. DDD — не просто. . .
Исследование рантаймов контейнеров Docker, containerd и rkt
Mr. Docker 11.05.2025
Когда мы говорим о контейнерных рантаймах, мы обсуждаем программные компоненты, отвечающие за исполнение контейнеризованных приложений. Это тот слой, который берет образ контейнера и превращает его в. . .
Micronaut и GraalVM - будущее микросервисов на Java?
Javaican 11.05.2025
Облачные вычисления безжалостно обнажили ахиллесову пяту Java — прожорливость к ресурсам и медлительный старт приложений. Традиционные фреймворки, годами радовавшие корпоративных разработчиков своей. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru