Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Переписать данные из текстового файла в типизированный нужна программа которая переписывает из текстового файла в типизированный я сделал но почему то выдает ошибку uses crt; var s:text; p:file of char; x:char; begin assign(s,'C:\praktika\s.txt '); assign(p,'C:\praktika\p.dat '); https://www.cyberforum.ru/ turbo-pascal/ thread425708.html Turbo Pascal Несколько задач на паскале:
1) С помощью признака делимости на 9 проверьте, кратно ли данное натуральное число 9. Напишите рекурсивную функцию. 2) Решите задачу коммивояжера, используя процедуру генерирования всех перестановок из n элементов. 3) Разработайте программу работы с бинарным деревом. Программа должна содержать следующие процедуры, вызываемые из меню: - построение пустого дерева; - добавление нового...
Turbo Pascal Меньшее заменить полусуммой, а большее — удвоенным произведением (блок-схема) Может создал тему не в том разделе, не серчайте! Ребята форумчане умоляю спасайте скоро сессия! уже не знаю куда податься!!!! Задали по информатике сделать блок-схему алгоритма решения двух задач: 1. Ввести два числа. Меньшее заменить полусуммой, а большее - удвоенным произведением. 2. Дана длина окружности. Найти площадь круга, ограниченного этой окружностью. В качестве значения Pi... https://www.cyberforum.ru/ turbo-pascal/ thread425664.html Turbo Pascal Вычислить Сумму ряда! Pliz https://www.cyberforum.ru/ turbo-pascal/ thread425627.html
Помощь! Вычислить Сумму ряда! Pliz
Turbo Pascal Составить программу вычисления функции
Составить программу вычисления функции y = f(x) для заданного значения аргумента x. Функция y = f(x) вычисляется с помощью выражения, записанного по правилам языка Паскаль.
Turbo Pascal Реализовать восходящую сортировку слиянием без копирования массивов. https://www.cyberforum.ru/ turbo-pascal/ thread425617.html
Реализовать восходящую сортировку слиянием без копирования массивов. Помогите пожалуйста...
Turbo Pascal Получить отсортированный по неубыванию массив C, состоящий из элементов массивов A и B Помогите решить вот эту программу на Паскале Пожалуйста!!!: Есть два отсортированных в порядке неубывания массива A и B. Получить отсортированный по неубыванию массив C, состоящий из элементов массивов A и B ("слить" вместе массивы A и B). https://www.cyberforum.ru/ turbo-pascal/ thread425598.html Даны две матрицы. Есть ли в них одинаковые строки? Turbo Pascal
Даны две матрицы. Есть ли в них одинаковые строки? Помогите срочно надо Пожалуйста!
Turbo Pascal Сортировка пузырьком одномерного массива https://www.cyberforum.ru/ turbo-pascal/ thread425579.html
Разработать программу сортировки одномерного массива. Самостоятельно выбрать метод сортировки ,размерность и тип элемента массива. Выбран пузырьковый метод сортировки вот ссылка на этот метод http://programmado.ru/48-sortirovka-metodom-puzyrka.html program uchebka3; uses crt; const size=4; var
Turbo Pascal В другой массив перенести значения исходного массива, расположенные после последнего минимального элемента В одномерном массиве вещественных чисел найти все минимальные и все максимальные элементы. В другой массив перенести значения исходного массива, расположенные после последнего минимального элемента (массив может содержать несколько минимальных и несколько максимальных элементов). Число элементов массива не более 30. program uchebka2; uses crt; const size=5; var a, b, imin, imax: array ... https://www.cyberforum.ru/ turbo-pascal/ thread425576.html
В одномерном массиве поменять местами максимальный (MAX) и минимальный (MIN) элементы Turbo Pascal
В одномерном массиве поменять местами максимальный (MAX) и минимальный (MIN) элементы. Вывести на печать исходный и полученный массивы. {Программа для замены всех максимальных элементов на минимальные и наоборот} program terrabyte; uses crt, printer; var a: array of integer; {исходный массив} c: array of integer; {массив для индексов минимальных элементов} b: array of...
Turbo Pascal Путем перестановки строк и столбцов переместить минимальный элемент матрицы в левый нижний угол https://www.cyberforum.ru/ turbo-pascal/ thread425545.html
Нужно для экзамена Путем перестановки строк и столбцов переместить минимальный элемент массива F(M, M) в левый нижний угол. f(x, y) = 5sin(exy + 3x2 + y2); a = -2.7; b = 0.2; c = 0.3; d = 0.1; M = 10 Найти все значения xk, при которых значениях f(xk, yn) монотонно возрастают (n = 1, 2,…, M). f(x, y) = cosx•(x3y2/10 – 25Lnx) + 5; a = 0.7; b = 0.5; c = 1.3; d = 0.1; M = 9 Сам пытался...
0 / 0 / 1
Регистрация: 03.10.2011
Сообщений: 40
0

Получить из исходного массива другой массив. - Turbo Pascal - Ответ 2373289

10.01.2012, 18:32. Показов 784. Ответов 1
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Ребята, здравствуйте! Написал программу по получению из исходного массива другой массив, который содержал бы в каждой своей ячейке с индексом i суммы квадратов всех натуральных чисел от единицы до значения в i-м элементе исходного массива. Но Pascal выдаёт ошибку -- пишет, что выход за границы диапазона. Как это исправить и, может быть, у меня ещё есть какие-то ошибки?...
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
const m=5;
type t=array[1..m]of integer;
var a, b: t;
    i, j: integer;
begin
for i:=1 to m do
   begin
   a[i]:=random(10);
   write(a[i], '  ');
   end;
for i:=1 to m do
   begin
   b[i]:=0;
   for j:=1 to a[i] do
      b[i]:=b[i]+a[j]*a[j];
   end;
writeln;
for i:=1 to m do
   write(b[i], '  ');
end.


Вернуться к обсуждению:
Получить из исходного массива другой массив. Turbo Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.01.2012, 18:32
Готовые ответы и решения:

Получить другой массив, состоящий только из чисел исходного массива, меньших данного числа N
Составьте паскаль-программу для решения следующий задачи: «Дан одномерный массив действительного...

Массив: получить другой массив, состоящий только из чисел исходного, абсолютная величина которых больше заданного числа
дан одномерный масив действительного типа.получить другой масив,состоящий только из чисел исходного...

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

Массив: Получить массив делением всех элементов исходного массива на максимальный по модулю элемент...
получить новый массив делением всех элементов исходного массива на элемент массива, крупнейший по...

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

Массив: Получить новый массив путем исключения Min и Max значений исходного массива...
Из исходного массива получить новый массив, из которого выбросить максимальное и минимальное...

Дан одномерный массив действительного типа. Получить массив, состоящий из отрицательных чисел исходного массива
Помогите пожалуйста решить задачку) Дан одномерный массив действительного типа. Получить другой...

Из массива А(М) получить массив В(М), каждый элемент которого равен квадрату соответствующего элемента исходного массива
Составить программу: Из массива А(М) получить массив В(М), каждый элемент которого равен квадрату...

Переписать элементы исходного массива в другой массив такого же размера особым образом
Дан массив. Переписать его элементы в другой массив такого же размера следующим образом: сначала...

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