Получить целочисленную матрицу по правилу

@mishalsk · Регистрация: 26.08.2013

Помогите решить задачу

@Puporev · 10.10.2013, 18:45

Pascal

uses crt;
const n=3;
var a:array[1..n] of integer;
    b:array[1..n,1..n] of integer;
    i,j:byte;
begin
writeln('Введите 3 целых числа');
for i:=1 to n do
 begin
  write('a[',i,']=');
  read(a[i])
 end;
writeln('Матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    b[i,j]:=a[i]-3*a[j];
    write(b[i,j]:5);
   end;
  writeln
 end;
end.

@mishalsk · 10.10.2013, 20:01 **[ТС]**

Помогите эту задачу сделать с примением функции

Добавлено через 19 секунд

Pascal

uses crt;
const n=3;
function cel:integer;
var
a:array[1..n] of integer;
b:array[1..n,1..n] of integer;
i,j:byte;
begin
b[i,j]:=a[i]-3*a[j];
cel:= b[i,j]
end;
 
var

@Puporev · 10.10.2013, 20:11

Сообщение от mishalsk

с примением функции

А что за функция, что она должна делать?

@mishalsk 0 / 0 / 0 Регистрация: 26.08.2013 Сообщений: 34
		1
	Получить целочисленную матрицу по правилу 10.10.2013, 18:33. Показов 1004. Ответов 3 Метки нет (Все метки) Помогите решить задачу Миниатюры 0

@Puporev Почетный модератор 64276 / 47575 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	10.10.2013, 20:11	4
	Сообщение от mishalsk с примением функции А что за функция, что она должна делать? 0

Опции темы

Получить целочисленную матрицу по правилу

Решение