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

Процедуры и функции: в массивах определить количество чисел – полиндромов

02.11.2010, 16:38. Просмотров 1055. Ответов 1
Метки нет (Все метки)

В одномерных массивах А[1..N] и B[1..M] определить количество чисел – полиндромов ( т.е. таких, десятичная запись которых читается одинаково слева направо и справа налево.). Тот массив, где количество таких чисел больше, рассортировать по возрастанию, а другой – по убыванию.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.11.2010, 16:38
Ответы с готовыми решениями:

Процедуры и функции: Создать процедуру, подсчитывающую количество простых чисел
Добрый вечер. Может быть, кто-нибудь из вас поможет мне с созданием процедуры, подсчитывающей...

Определение (функции) процедуры: Найти количество чисел, являющихся степенью пятерки
Даны натуральное число n и целые числа a1, a2, ..., an. Найти количество чисел, являющихся степенью...

Сформировать массив, в элементах которого содержится количество 5 в трёх других массивах (процедуры)
Дано: L(6), X(8), Y(9). Сформировать массив Z (3), где Z (1)- количество чисел 5 в массиве L, Z...

Процедуры и функции: определить максимальный элемент и количество максимумов массива без сортировки
С помощью процедуры определяет максимальный элемент и количество максимумов одномерного массива без...

1
Модератор
62503 / 46691 / 32182
Регистрация: 18.05.2008
Сообщений: 112,969
03.11.2010, 13:49 2
Лучший ответ Сообщение было отмечено Death65 как решение

Решение

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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
uses crt;
const nmax=100;
type mas=array[1..nmax] of integer;
//ввод массивов
procedure Vvod(var v:mas;var x:byte;c:char);
var i:byte;
begin
repeat
write('Размер массива ',c,' до ',nmax,'=');
readln(x);
until x in [1..nmax];
writeln('Введите ',x,' элементов массиваа ',c);
for i:=1 to x do
 begin
  write('el[',i,']=');
  readln(v[i]);
 end;
clrscr;
end;
//вывод на экран
procedure Vyvod(var v:mas;x:byte;c:string);
var i:byte;
begin
writeln('Вектор ',c);
for i:=1 to x do
write(v[i],' ');
writeln;
end;
//поиск палиндромов
function Palindrom(n:integer):boolean;
var m,p:longint;
    i,k:integer;
    begin
m:=n;
p:=0;
while m>0 do
  begin
    i:=m mod 10;
    p:=p*10+i;
    m:=m div 10;
  end;
if p=n then Palindrom:=true
else Palindrom:=false;
end;
//количество палиндромов
function KolPal(v:mas;x:byte):byte;
var i,k:byte;
begin
k:=0;
for i:=1 to x do
if Palindrom(v[i]) then k:=k+1;
KolPal:=k;
end;
//сортировка по возрастанию
procedure SortVoz(var v:mas;x:byte);
var i,j:byte;
   b:integer;
begin
for i:=1 to x-1 do
for j:=i+1 to x do
if v[i]>v[j] then
 begin
  b:=v[i];
  v[i]:=v[j];
  v[j]:=b;
 end;
end;
//сортировка по убыванию
procedure SortUb(var v:mas;x:byte);
var i,j:byte;
    b:integer;
begin
for i:=1 to x-1 do
for j:=i+1 to x do
if v[i]<v[j] then
 begin
  b:=v[i];
  v[i]:=v[j];
  v[j]:=b;
 end;
end;
 
var a,b:mas;
    n,m,ka,kb:byte;
begin
clrscr;
Vvod(a,n,'A');
Vvod(b,m,'B');
Vyvod(a,n,'A');
ka:=KolPal(a,n);
writeln('Количество палиндромов=',ka);
writeln;
Vyvod(b,m,'B');
kb:=KolPal(b,m);
writeln('Количество палиндромов=',kb);
writeln;
if ka>kb then
 begin
  writeln('В массиве А палиндромов больше');
  SortVoz(a,n);
  SortUb(b,m);
 end
else  if kb>ka then
 begin
  writeln('В массиве B палиндромов больше');
  SortVoz(b,m);
  SortUb(a,n);
 end;
if ka=kb then writeln('Палидромов поровну, сортировок нет')
else
 begin
  Vyvod(a,n,'A');
  Vyvod(b,m,'B');
 end;
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.11.2010, 13:49

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

Процедуры или функции. Определить сумму n-значных чисел, содержащих только нечетные цифры
Ребят, помогите решить задачи. Нужен ПОЛНЫЙ КОД и чтобы в нем использовалась либо процедура, либо...

Найти сумму нечётных чисел и количество чётных чисел в двух массивах
Пусть дано 2 массива. Составить программу для нахождения суммы нечетных чисел и количества четных...

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

Найти количество слов-полиндромов в заданном тексте.
Как решить задачу??? Дан текст, в котором слова разделены одним или несколькими пробелами. Найти...


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

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

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