Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Вычислить значение Y https://www.cyberforum.ru/pascalabc/thread769917.html
Вычислить значение Y, если:
Pascal ABC Определить двухзначное число, в котором число десятков соответствует первой цифре заданного числа, а число единиц-последней
2.Дано целое положительное четырёхзначное число. Напишите программу, позволяющую определить двухзначное число, в котором число десятков соответствует первой цифре заданного числа, а число...
Определить, является ли введённый год високосным Pascal ABC
3.Дано целое положительное число, соответствующее номеру года. Напишите программу, позволяющую определить является ли введённый год высокосным. Год является високосным, если его номер кратен 4, но из...
Pascal ABC Реализовать игру "Морской бой" Реализовать игру "Морской бой" на паскале. https://www.cyberforum.ru/pascalabc/thread769865.html
Pascal ABC Найти периметр и площадь треугольника по данным трем сторонам https://www.cyberforum.ru/pascalabc/thread769860.html
1.Даны действительные положительные числа а,в,с, которые являются длинами сторон треугольника. Напишите программу, позволяющую найти периметр треугольника и площадь треугольника.
Одномерный массив: вставить нулевой элемент в пятую позицию Pascal ABC
вставить нулевой элемент в пятую позицию.при этом все элементы начиная с пятого должны сдвинуться на одну позицию вперед. Голова отказывается соображать совсем...хотя знаю что это дико просто)))))
Определить, на какой диагонали матрицы находится наибольшая сумма цифр. Транспонировать матрицу Pascal ABC
заполнить двумерный массив (матрицу) разностью N*N (величина задана в разделе констант) случайными цифрами. а) определить на какой диагонали матрицы находится наибольшая сумма цифр б)...
Pascal ABC Поиск элементов с заданными свойствами, арифметические действия с элементами массива Создать одномерный массив размерностью 10. Заполнить его генератором случайных чисел це- лыми числами в диапазоне от 0 до 100. а) найти минимальный элемент массива, б) разницу между максимальным и... https://www.cyberforum.ru/pascalabc/thread769659.html
Pascal ABC Определить, есть ли в массиве строка с равным количеством положительных и отрицательных элементов https://www.cyberforum.ru/pascalabc/thread769652.html
Дана матрица D размера nхm( n,m, х массива: А - из элементов матрицы D, лежащих в диапазоне от -5 до 5, в порядке следования по строкам, В - из элементов от 10 до 20, С - от 30 до 50. Использовать...
Pascal ABC В третий массив разместить только максимальные элементы из соответствующих позиций двух исходных массивов Объявить три одномерных массива целых чисел одинаковой размерностью. Заполнить первый и второй массивы генератором случайных чисел. В третий массив разместить только максимальные элементы из... https://www.cyberforum.ru/pascalabc/thread769649.html
Puporev
Модератор
59362 / 44805 / 30922
Регистрация: 18.05.2008
Сообщений: 107,472
23.01.2013, 18:06 0

Сформировать массив по правилу

23.01.2013, 18:06. Просмотров 922. Ответов 1
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
var a:array[1..9] of integer;
    i:byte;
begin
for i:=1 to 9 do
 begin
  case i mod 3 of
  1:a[i]:=i*i+5;
  2:a[i]:=trunc(sqrt(a[i-1]));
  0:a[i]:=trunc(a[i-2]/a[i-1]);{или a[i-1]/a[i-2],непонятно}
  end;
  write(a[i],' ');
 end;
end.


Вернуться к обсуждению:
Сформировать массив по правилу
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.01.2013, 18:06

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

Сформировать массив по правилу
Помогите пожалуйста!!!

Сформировать массив по правилу
Задано количество членов разложения e = 2 + 1/2! + 1/3! + 1/4! + …, не превышающее 25. Сформировать...

Сформировать массив по правилу
Даны 2 массива A(m) B(m), где m<12. Массивы A и B считываются из заранее подготовленного файла...

Сформировать массив по правилу
Дан массив A. Построить массив B(6) по следующему: B(J) присвоить 1, если в J-ом столбце массива A...

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