Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal установить какая степень в двойке https://www.cyberforum.ru/ turbo-pascal/ thread185326.html
Здравствуйте) Мне нужно дорешать задачу. Кое-что уже накидала) условие: найти все четные элементы в матрице по значению и установить какая степень в двойке. Uses CRT; Var a:array of...
Циклы с неявным числом повторений. Итерационные формулы. Составить программу вычисления. Turbo Pascal
Застрял на данном задании :( Буду благодарен за помощь.
Определить, какая из двух точек находится ближе к оси OX, и какая к оси OY Turbo Pascal
Написать программу, которая определяет – какая из двух точек, заданных на плоскости своими координатами, находиться ближе к оси OX, и какая к оси OY. и вот в этой задачке трудности возникли))...
Turbo Pascal Найти сторону равностороннего треугольника, вписанного в окружность радиуса r Написать программу, которая находит сторону равностороннего треугольника, вписанного в окружность радиуса r. ребята...помогите плиз...к завтрашнему утру надо))) https://www.cyberforum.ru/ turbo-pascal/ thread185291.html
Turbo Pascal Число Смита https://www.cyberforum.ru/ turbo-pascal/ thread185283.html
Нужна помощь по задаче, следующего типа: Составное число называется числом Смита, если сумма его цифр равна сумме цифр всех чисел, образующихся разложением исходного числа на простые множители. Число...
По нажатию номера месяца должно выводить месяц и сезон Turbo Pascal
По нажатию номера месяца должно выводить месяц и сезон, но оно все время выводит одно и тоже(при нажатии любого номера). Подскажите, что в этой программе не так? Program P2; uses crt; type...
Turbo Pascal Нужна формула координат точек пересечения отрезков
Напишите пожалуйста формулу нахождения координат точек пересечения отрезков с заданными координатами их концов
Turbo Pascal текст и матрица Ребят! нужна такая помощь. нужно написать такую программу, ввводишь текст а программа переводит его в матрицу. ну например: ПРОГРАММА ТЕКСТ это все переводится в такой вид: П Р О Г Р А М М А _ Т... https://www.cyberforum.ru/ turbo-pascal/ thread185259.html
Turbo Pascal Сортировка методом бинарных включений https://www.cyberforum.ru/ turbo-pascal/ thread185247.html
Задание: Написать программу, которая будет сортировать одномерный массив методом бинарных включений по возрастанию. Заранее благодарен...
Turbo Pascal Вычисление суммы ряда Решить с помощью процедуры или функции с использованием цикла. Составить две программы: 1) программу вычисления суммы первых n членов последовательности (k=1,2,3..,n); 2) ... https://www.cyberforum.ru/ turbo-pascal/ thread185237.html
Модератор
62900 / 46930 / 32344
Регистрация: 18.05.2008
Сообщений: 113,713
03.11.2010, 13:49 0

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

03.11.2010, 13:49. Просмотров 1060. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено 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 массива. Составить программу для нахождения суммы нечетных чисел и количества четных...

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

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

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