Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/15: Рейтинг темы: голосов - 15, средняя оценка - 4.67
3em
0 / 0 / 0
Регистрация: 01.11.2011
Сообщений: 5
1

Определить все простые числа в интервале.

02.11.2011, 21:22. Просмотров 2833. Ответов 5
Метки нет (Все метки)

Задача №1
Дан интервал натуральных чисел от m до n. Определить все простые числа в этом интервале.
Задача №2
Вводиться последовательность из n-целых чисел. Найти наибольшее число. ( без массива )
Задача №3
Вывести на экран треугольник из латинских букв.
Задача №4
Дана строка символов до точки ( будет ввозиться произвольный текст руками ). Группы символов в ней между группами пробелов считаются словами. Посчитать, сколько слов содержит данная строка.
Задача №5
Дан массив чисел. Расставить их по убыванию. (в одном цикле ещё один цикл-вложенный)
Задача №6
Дана квадратичная матрица n*n, состоящая из натуральных чисел. Повернуть её на 90 градусов по часовой стрелке и вывести рез-т на экран.
Задача №7 :
Прочитать файл ONE и найти сумму чисел встречающихся в нём.
Задача №8 :
Прочитать файл и вывести его с зада на перёд (ну т.е. наоборот)
Задача №9:
Дана строка символов, написать процедуры удаления из строки всех кратных рядом стоящих символов.
Задача №10
Написать функцию, которая находит сумму чисел целого числа.
Задача №11.
Вычислить первое число фибоначчи.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.11.2011, 21:22
Ответы с готовыми решениями:

Найти все простые числа в заданном интервале
Здравствуйте,можете подсказать,что не верно в задаче : у из интервала от A до...

В интервале от 1 до 100 найти все парные простые числа
В интервале от 1 до 100 найти все парные простые числа и вывести найденные пары...

Составить процедуру, печатающую все простые числа, расположенные в интервале (a;b)
Составить процедуру, печатающую все простые числа, расположенные в интервале...

Из заданного интервала натуральных чисел определить все простые числа
Завтра сдавать, помогите мне, плиз =) 2 Заданы числа А,В,C,D. Выяснить можно...

Выпишите простые числа, находящиеся в интервале между a и b
Здравствуйте,попал в очень неприятную ситуацию, понадеялся на человека, а он...

5
TAVulator
Эксперт Pascal/Delphi
3966 / 1122 / 165
Регистрация: 27.07.2009
Сообщений: 3,492
02.11.2011, 21:31 2
Цитата Сообщение от 3em Посмотреть сообщение
Задача №11.
Вычислить первое число фибоначчи.
ноль.
0
MafiaWest
99 / 98 / 32
Регистрация: 24.04.2010
Сообщений: 284
Записей в блоге: 1
02.11.2011, 21:33 3
Вам поможет вот ето в некоторих заданиях
Сортировки

Описание, объявление и заполнение массивов (матриц)

Стандартные операции с массивами (матрицами)
0
Collide
6 / 6 / 5
Регистрация: 02.11.2011
Сообщений: 37
03.11.2011, 10:20 4
№4

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var k,i,kol : longint;
 
 st : string;
begin
 
readln(st);
 
st := st + ' ';
k := length(st);
for i := 1 to k-1 do
if ((st[i] <> ' ') and (st[i+1] = ' ')) then inc(kol);
 
 
writeln(kol);
 
end.
Добавлено через 2 минуты
№1

Очень быстрый способ, но сложный, если нужно способ по проще (тупо перебор) то скажите я напишу

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
const
   maxP=305;
var m,n,i:longint;
   primes:array[0..maxP]of longint;
   index,maxindex:integer;
   curprime,absent:boolean;
 
function isPrime(n:longint):boolean;
var
  i:integer;
begin
 isPrime:=false;
 for i:=2 to trunc(sqrt(n)) do
  if n mod i=0 then
  exit;
  isPrime:=true;
end;
 
 
begin
   readln(m,n);
   index:=0;
   i:=2;
   while true do begin
      if isPrime(i) then begin
         inc(index);
         primes[index]:=i;
         if index=maxP then
            break;
      end;
      inc(i);
   end;
   maxindex:=0;
   while sqr(primes[maxindex+1])<=m do
      inc(maxindex);
   absent:=true;
   for i:=m to n do begin
      curprime:=true;
      for index:=1 to maxindex do
         if i mod primes[index]=0 then begin
            curprime:=false;
            break;
         end;
      if curprime then begin
         writeln(i);
         absent:=false;
      end;
      if sqr(primes[maxindex])<=i then
         inc(maxindex);
   end;
   if absent then
      writeln('На промежутке простых чисел нету');
end.
Добавлено через 1 минуту
№2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var n,i,max,a:longint;
begin
  read(n);
  read(a);
  max:=a;
  for i := 2 to n do
  begin
    read(a);
    if max<a then max:=a;
  end;
  writeln(max);
end.
Добавлено через 2 минуты
№10

Pascal
1
2
3
4
5
6
7
8
9
10
11
function sum(a:longint):longint;
var st:string; i,kod,s,n:longint;
begin
  str(a,st);
  for i := 1 to length(st) do
  begin
    val(st[i],n,kod);
    s:=s+n;
  end;
  sum:=s;
end;
Добавлено через 6 минут
№7

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var st:ansistring; n,i,kod,kol:longint;
    f:text;
begin
assign(f,'one');
reset(f);
readln(f,st);
close(f);
for i := 1 to length(st) do
begin
  if st[i] in ['0'..'9'] then
  begin
    val(st[i],n,kod);
    kol:=kol+n;
  end;
end;
writeln(kol);
end.
1
3em
0 / 0 / 0
Регистрация: 01.11.2011
Сообщений: 5
03.11.2011, 19:34  [ТС] 5
Спасибо за помощь.
Да, должно быть все как можно проще. Пусть и длиннее и не оптимизировано.

Добавлено через 1 час 46 минут
задание 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var n,i,max,a:longint;
begin
  read(n);
  read(a);
  max:=a;
  for i := 2 to n do
  begin
    read(a);
    if max<a then max:=a;
  end;
  writeln(max);
end.
сравнивает только 2 первых числа
или как этим пользоваться ??
идея в том что, руками вбиваешь несколько чисел, разделенных пробелами. а дальше он их сравнивает все между собой и выбирает наибольшее
например 1 3 9 7 5 12 11 4
0
Collide
6 / 6 / 5
Регистрация: 02.11.2011
Сообщений: 37
03.11.2011, 20:38 6
Цитата Сообщение от 3em Посмотреть сообщение
Спасибо за помощь.
Да, должно быть все как можно проще. Пусть и длиннее и не оптимизировано.

Добавлено через 1 час 46 минут
задание 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var n,i,max,a:longint;
begin
  read(n);
  read(a);
  max:=a;
  for i := 2 to n do
  begin
    read(a);
    if max<a then max:=a;
  end;
  writeln(max);
end.
сравнивает только 2 первых числа
или как этим пользоваться ??
идея в том что, руками вбиваешь несколько чисел, разделенных пробелами. а дальше он их сравнивает все между собой и выбирает наибольшее
например 1 3 9 7 5 12 11 4
Первое число - это количество чисел для сравнения!
1
03.11.2011, 20:38
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.11.2011, 20:38

Получить два множества: все простые числа из этого диапазона и все остальные
Задача: Дано множество целых числа от 8 до 22. Получить два множества: все...

Даны натуральные числа a и b. Получите все простые числа большие a и меньшие b
даны натуральные числа a и b. Получите все простые числа большие a и меньшие b....

Даны натуральные числа a,b. Получить все простые числа p, удовлетворяющие неравенствам: a<=p<=b
Даны натуральные числа a,b(a&lt;b). Получить все простые числа p, удовлетворяющие...


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

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

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