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

Nikita45635

0 / 0 / 0

Регистрация: 28.02.2023

Сообщений: 22

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

27.03.2023, 14:20. Показов 280. Ответов 3

Метки (Все метки)

Студворк — интернет-сервис помощи студентам

Pascal

var a:array[1..15,1..15] of real;
    x,с:array[1..15] of real;
    n,m,i,j,k:integer;
    s,s1:real;
begin
writeln('Введите количество строк и столбцов от 2 до 15');
readln(n,m);
writeln('Матрица А');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=9*random;
    write(a[i,j]:5:2);
   end;
  writeln;
 end;
 writeln('Матрица B');
for i:=1 to n do
 begin
  for k:=1 to m do
   begin
    a[i,k]:=9*random;
    write(a[i,k]:5:2);
   end;
  writeln;
 end;
  writeln('Матрица D');
for k:=1 to n do
 begin
  for i:=1 to m do
   begin
    a[k,i]:=9*random;
    write(a[k,i]:5:2);
   end;
  writeln;
 end;
s1:=0;
for i:=1 to n do
begin
  s1:=s1+sqr(a[i,k])*sin(a[k,i]);
end;
s:=0;
for i:=1 to n do
for j:=1 to m do
s:=s+cos(sqr(a[i,j]));
writeln('Массив В');
for k:=1 to n do
 begin
  с[k]:=s1/s;
  write(с[k]:5:2,' ');
 end;
end.

Вернуться к обсуждению:
Исправить код вычисления элементов одномерного массива Pascal

Следующий ответ

Миниатюры

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

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

27.03.2023, 14:20

Готовые ответы и решения:

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

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

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

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

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

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

27.03.2023, 14:20

Помогаю со студенческими работами здесь

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

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

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

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

Наверх