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

Дан массив целых чисел. Составить новый массив, элементами которого являются числа-перевертыши исходного массива

15.12.2012, 18:38. Просмотров 926. Ответов 2
Метки нет (Все метки)

Дан массив целых чисел. Составить новый массив, элементами которого являются числа-перевертыши исходного массива (типо 345 -543 или 1000 -0001 вод чисел случайно через рандом ) . Полученные числа - перевертыша оформить в виде функции пользователя ! Помогите решить задачу а то тне получается



Код Pascal
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
program p1;
uses crt;
var
s:array[1..1000] of integer;
b:array[1..1000] of integer;
i,k:integer;
function prosto (x:integer): integer;
var x1, y, a : integer;
begin
x1:=x;
while x<>0 do
begin
a:=x mod 10;
y:=y*10+a;
x:=x div 10;
prosto:=y;
end;
y:=0;
end;
begin
readln(k);
for i:=1 to k do
readln(s[i]);
for i:=1 to k do
b[i]:= prosto (s[i]);
for i:=1 to k do
write(b[i],'');
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.12.2012, 18:38
Ответы с готовыми решениями:

Дан массив целых чисел, содержащий 10 элементов. Составить новый массив, записать в него сначала все положительные элементы исходного массива
, потом все отрицательные элементы, потом нули... Да прибудет с вами сила...

Дан массив А(n). Создать новый массив, элементами которого являются произведение A(i) на максимальный элемент массива A.
Дан массив А(n). Создать новый массив, элементами которого являются произведение A(i) на...

Дан массив A(n). Создать новый массив , элементами которого являются произведения A(i) на максимальный элемент массива A
Дан массив A(n). Создать новый массив , элементами которого являются произведения A(i) на...

Дан массив, состоящий из n натуральных чисел. Образовать новый массив, элементами которого будут элементы исходного, оканчивающиеся на цифру к.
Помогите пожалуйста задачка на одномерные массивы нужна прога зараннее благодарен!!!

2
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 7,957
Записей в блоге: 1
16.12.2012, 09:14 2
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
program p1;
uses crt;
var
s:array[1..1000] of integer;
b:array[1..1000] of integer;
i,k:integer;
function prosto (x:integer): integer;
var x1, y, a : integer;
begin
x1:=x;y:=0;
while x<>0 do
begin
a:=x mod 10;
y:=y*10+a;
x:=x div 10;
prosto:=y;
end;
y:=0;
end;
begin
readln(k);
for i:=1 to k do
readln(s[i]);
for i:=1 to k do
b[i]:= prosto (s[i]);
for i:=1 to k do
write(b[i],' ');
readln;
end.
Добавлено через 45 секунд
Переменные которые используешь в подпрограмме для каких то вычислений надо обнулять!
1
0 / 0 / 0
Регистрация: 05.04.2012
Сообщений: 4
16.12.2012, 13:08  [ТС] 3
СПС с меня шоколодка
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.12.2012, 13:08

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

Образовать новый массив, элементами которого являются элементы исходного массива
Написать программу, которая формирует новый массив, элементами которого являются элементы исходного...

Создать новый массив, элементами которого являются все отрицательные элементы исходного массива
Добрый день.Не могли бы вы помочь с задачей на одномерный массив. 6.3. Дан массив С(п). Создать...

Создать новый массив элементами которого являются суммы делителей каждого числа старого исходного
Дан одномерный массив, который содержит не более 40 целых чисел. Создать новый массив элементами...

Создать новый одномерный массив, элементами которого являются элементы исходного, не превосходящие некоторого числа
Задачи на одномерные массивы 2 Из одномерного числового массива размерности n создать новый...


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

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

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