Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Паскаль

69K
13 ноября 2011 года
Ebon
13 / / 07.11.2011
Подскажите, как в паскале умножить вектор B, состоящий из M элементов на какое-нибудь число, например на 20.
247
13 ноября 2011 года
wanja
1.2K / / 03.02.2003
 
Код:
for i:=1 to m do
   b:=b*20;
69K
13 ноября 2011 года
Ebon
13 / / 07.11.2011
Мне дана задача: Даны матрица А размером М х М и вектор В, состоящий из М элементов. Вектор В умножить на 20, если наибольший элемент матрицы А (в предположении, что такой элемент единственный) находится на главной диагонали, и на 0,5 - в противном случае.
Написал программу:
Код:
Program abc;
const m=20;
var
i , j, q: integer;
x, y: real;
a: array [1..m, 1..m] of real;
b: array [1..m] of real;
begin
readln(a[i,j]);
if i=j then
for q:=1 to m do
b[q]:=b[q]*20
else for q:=1 to m do
b[q]:=b[q]*0.5;
writeln('b=',b[q]);
end.

Но в ответе всегда 0 получается, помогите отредактировать.
77K
13 ноября 2011 года
mr47`
2 / / 13.11.2011
Вот почти ваше решение сами уж потрудитесь довести до ума.
Код:
Program abc;
const m=20;
var
i , j, q: integer;
x, y: real;
a: array [1..m, 1..m] of real;
b: array [1..m] of real;
max:real;
localmax:real;
begin
for i:=1 to m do begin
  for j:=1 to m do begin
      write('a[',i,',',j,'] = ');
      readln(a[i,j]);
  end;
end;
max:=a[1,1];
localmax:=a[1,1];
for i:=1 to m do begin
  for j:=1 to m do begin
     if (i=j) then begin
        if (localmax<a[i,j]) then localmax:=a[i,j];
     end;
     if (max<a[i,j]) then max:=a[i,j];
  end;
end;
if(localmax=max) then begin
     //есть наибольший элемент и он находится на главной диагонали
end else begin
     // обратное утверждение
end;
end.
77K
13 ноября 2011 года
mr47`
2 / / 13.11.2011
не забудьте что нужно еще инициализировать ваш вектор т.е считать его.
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог