Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
4 / 4 / 3
Регистрация: 13.11.2009
Сообщений: 46
1

Массив. Удалить простые числа и продублировать числа, равные кубу целого числа

16.11.2009, 22:25. Показов 1589. Ответов 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
54
55
56
57
uses crt;
function ProstoeChislo(x:integer):boolean;
var i:integer;
begin
 for i:=2 to x div 2 do
  if x mod i = 0 then
   begin
    ProstoeChislo:=false;
    exit;
   end;
 ProstoeChislo:=true;
end;
 
function Kub(x:integer):boolean;
var    k:integer;
 
begin
 k := trunc(exp((1/3)*ln(x)));
  if (k*k*k) = x then kub:=true
   else kub:=false;
end;
 
const nmax=10000;
var
a          :array[1..nmax] of integer;
j,n,i  :integer;
f          :boolean;
begin
 clrscr;
 writeln('размер<=10000');
 read(n);
 writeln('последовательность');
  for j:=1 to n do
  read(a[j]);
  j:=1;
   while j<=n do
    if ProstoeChislo(a[j]) then
     begin
      for i:=j to n-1 do
      a[i]:=a[i+1];
      n:=n-1;
     end
    else j:=j+1;
   write('без простых чисел: ');
  for j:=1 to n do
   begin
    write(a[j],' ');
   end;
   readkey;
   writeln;
   write('продублированные числа: ');
    for j:=1 to n do
   if kub(a[j]) then
    write(a[j],' ',a[j],' ')
    else write(a[j],' ');
 readkey;
end.
вот это в turbo pascal 7.0 работает верно вроде бы, а в pascal ABC нет
по этому у меня некоторые сомнения насчёт этого кода, может если тут есть ошибки, то кто-нибудь на них может указать? и почему вообще некоторые коды работают правильно в ABC, но не работают в TP 7.0 и наоборот? сорри за нубские вопросы, просто хочу разобраться)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.11.2009, 22:25
Ответы с готовыми решениями:

На заданном промежутке найти все натуральные числа, равные кубу суммы своих цифр
Помогите решить задачу пожалуйста. На заданном промежутке найти все натуральные числа , равные кубу...

На заданном промежутке найти все натуральные числа, равные кубу суммы своих цифр
Добрый день , прошу помочь сделать программу в абц паскаль . На заданном промежутке найти все...

Найти все простые числа, меньше данного числа N. Определение простого числа описать в функции
Найти все простые числа, меньше данного числа N. Определение простого числа описать в функции

Определить, равен ли квадрат заданного трехзначного числа кубу суммы цифр числа
Создать из определить, равен ли квадрат заданного трехзначного числа кубу суммы цифр этого числа.

1
6 / 6 / 7
Регистрация: 13.01.2013
Сообщений: 122
07.04.2013, 19:19 2
А в чем собственно проблема?
По Shift+f9 все нормально работает
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.04.2013, 19:19

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

Равен ли квадрат заданного трехзначного числа кубу суммы цифр этого числа
Вывести на экран 1 или 0 в зависимости от того, равен ли квадрат заданного трехзначного числа кубу...

Определить, равен ли квадрат заданного трехзначного натурального числа кубу суммы цифр числа
2. Определить, равен ли квадрат заданного трехзначного натурального числа кубу суммы цифр этого...

Удалить из последовательности числа, начинающиеся цифрой 2, а среди оставшихся продублировать числа, сумма цифр которых равна 25
Дана последовательность натуральных чисел {Aj}j=1...n (n&lt;=10000). Удалить из последовательности...

Определить, равен ли квадрат заданного трехзначного числа кубу суммы цифр этого числа
Вывести на экран 1 или 0 в зависимости от того, ровный квадрат заданного трехзначного числа кубу...


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

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

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