Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 13.02.2013
Сообщений: 31
1

Вычислить сумму всех составных чисел от 1 до M.

31.03.2013, 16:58. Показов 1116. Ответов 7
Метки нет (Все метки)

Выражение:
Вычислить сумму всех составных чисел от 1 до M. Составные числа можно
представить в виде произведения нескольких простых чисел.
Задание:
Вычислить значение выражения и вывести его на экран монитора, при этом
необходимо предусмотреть возможность вычисления значения выражения несколькими
способами или в зависимости от различных параметров.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.03.2013, 16:58
Ответы с готовыми решениями:

Вычислить сумму всех составных чисел от 1 до M
вычислить сумму всех составных чисел от 1 до M. Составные числа можно представить в виде...

Вычислить сумму всех составных чисел от 1 до М
вычислить сумму всех составных чисел от 1 до М.Составные числа можно представить в виде...

Вычислить сумму всех составных чисел от 1 до M. Составные числа можно представить в виде произведения нескольких простых чисел
Вычислить сумму всех составных чисел от 1 до M. Составные числа можно представить в виде...

вычислить сумму всех составных чисел от 1 до М
вычислить сумму всех составных чисел от 1 до М.Составные числа можно представить в виде...

7
Модератор
8417 / 4166 / 2878
Регистрация: 17.08.2012
Сообщений: 13,282
31.03.2013, 21:11 2
Цитата Сообщение от PAv Посмотреть сообщение
Выражение:
Вычислить сумму всех составных чисел от 1 до M. Составные числа можно
представить в виде произведения нескольких простых чисел.
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
42
43
program Project1;
 
uses crt;
 
var m, i, s: integer; //входное число, счётчик, сумма
 
//если число простое, эта функция возвращает true,
//если число составное, эта функция возвращает false
//специально не писалась, достал из своей коллекции
function simple(N: integer): boolean;
var i: integer;
begin
if n < 2 
  then Result := False
  else begin
    Result := True;
    for i:=2 to trunc(sqrt(N)) do 
    if N mod i = 0
      then begin
        Result := False;
        exit;
      end;
  end;
end;
//сама программа 
begin
repeat
  write('Enter M > 1 : '); //ввод M
  readln(m);
until m > 1; //если M > 1, то идём дальше, иначе повторяем ввод
s := 0;
for i := 2 to m do 
  if (not simple(i)) then
    if (maxint - i) >= s then s := s + i //считаем сумму
    else begin //защита от integer overflow
      writeln('M is too large!'); 
      readln;
      exit;
    end;
if s > 0 then writeln('Sum of not simple = ', s)
         else writeln('All numbers is simple!');
readln;
end.
Цитата Сообщение от PAv Посмотреть сообщение
Задание:
Вычислить значение выражения и вывести его на экран монитора, при этом
необходимо предусмотреть возможность вычисления значения выражения несколькими
способами или в зависимости от различных параметров.
??? это как конкретно?
1
1 / 1 / 0
Регистрация: 20.09.2013
Сообщений: 61
12.12.2013, 17:29 3
так чтобы сумма выводилась в виде нескольких простых чисел, чтобы видно было - из чего состоит сумма,и как высчитывается
0
Модератор
8417 / 4166 / 2878
Регистрация: 17.08.2012
Сообщений: 13,282
12.12.2013, 19:58 4
Это нетрудно. Добавить вывод промежуточных результатов, например, по десять чисел в строке... И всё.
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
42
43
44
45
46
47
48
49
50
51
52
53
program Project1;
 
uses crt;
 
var m, i, k, s: integer; //входное число, счётчик, счётчик количества чисел в выходной строке, сумма
 
//если число простое, эта функция возвращает true,
//если число составное, эта функция возвращает false
//специально не писалась, достал из своей коллекции
function simple(N: integer): boolean;
var i: integer;
begin
if n < 2
  then Result := False
  else begin
    Result := True;
    for i:=2 to trunc(sqrt(N)) do
    if N mod i = 0
      then begin
        Result := False;
        exit;
      end;
  end;
end;
//сама программа
begin
repeat
  write('Enter M > 1 : '); //ввод M
  readln(m);
until m > 1; //если M > 1, то идём дальше, иначе повторяем ввод
s := 0;
k := 1;
writeln('Not simple numbers:');
for i := 2 to m do 
  if (not simple(i)) then
    if (maxint - i) >= s then
      begin
        s := s + i; //считаем сумму
        write(i, ', ');
        if k mod 10 = 0 then writeln;
        k := k + 1
      end
    else begin //защита от integer overflow
      writeln;
      writeln('M is too large!');
      readln;
      exit;
    end;
writeln;
if s > 0 then writeln('Sum of not simple = ', s)
         else writeln('All numbers is simple!');
readln;
end.
1
1 / 1 / 0
Регистрация: 20.09.2013
Сообщений: 61
19.12.2013, 16:04 5
а можешь растолковать - откуда мы берем составные числа (словами)
0
Модератор
8417 / 4166 / 2878
Регистрация: 17.08.2012
Сообщений: 13,282
22.12.2013, 23:15 6
Составное число - это которое имеет дополнительные делители, кроме самого себя и единицы. Короче, если число не простое - то оно составное.
1
1 / 1 / 0
Регистрация: 20.09.2013
Сообщений: 61
24.12.2013, 15:26 7
аа как они выходят в этой программе ?
0
Модератор
8417 / 4166 / 2878
Регистрация: 17.08.2012
Сообщений: 13,282
25.12.2013, 01:48 8
Цитата Сообщение от pervachok Посмотреть сообщение
аа как они выходят в этой программе ?
Вы задали исчерпывающий вопрос. Примерный ответ: в самой программе они никак не выглядят. Но их вывод на дисплей - конкретно строка 39.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.12.2013, 01:48

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Массив: Вычислить сумму всех отрицательных чисел, их количество и сумму всех положительных чисел
Ввести одномерный массив из n элементов. Вычислить сумму всех отрицательных чисел, их количество и...

Дана последовательность из n-чисел.Найти сумму всех чисел,начиная с 5-го числа и вычислить сумму первых 4-х чисел.
Дана последовательность из n-чисел.Найти сумму всех чисел,начиная с 5-го числа и вычислить сумму...

Ввести одномерный массив из n элементов. Вычислить сумму всех отрицательных чисел, их количество и сумму всех
Ввести одномерный массив из n элементов. Вычислить сумму всех отрицательных чисел, их количество и...

Вывод всех составных чисел
Здравствуйте. В задаче нужно вывести все составные числа из промежутка . Код программы: program...

Вывод на экран всех простых и составных чисел
Мне нужно написать программу которая выводила бы на экран все простые и составные числа. Например:...

Вычислить сумму всех двузначных чисел
составить програму вычисления суммы всех двузначных чисел.


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

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

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