Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Вставить "бра" после каждого 3-го символа строки Вводится строка,затем вставляется "бра" после каждого 3-го символа строки https://www.cyberforum.ru/ turbo-pascal/ thread1419074.html Отсортировать полученный массив используя вспомогательную процедуру для обмена переменных значениями Turbo Pascal
Заполнить массив из 20 элементов случайными числами от -10 до 100 и отсортировать полученный массив используя вспомогательную процедуру для обмена переменных значениями (сделать надо по методу третьего стакана)
Turbo Pascal Вычислить значение выражения Вычислить значения z, соответствующие каждому значению х (xn \leq x\leq xk; шаг изменения х равен dx) по формуле z=\frac{\sqrt{a^2-2ab+x}}{5,55+(a+b)^2+e^x}. Определите минимальное значение среди значений z\leq0,максимальное среди z>0. На экран выводить каждую вторую пару значений x и z. Контрольный расчет провести при a=4.32, b=8.13, xn=-3, xk=4, dx=0.7 https://www.cyberforum.ru/ turbo-pascal/ thread1418874.html Turbo Pascal Вывести 3 таблицы значений заданной функции в заданном виде Вывести 3 таблицы значений заданной функции в виде: Таблица 1 Параметр=... У=... Х=... Таблица 2 Параметр=... У=... Х=... Таблица 3 Параметр=... У=... Х=... Расчеты на основании следующих данных: https://www.cyberforum.ru/ turbo-pascal/ thread1418844.html
Как проверить, есть ли в матрице хоть одна нулевая строка? Turbo Pascal
Нашёл кое-какую штуку, но она не работает. В i1 всегда записывается ноль. i1:=-1; i:=0; while(i<n) and(i1=-1) do begin k:=0; for j:=0 to n-1 do if a=0 then k:=k+1; if k=n then i1:=i
Turbo Pascal Из массива, сравнить все записи, и если у первых два поля значения равны, то образовать строку из третьих Есть одномерный массив записей, каждая запись содержит три поля (x.NI, x.NZ, x.r) Как из массива, сравнить все записи, и если у первых два поля значения равны, то образовать строку из третьих значений? Пример: Массив 5,1,1 4,5,3 5,1,4 2,1,5 5,1,6 https://www.cyberforum.ru/ turbo-pascal/ thread1418606.html
Turbo Pascal Вычислить значение функции cosx, используя разложение её в бесконечное произведение https://www.cyberforum.ru/ turbo-pascal/ thread1418589.html
Условие задачи: Вычислить значение функции cosx, используя разложение её в бесконечное произведение: \cos x=\prod_{k=0}^\infty {1- ((2*x)/\pi *(2*k+1))^2 Определить число итераций, необходимых для вычисления cos(0.3) с точностью до eps=10^-4. Никаких преобразований над уравнением не следует делать, просто число итерации будет равно 0?
Программа выводящая 8 разноцветных окон, расположенных одно в другом Turbo Pascal
Составить программу, выводящую на экран 8 разноцветных окон, расположенных одно в другом. Цвет и координаты окна связать с его порядковым номером.
Turbo Pascal Опишите множество точек находящихся в первом или третьем квадранте и находящихся внутри круга Опишите множество точек находящихся в первом или третьем квадранте и находящихся внутри круга x2+y2=16 между осью OY и графиком функции y=x3 https://www.cyberforum.ru/ turbo-pascal/ thread1418556.html Turbo Pascal Вывод элементов последовательности, порядковые номера которых кратны 5 1. Для последовательности an=1/n + 1/n2 + 1/n4 составить программу вычисления и вывода её элементов, порядковые номера которых кратны 5. 2. Для последовательности аn=sin(n)1/n2 составить программу вывода её отрицательных элементов на произвольном интервале изменения индекса (прим. индекс - порядковый номер). 3. Для последовательности аn=cos(n)1/n3+n составить программу вывода её... https://www.cyberforum.ru/ turbo-pascal/ thread1418512.html
Составить меню со способом выбора пункта перемещение ромашки Turbo Pascal
Составить меню со способом выбора пункта перемещение ромашки (ромашку можно сделать в кчаестве двух эллипсов и окружности) Меню состоит из пунктов: О составителе. Мой рисунок. Мой мультфильм. Выход.
Turbo Pascal Вычислить значение выражения Какие первоначальные действия необходимо сделать, чтобы написать программу? и здесь https://www.cyberforum.ru/ turbo-pascal/ thread1418488.html
Почетный модератор
64291 / 47589 / 32740
Регистрация: 18.05.2008
Сообщений: 115,181
12.04.2015, 20:01 0

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

12.04.2015, 20:01. Показов 3793. Ответов 2
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
const max=100;
var x:array[1..max] of integer;
    n,i:integer;
begin
repeat
write('Введите размер массива от 1 до ',max,' n=');
readln(n);
until n in [1..max];
for i:=1 to n do
 begin
  x[i]:=i;
  write(x[i],' ');
 end;
end.


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

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

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

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

Заполнить массив n первыми простыми числами (2, 3, 5, 7,.) и вывести его
12. С клавиатуры вводится число n. Заполнить массив n первыми простыми числами (2, 3, 5, 7,...) и...

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

Заполнить массив двадцатью первыми натуральными числами, делящимися нацело на 13 или на 17 и находящимися в ин
Заполнить массив двадцатью первыми натуральными числами, делящимися нацело на 13 или на 17 и...

Заполнить массив двадцатью первыми натуральными числами, делящимися нацело на 13 или на 17 и большими 300
а) двадцатью первыми натуральными числами, делящимися нацело на 13 или на 17 и большими 300; б)...

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

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

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