• admin
  • Комментариев: 0
  • Просмотров: 270
  • 17-06-2015, 15:00

Умова: Описати функцію f(x) – число, яке можна отримати з натурального числа х перестановкою цифр в оберненому порядку. Скласти програму, яка друкує симетричні числа з набору натуральних чисел.

Условие: описать функцию f(x) - число, которое можно получить с натурального числа х перестановкой цифр в обратном порядке. Сложить программу, которая печатает симметрические числа с набора натуральных чисел. 

Решение: 

program f_ot_x;
const n=5;
var A: array [1..n] of integer;
i, m: integer; 

function obrn(x: integer):integer;
var i, z, e: integer;
s, k: string;
begin
k:='';
str(x,s);
for i:=length(s) downto 1 do
k:=k+s[i];
val(k,z,e);
obrn:=z;
end;

begin
writeln ('Заполните массив');
for i:=1 to n do
readln (A[i]);
writeln('Симметричные числа в массиве: ');
for i:=1 to n do begin
m:=obrn(A[i]);
if A[i]=m then writeln (m);
end;
end.

Пояснение констант, значений, операций и операторов:

 var S1, S2, S3, dops1, dops2: string - вводим данные, типа string (тип строка)

i, x: integer - данные типа integer (целые числа)

begin - тело программы, скобки выполнения операций

function obrn - процедура функции

writeln ('Основная строка ') - вывод текста с задержкой окна, в нашем случае на экране увидим текст: Основная строка

readln (S1) - считывание информации с задержкой окна, в данном случае строки S

for i:=1 to length(S) do - если i входит в промежуток от единицы до длины строки, то

if pos(S2,S1)>0 then - пока строка S2 входит в строку S1, то

end - конец программы