Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Одномерный массив Найти сумму элементов четных номеров массива вещественных чисел, больших 9 https://www.cyberforum.ru/ pascal/ thread1041002.html Массивы A (N), В (М) Pascal
Массивы A (N), В (М) содержат цифры N-значного и M-значного цифр соответственно (1 <= N, М <= 1 00). Заполнить массив С цифрами частного от деления числа массива А на число массива В, массив D - цифрами остатка от деления числа массива А на число массива В.
Pascal Цифровая река https://www.cyberforum.ru/ pascal/ thread1040923.html
Дана следующая задача, пожалуйста, если кто может решить, помогите: Цифровая река - это последовательность чисел, где число следует за числом n , это n плюс сумма его цифр . Например , если число n = 12345 , то за ним будет идти 12345 + (1 +2 +3 +4 +5 ) = 12360 и т.д. Если первое число цифровой реки N , мы будем называть ее « река N ». Например, река 480 - это последовательность чисел , которая...
Pascal Логический куб (задача на сообразительность , выполнения ограничивается во времени , сама сделать ее не смогла но решение очень нужно) https://www.cyberforum.ru/ pascal/ thread1040905.html
Логический куб - это куб в вершинах которого находятся значения 0 или 1. Нужно найти путь от одной заданной вершины к другой , если такого пути не существует то вывести соответствующее сообщение. В кубе можно проходить через все ребра , а также через вершины значение которых равно 1 . Напишите программу, которая находит путь между двумя вершинами (если он существует) , и выводит его в виде...
Pascal Составить алгоритм и код программы вычисления значения сумы
S=∑_(x=n)^k▒〖F(x)〗 Выражение для вычисления функции функции F , значение N и K, а также условие вычисления функции взять из таблицы 1. В соответствии с по с последней цифрой номра прпуска. Оформить вывод значений функции F в виде таблицы. Значение N и K ввести с клавиатуры. Вывести результат вычисления с пояснением. N=1 K=90 Операция- Сумма F(x) ...
Pascal Дан массив 9х9 отсортировать все элементы по убыванию любым способом Дан массив 9х9 отсортировать все элементы по убыванию любым способом https://www.cyberforum.ru/ pascal/ thread1040810.html
Pascal Дана строка S, определить является ли K числом, если да, то удалить. https://www.cyberforum.ru/ pascal/ thread1040569.html
Помогите пожалуйста решить задачу. Дана строка S, определить является ли K числом, если да, то удалить.
Pascal Программа для определения наибольшего значения
Доброго времени суток! Прошу о помощи. Программа для определения наибольшего значения {z}_{i}=0,5({x}_{i}+{y}_{i}), если {x}_{i} изменяется одновременно с {y}_{i} от начального значения 15,5 с шагом 0,5, а {y}_{i} задан.
Pascal Исправьте пожалуйста https://www.cyberforum.ru/ pascal/ thread1040427.html
Написал программу. Не получается посчитать количество одинаковых элементов. Дан массив с (n) . Переписать в мас¬сив х (n) все ненулевые элементы массива возведенные в квадрат. Затем упорядо¬чить методом «пузырька» по возрастанию новый массив. Найти общее количество одинаковых элементов в упорядоченном массиве. program sort_2; uses crt; const n=10; var x: array of real; y: array of real;...
Pascal Подскажите https://www.cyberforum.ru/ pascal/ thread1040409.html
Пусть дан файл целых чисел. Определите, являются ли числа в файле упорядоченными по возрастанию.
В Двумерном массиве в четвертой строке найти сумму четных чисел Pascal
Эх, не могу справиться с заданием, похожих тем не нашел, подскажите пожалуйста.. заранее: при много благодарен) Вообщем задание: Дан массив: А В четвертой строке найти сумму четных Элементов.
Pascal Сумма бесконечного ряда Вычислить с заданной точностью. Определить количество членов, необходимых для достижения заданной точности. Создать два типа программ с помощью различных операторов цикла. Подайте в пример хоть бы один цикл, а другой уже сам напишу, спасибо https://www.cyberforum.ru/ pascal/ thread1040366.html
228 / 225 / 220
Регистрация: 03.07.2012
Сообщений: 466
14.12.2013, 17:35 0

Заполнить массив натуральными числами - Pascal - Ответ 5492963

14.12.2013, 17:35. Показов 2008. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено jiutbuhehko как решение

Решение

Не совсем уверен, но сделал бы так :
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses
  crt;
Const
  Nmax = 100;
Type
  TArr = array[1..Nmax] of integer;
var
  a : TArr;
 
  i, j, k : integer;
begin
  clrscr;
  j := 1; k := 10;
  for i := 1 to 10000 do begin
    if i = (i*i) mod k then begin 
      a[j] := i;
      inc(j);
    end;  
    if i div k <> 0 then k := k * 10;
  end;  
  for i := 1 to j-1 do write(a[i]:7);
  readln;
end.


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

Заполнить массив первыми N натуральными числами
Напишите подпрограмму, которая заполняет массив первыми N натуральными числами. Размер массива...

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

Прямоугольную матрицу заполнить последовательными чётными натуральными числами "по спирали" .
а) составить блок-схему алгоритма решения; б) написать реализующую алгоритм программу на языке...

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

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

Заполнить массив случайными числами и вывести на экран отсортированный массив.
Заполнить массив случайными числами и вывести на экран отсортированный массив. Добавлено через 3...

Создать динамический массив А целых чисел размерностью M на N. Заполнить массив случайными числами в диапазоне [-50;50]
Создать динамический массив А целых чисел размерностью M на N. За-полнить массив случайными числами...

Заполнить массив Ci числами
Нужно заполнить массив Ci случайными числами от -100 до 100

Заполнить массив четными числами
Помогите пожалуйста!! Заполнить массив из 20 элементов четными числами ( a=2, a=4 и.т.д.)

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