Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
BAAAAAas
29 / 29 / 42
Регистрация: 14.04.2013
Сообщений: 81
1

Массивы: Создать процедуру для вычисления величин

20.04.2013, 17:38. Просмотров 392. Ответов 5
Метки нет (Все метки)

Создать процедуру для вычисления величин z(i,j)=x(i)*y(j) (i=1,2,...,n; j=1,2,...,m), где z(i,j)-элемент матрицы Z, x(i)-элементы вектора x, а y(i)-элементы вектора y. Все величины относятся к целому типу.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.04.2013, 17:38
Ответы с готовыми решениями:

Создать процедуру для вычисления матрицы обратной к заданной
создать процедуру для вычисления матрицы обратной к данной (3х3)

Сформировать программу для вычисления величин
Помогите составить программу 2. Составить программу для вычисления следующих величин:

Составить процедуру (или функцию) для вычисления суммы десятичных цифр некоторого числа N. Для заданной
Составить процедуру (или функцию) для вычисления суммы десятичных цифр некоторого числа N. Для...

Описать процедуру и функцию для вычисления выражения
Помогите, пожалуйста... ...нужно описать процедуру для вычисления x^2 + (√x)...

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

5
KroKuZ
41 / 41 / 18
Регистрация: 16.12.2012
Сообщений: 162
20.04.2013, 17:49 2
А какие-то дополнительные условия есть?
(что должна принимать процедура, должна вычислять значения по одному или все сразу)
0
BAAAAAas
29 / 29 / 42
Регистрация: 14.04.2013
Сообщений: 81
20.04.2013, 20:29  [ТС] 3
Все условия я написал, больше никаких условий нет
0
Doomay
11 / 11 / 7
Регистрация: 18.11.2012
Сообщений: 37
20.04.2013, 20:39 4
Т.к. ты не указал диапазон N и диапазон элементов массива, а так же в какой последовательности вводятся значения.. Исправишь под свое решение.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Type vector=array [1..100] of integer;
Var   x, y  :vector;
        i, j, n , m   :byte;
        Z     :array[1..100,1..100] of integer;
Begin 
 Read(n,m);
 
 for i:=1 to n do read(x[i]);
 for j:=1 to m do read(y[j]);
 
  for i:=1 to n do 
    for j:=1 to m do 
       Z[i,j]:=x[i]*y[j];
 
   for i:=1 to n do 
    begin
         for j:=1 to m-1 do Write(z[i,j], ' ');
     writeln(z[i,m]);
    end;
end.
0
KroKuZ
41 / 41 / 18
Регистрация: 16.12.2012
Сообщений: 162
20.04.2013, 22:39 5
Doomay, это ж не процедура.
0
SunEclipse
232 / 181 / 104
Регистрация: 19.03.2010
Сообщений: 949
21.04.2013, 01:13 6
Pascal
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
uses crt;
Type vector=array [1..100] of integer;
Var   x, y  :vector;
        i, j, n , m   :byte;
        Z     :array[1..100,1..100] of integer;
        
        procedure vich(n,m:integer);
        var x,y : vector;
        i,j:integer;
        begin
             for i:=1 to n do begin
             for j:=1 to m do begin
             Z[i,j]:=x[i]*y[j];
             end;
             end;
 
                for i:=1 to n do
                begin
                for j:=1 to m-1 do Write(z[i,j], ' ');
                writeln(z[i,m]);
                end;
        end;
Begin
 Read(n,m);
 
 for i:=1 to n do read(x[i]);
 for j:=1 to m do read(y[j]);
 
  vich(n,m);
end.
0
21.04.2013, 01:13
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.04.2013, 01:13

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

Составить процедуру для вычисления коэффициентов а1,а2 апроксимирующего многочлена Р(х)=а1+а2*х
Выполнить задание с использованием процедуры и функции. Исходные данные ввести с тексгового...

Составить программу для вычисления функции используя ПРОЦЕДУРУ
Составить программу для вычисления функции используя ПРОЦЕДУРУ. Результат записать в файл....

Составить пользовательскую процедуру или функцию для вычисления произведения
Составить пользовательскую процедуру или функцию для вычисления произведения: (12/(1+1)2) * (...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

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