Не перестаю удивляться — какие всё-таки придурки встречаются на ответах!
Один даёт битую ссылку, второй пишет полный бред, третий тоже не блещет умом, не смотря на то, что в собственных глазах каждый из них — мастер креатива.. .
Странно, что нет того идиота с фразой «тебя на гугле забанили? «. видимо за ум взялся.. .
Вот исходник программы, написал на сколько смог просто.
Так же исходник на всякий случай выложил сюда: pastebin . com / unW00TRS (пробелы из адреса убирай)
Настенька Новикова
Самая простая (даже без переменных
begin
WriteLn(‘Первые 100 простых чисел: ‘#13#10
‘ 2, 3, 5, 7, 11, 13, 17, 19, 23, 29,’#13#10
‘ 31, 37, 41, 43, 47, 53, 59, 61, 67, 71,’#13#10
‘ 73, 79, 83, 89, 97, 101, 103, 107, 109, 113,’#13#10
‘ 127, 131, 137, 139, 149, 151, 157, 163, 167, 173,’#13#10
‘ 179, 181, 191, 193, 197, 199, 211, 223, 227, 229,’#13#10
‘ 233, 239, 241, 251, 257, 263, 269, 271, 277, 281,’#13#10
Нахождение суммы цифр вводимого с клавиатуры натурального трехзначного числа на языке Паскаль
‘ 283, 293, 307, 311, 313, 317, 331, 337, 347, 349,’#13#10
‘ 353, 359, 367, 373, 379, 383, 389, 397, 401, 409,’#13#10
‘ 419, 421, 431, 433, 439, 443, 449, 457, 461, 463,’#13#10
‘ 467, 479, 487, 491, 499, 503, 509, 521, 523, 541.’);
end.
Леонид Беляев
cyberforum. ru/pascalabc/tbooleanhread279977. html смотри тут
Источник: sprashivalka.com
Как найти простые числа в паскале программа
Здравствуйте,можете подсказать,что не верно в задаче :
у из интервала от A до B найти все простые.Определение простоты числа оформить в виде функции.
я сделала но не полностью, надо чтоб 2 и 3 тоже писались
uses crt; var s,i,a,b:integer; function vot(a,b:integer):integer; begin writeln(‘ nahodim proctye chisla ‘); readln(a,b); writeln ( ‘interval chisel ot a=’,a,’ do b=’,b); for i:=а to b do begin \ сдесь пишет ошибку if i mod 2 <>0 then if i mod 3 <>0 then writeln(i); end; end; begin vot(a,b); readln; end .
Форумчанин
Регистрация: 05.04.2010
Сообщений: 410
можно дописать строку if (i = 2) or (i = 3) then writeln(i)
и зачем вы пишите формальные параметры функции если в самой функции используете readln(a,b)
да и вообще, простое число — это число, делителями которого являются 1 и само это число. Например число 407 не является простым, т. к. оно делится на 1, 11, и 407 (а может и еще на какое). А по вышему алгоритму получается что оно простое, т. к. 407 mod 2 <> 0 и
407 mod 3 <> 0
можно искать простые числа так:
for i:=a to b do begin flag:=true; for j:=2 to i-1 do if (i mod j) = 0 then begin flag:=false; break; end; if flag then writeln(i); end;
ICQ: 593-013-807
Последний раз редактировалось Stilet; 11.03.2011 в 08:22 .
Источник: www.programmersforum.ru
Задачи JS: Как найти простое число + Как найти все простые числа до N | Перебор и Решето Эратосфена
Как определить простое число
Алгоритм решения с подробным разбором приведу на Паскале. Решение на С++ можете посмотреть в примере программы на С++.
ВАЖНО!
На этом многие могут ошибиться. В определении сказано, что простое число имеет ровно два различных делителя. Следовательно, число 1 не является простым (также не является простым, так как ноль можно делить на любые числа).
Проверять, является ли число простым, будем с помощью функции, которую сами и создадим. Эта функция будет возвращать TRUE, если число простое.
В функции сначала будем проверять, не является ли число меньше двух. Если да, то это уже не простое число. Если же число равно 2 или 3, то оно является однозначно простым и делать какие-то дополнительные проверки не требуется.
А вот если число N будет больше трёх, то в этом случае в цикле будем перебирать все возможные делители, начиная от 2 до (N-1). Если на какой-то делитель число N делится без остатка, значит, это тоже не простое число. В этом случае мы прерываем цикл (потому что проверять дальше нет смысла), а функция возвращает FALSE.
Проверять, делится ли число на самоё себя нет смысла (поэтому цикл длится только до N-1).
Саму функцию здесь приводить не буду – посмотрите её в примерах программ.
Решение задачи 2.30 на Паскале program mytask;//****************************************************************// КОНСТАНТЫ//****************************************************************const COUNT = 100; //Количество элементов в массиве//****************************************************************// ФУНКЦИИ И ПРОЦЕДУРЫ//****************************************************************//****************************************************************// Проверяет, является ли число простым// ВХОД : N – число// ВЫХОД : TRUE – число N простое, FALSE – не простое//****************************************************************function IsPrimeNumber(N : WORD) : boolean;var i : WORD;begin Result := TRUE; case N of 0..3 : begin if N Exit; end; end; for i := 2 to (N-1) do if (N mod i) = 0 then //Не простое число begin Result := FALSE; Break; end;end;var i : WORD; X : WORD = 0; A : array[1..COUNT] of WORD;//****************************************************************// ОСНОВНАЯ ПРОГРАММА//****************************************************************begin //Заполнить массив числами for i := 1 to COUNT do A[i] := i; //Подсчитать и выбрать простые числа из массива for i := 1 to COUNT do if IsPrimeNumber(A[i]) then begin Inc(X); Write(A[i], ‘ ‘); end; WriteLn(#10#13’Number of Prime numbers = ‘, X); WriteLn(‘The end. Press ENTER…’); ReadLn;end.
Решение задачи 2.30 на С++#include #include using namespace std;//****************************************************************// КОНСТАНТЫ//****************************************************************const int COUNT = 100; //Количество элементов в массиве //****************************************************************// ФУНКЦИИ И ПРОЦЕДУРЫ//****************************************************************//****************************************************************// Проверяет, является ли число простым// ВХОД : N – число// ВЫХОД : TRUE – число N простое, FALSE – не простое//****************************************************************bool IsPrimeNumber(int N) < bool Res = true; switch (N) < case 0 : Res = false; break; case 1 : Res = false; break; case 2 : Res = true; break; case 3 : Res = true; break; default : for (int i = 2; i
C++ – это один из самых популярных языков программирования. Не важно, на каком языке программируете лично вы. Но, если вы хотя бы в общих чертах не знаете С++, то это большой пробел в вашем образовании, который надо восполнить как можно быстрее… Подробнее…
Ответы и объяснения
Чтобы определить, является ли число N простым на Паскале, следует последовательно делить N на числа в промежутке от 2 до N/2. Если в процессе такого деления хотя бы один раз получится так, что остаток от деления будет составлять 0, значит число имеет помимо самого себя еще какой-то делитель. А следовательно число не является простым. Вот так легко определить является ли число простым.
var n, i,f, z: integer;
write(‘Введите натуральное число n= ‘);
Источник: vkspy.info