Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Даны не менее трех различных натуральных чисел, за которыми следует 0. Определить три наибольших числа среди них https://www.cyberforum.ru/ turbo-pascal/ thread1065699.html
Даны не менее трех различных натуральных чисел, за которыми следует 0. Определить три наибольших числа среди них (должно выполняться max1 ≥ max2 ≥ max3). Подсказка. Введите первые три...
Создайте на экране четыре окна Turbo Pascal
1. Создайте на экране четыре окна. В двух окнах поместите простые графические рисунки (например, ряд концентрических окружностей разного цвета) с использованием различных режимов отсечения. В два...
Turbo Pascal Сумма рандомных чисел Помогите. Прога должна была выдавать случайные числа и считывать её сумму. Но прога считает сумму как последнее число. В чём проблема? uses crt; var a: array of integer; o,i,sum:integer; begin... https://www.cyberforum.ru/ turbo-pascal/ thread1065550.html Turbo Pascal Составить таблицу значений функции y = f(x) на отрезке от a до b с шагом h https://www.cyberforum.ru/ turbo-pascal/ thread1065539.html
Составить таблицу значений функции y = f(x) на отрезке от a до b с шагом h. Для построения таблицы значений использовать цикл с предусловием. Таблица должна выводиться на экран в два столбца с...
Turbo Pascal Определить радиус наименьшего круга
Даны натуральное n и вещественные числа x1, y1, x2, y2,…, xn, yn. Рассматривая пары xi, yi как координаты точек на плоскости, определить радиус наименьшего круга (с центром в начале координат),...
Turbo Pascal Вычислить бесконечную сумму с заданной точностью E (E>0) Вычислить бесконечную сумму с заданной точностью E (E>0) \sum_{i=0}^{}\frac{{(-1)}^{i}}{i!} . USES crt; var f,s,eps,z,d:real; i:integer; begin clrscr; Write ('Введите eps = '); readln(eps);... https://www.cyberforum.ru/ turbo-pascal/ thread1065512.html
Turbo Pascal Составить программу решения задачи с использованием функций нахождения факториала и числа сочетаний из n по m Доброго времени суток. Я снова вынужден просить помощи у гуру программирования. Надеюсь вы сможете мне помочь. Задание: Составить программу решения задачи с использованием функций нахождения... https://www.cyberforum.ru/ turbo-pascal/ thread1065510.html Turbo Pascal Дана матрица, определить количество «особых» элементов
Здравствуйте дорогие форумчане. Прошу у вас помощи в решении этой задачки. Буду превелико благодарен. Задание: Дана матрица, определить количество «особых» элементов. Элемент считается «особым»,...
Turbo Pascal Сформировать квадратную матрицу порядка n по заданному образцу Приветствую всех. Помогите пожалуйста решить задачку. Задание: Сформировать квадратную матрицу порядка n по заданному образцу: Вывод матрицы на экран оформить в виде процедуры. 1 n 1... https://www.cyberforum.ru/ turbo-pascal/ thread1065498.html Turbo Pascal Определить попадает ли точка внутрь треугольника Помогите пожалуйстаааа!!! Даны действительные числа x1, y1, x2, y2, x3, y3. Находится ли точка с координатами (x,y) внутри треугольника с вершинами (x1, y1), (x2, y2), (x3, y3)? Подсказка: соедините... https://www.cyberforum.ru/ turbo-pascal/ thread1065482.html
Turbo Pascal Вычислить последовательность
без использования массива. Даны натуральное число n, действительные числа x 1 , x 2 , ..., x n (n >= 3). Вычислить: (x1 + 2 * x2 + x3) * (x2 + 2 * x3 + +x4) * ...* (xn – 2 + 2 * xn – 1 + xn)....
Turbo Pascal Написать программу вычисления суммы p/q=1-1/2+1/3-...+((-1)^(n+1))/n для заданного числа n Доброго времени суток дорогие форумчане. Прошу, пожалуйста помогите с решением этой задачи. Пытался юзать поиск, находил подобные темы, но без решения. Написать программу вычисления суммы... https://www.cyberforum.ru/ turbo-pascal/ thread1065470.html
3451 / 2389 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
08.01.2014, 15:42 0

Создать новый массив, элементами которого являются суммы цифр каждого числа старого массива - Turbo Pascal - Ответ 5608883

08.01.2014, 15:42. Показов 2444. Ответов 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
const
  nmax=10;
var
  a, b: array[1..nmax,1..nmax] of integer;
  n,m,i,j,x: integer;
begin
  repeat
    write('Ââåäèòå n, m (n<=10, m<=10): ');
    readln(n,m);
  until (n in [1..10]) and (m in [1..10]);
  writeln('Èñõîäíûé ìàññèâ:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(999)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln('Ïîëó÷åííûé ìàññèâ:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      x:=0;
      while a[i,j]>0 do
      begin
        x:=x+a[i,j] mod 10;
        a[i,j]:=a[i,j] div 10;
      end;
      b[i,j]:=x;
      write(b[i,j]:4);
    end;
    writeln;
  end;
  readln;
end.


Вернуться к обсуждению:
Создать новый массив, элементами которого являются суммы цифр каждого числа старого массива Turbo Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.01.2014, 15:42
Готовые ответы и решения:

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

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

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

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

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.01.2014, 15:42
Помогаю со студенческими работами здесь

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

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

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

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru