Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Задайте любое количество элементов одномерного массива с консоли Задайте любое количество элементов одномерного массива с консоли. Заполните массив случайными числами(сначала целыми, затем - вещественными). Найдите минимальный и максимальный элемент массива. Все результаты выдайте на консоль, используя ранее составленное циклическое меню. https://www.cyberforum.ru/ pascal/ thread3092594.html Составить программу для вычисления элементов одномерного массива по формуле Pascal
Помогите, пожалуйста, решить задачу. Составить программу для вычисления элементов одномерного массива по формуле c_k=\frac{\sum_{i=1}^{n}\!a_{ik}^2\sin a_{ki}}{\sum_{i=1}^{n}\sum_{j=1}^{n}\!\cos a_{ij}^2},\ k=1,2,...,n.
Pascal Составить программу для вычисления величины S по формуле https://www.cyberforum.ru/ pascal/ thread3092579.html
Помогите, пожалуйста, решить задачу. Составить программу для вычисления величины S по формуле: S=\frac{\sum_{i=1}^{n}\sum_{j=1}^{m}\cos a_{ij}}{\prod_{k=1}^{L}\left(1+e^{-x_k} \right)}
Pascal Составить программу для вычисления элементов матрицы Y по известным элементам вектора X Помогите, пожалуйста, с задачей. Составить программу для вычисления элементов матрицы Y по известным элементам вектора X: yij = sin((i-j)∙xi), если sin xi ≤ sin xj; yij = i∙cos xj в противном случае. https://www.cyberforum.ru/ pascal/ thread3092578.html
Что не так в этой программе и как это исправить? Pascal
program necaesar; const d = ord('z')-ord('a')+1; var s1 : string; s2 : string; s3 : string; l, i, p, o : integer; begin Readln(s1);
Pascal Даны два массива X(n) и Y(m). В каждом массиве определить количество положительных элементов до первого отрицательного Даны два массива X(n) и Y(m). В каждом массиве определить количество поло-жительных элементов до первого отрицательного (с помощью функции). Доп. условия: а) использовать ДИНАМИЧЕСКИЕ массивы; б) написать функцию для создания и заполнения массива значениями (ввод с клавиатуры); в) написать процедуру для вывода массива. Написал основную часть программы, затруднение с выполнением основной части... https://www.cyberforum.ru/ pascal/ thread3091860.html
Pascal Сделать рекурсию Изменить код под рекурсию. const n=3; type ar= array of integer; procedure Per(a: ar; p: integer); var i,b: integer; begin if p=n then begin https://www.cyberforum.ru/ pascal/ thread3091344.html Разбить произвольный текст на строки определённой длины. При переносе слова предусмотреть вывод дефиса Pascal
Разбить произвольный текст на строки определённой длины. При переносе слова предусмотреть вывод дефиса
Pascal Определить поля шахматной доски, которые бьёт ферзь https://www.cyberforum.ru/ pascal/ thread3090777.html
Реализовать программу, решающую следующую задачу: Даны два символа - латинская буква от «а» до «h» и цифра от 1 до 8 (например: а5 или g2). Рассматривая их как координаты поля шахматной доски, на котором находится ферзь, схематически нарисовать шахматную доску, пометив крестиками все поля, которые «бьет» ферзь, и ноликами все остальные поля. * Замечание: Положение шахматной фигуры задается...
Pascal Ошибка 201: Ошибка проверки диапазона Здравствуйте! Програма должна выводить номер первой буквы введённого слова в веденном ряде букв. Например, есть два ряда из букв одинаковой длины: qwqwqw qwslovw В програму вводим эти два ряда только сойденив из: qwqwqwqwslovw Вводим количество букв в одном ряде: 6 И нужное нам слово: https://www.cyberforum.ru/ pascal/ thread3090158.html
Вычислить множество значений функции Pascal
Помогите, пожалуйста, с задачей. Вычислить множество значений функции Y=B-2AX^2 При A=6,3; X изменяющихся от 0,2 до 26,8 с шагом 0,5 ; B=256 Помогите решить, пожалуйста.
Pascal Вычислить множество значений функции Помогите, пожалуйста, с задачей. Вычислить множество значений функции y=√3xM при M=20 x изменяющихся от 5,6 до 2 с шагом - 0,4 Помогите решить, пожалуйста. https://www.cyberforum.ru/ pascal/ thread3089192.html
438 / 367 / 132
Регистрация: 09.09.2011
Сообщений: 1,333
29.03.2023, 17:16 0

Исправить код вычисления элементов одномерного массива - Pascal - Ответ 16832555

29.03.2023, 17:16. Показов 324. Ответов 3
Метки (Все метки)

Ответ

тут код для freepascal (используется несколько "фич" object free pascal):
Кликните здесь для просмотра всего текста
Delphi
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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
program make_vector_c;
{https://www.cyberforum.ru/pascal/thread3092812.html}
 
{$mode objfpc}{$H+}
 
uses math;
 
type
  TVectorC = array of double;
  TMatrixA = array of array of double;
 
function getDemension( ): Integer;
begin
  {запросить у пользователя, или прочитать из файла размерность.
  размерность должна быть > 0, но не слишком большой, чтобы
  можно было отобразить на экране}
  Result:= 10;
end;
 
function getMatrixA(const dem: integer): TMatrixA;
var
  i, j : integer;
begin
  SetLength(Result, dem, dem);
  {запросить у пользователя значения матрицы A или прочитать из файла}
  Randomize;
  for i:= 0 to pred(dem) do
      for j:= 0 to pred(dem) do begin
          Result[i,j]:= Random * 100 * RandomFrom([1.0, -1.0]);
      end;
end;
 
function calculateVectorC(const a: TMatrixA): TVectorC;
var
  i, j, k, n : integer;
  devider, devidend: double;
begin
  n:= Length(a[0]);
  SetLength(Result, n);
  {знаминатель формулы (делитель) не зависит от порядкового номера элемента
   вектора по этому рассчитываем его один раз}
  devider:= 0.0; //делитель
  for i:= 0 to pred(n) do
      for j:= 0 to pred(n) do
          devider += cos(sqr(a[i,j]));
 
  devidend:= 0.0; // делимое
  for k:= 0 to pred(n) do begin
 
      for i:= 0 to pred(n) do
          devidend += sqr(a[i,k]) * sin(a[k,i]);
 
      Result[k]:= devidend / devider;
  end;
end;
 
procedure printVectorC(const v: TVectorC);
var
  value: Double;
begin
  write(' C = [ ');
  for value in v do
      write(value:6:2, ' ');
  writeln(']');
end;
 
procedure printMatrixA(const m: TMatrixA);
var
  i, j, n: integer;
begin
  n:= Length(m[0]);
  for i:= 0 to pred(n) do begin
    for j:= 0 to pred(n) do
        write(m[i, j]:6:2, ' ');
    writeln;
  end;
end;
 
var
  demension: Integer; //размерность матрицы/вектора
  vectorC:   TVectorC = nil; //вектор  C
  matrixA:   TMatrixA = nil; //матрица A
 
begin
  //получить размерность матрицы/вектора
  demension:= getDemension();
  //получить матрицу
  matrixA:= getMatrixA(demension);
  //вычислить вектор
  vectorC:= calculateVectorC(matrixA);
  //вывести на экран матрицу
  printMatrixA(matrixA);
  //вывести на экран вектор
  writeln;
  printVectorC(vectorC);
 
  readln;
end.


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

вычисления суммы повторяющихся элементов одномерного массива
Помогите пожалуйста с программой вычисления суммы повторяющихся элементов одномерного массива, сама...

Составьте программу вычисления суммы элементов одномерного массива
Составьте программу вычисления суммы элементов одномерного массива А(N), встречающихся в этом...

Составьте программу вычисления суммы тех элементов одномерного массива A(N), что расположены перед первым нулевым элементом данного массива.
Составьте программу вычисления суммы тех элементов одномерного массива A(N), что расположены перед...

Вычисление элементов одномерного массива по формуле. Как исправить программу?
Составить программу для вычисления элементов одномерного массива по формуле:...

Составить программу для вычисления элементов одномерного массива
Составить программу для вычисления элементов одномерного массива:

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

Составьте программу вычисления суммы элементов одномерного массива
Составьте программу вычисления суммы элементов одномерного массива A(N), встречающихся в этом...

Как написать код программы для вычисления суммы номеров второго и третьего элементов одномерного массива в с++?
Помогите, пожалуйста, как написать данный код в с++? Я в программировании ноль, только начал, а...

Составить схему алгоритма и проект программы для вычисления элементов одномерного массива из 15 элементов
Составить схему алгоритма и проект программы для вычисления элементов одномерного массива из 15...

Вычисления элементов одномерного массива по заданной
Составить программу для вычисления элементов одномерного массива по заданной <ссылка вырезана>

Составьте программу вычисления суммы элементов одномерного массива
Составьте программу вычисления суммы элементов одномерного массива A(N), встречающихся в этом...

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