![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
vitox |
![]() ![]()
Сообщение
#1
|
![]() Группа: Пользователи Сообщений: 6 Пол: Мужской Репутация: ![]() ![]() ![]() |
Помогите, пожалуйста, решить задачи на векторы:
1) Вводится длина вектора и значения его элементов. Составить и вывести новый вектор со значениями элементов исходного вектора, не равных заданному значению. 2) Ввести размерность матрицы и значения ее элементов. Построить вектор В, где В(i) - среднее арифметическое отрицательных элементов в i-ой строке. Заранее спасибо! -------------------- за слова отвечаю, за их правописание - нет!)
|
![]() ![]() |
volvo |
![]()
Сообщение
#2
|
Гость ![]() |
Цитата 1) Вводится длина вектора и значения его элементов. Составить и вывести новый вектор со значениями элементов исходного вектора, не равных заданному значению. Уточни задание, ты ничего не сказал про "задание значения" (по первому предложению, вводится только длина вектора и он сам, больше ничего...)... Приведи пример ввода и вывода...Вторая задача уже решалась - пользуйся поиском... |
vitox |
![]()
Сообщение
#3
|
![]() Группа: Пользователи Сообщений: 6 Пол: Мужской Репутация: ![]() ![]() ![]() |
Уточни задание, ты ничего не сказал про "задание значения" как я понял, значение вводится пользователем -------------------- за слова отвечаю, за их правописание - нет!)
|
klem4 |
![]()
Сообщение
#4
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
Это хорошо .. что конкретно у тебя на получается какая часть задания ? Что уже готово ?
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
vitox |
![]()
Сообщение
#5
|
![]() Группа: Пользователи Сообщений: 6 Пол: Мужской Репутация: ![]() ![]() ![]() |
klem4
в том то и дело, что ничего не занаю, как делать, ибо полсеместра проболел, вышел и тут мне лабораторку дают: "до завтра реши" а я векторов вообще в глаза никогда не видел... -------------------- за слова отвечаю, за их правописание - нет!)
|
klem4 |
![]()
Сообщение
#6
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
Проболел .. ну так преподу так бы и сказал ... :dry:
держи, подарок тебе к новому году ;) 1) uses crt;
var
a,b : array[1..10] of integer;
i,j,n : byte;
k : integer;
begin
clrscr;
write('n='); readln(n);
write('k='); readln(k);
j := 0;
for i := 1 to n do begin
write('a[',i,']=');
readln(a[i]);
if a[i] <> k then begin
inc(j);
b[j] := a[i];
end;
end;
writeln;
for i := 1 to j do writeln(b[i]);
readln
end.
2) uses crt;
const
n = 3;
type
Tarray = array[1..n] of single;
TMatrix = array[1..n] of TArray;
function Sr(mx : TMatrix; i : byte) : single;
var
s : single;
j ,count: byte;
begin
s := 0;
count := 0;
for j := 1 to n do
if mx[i,j] < 0 then begin
s := s + mx[i,j];
inc(count);
end;
if count = 0 then Sr := 0
else Sr := s/count;
end;
procedure Input(var mx : TMatrix);
var
i,j : byte;
begin
for i := 1 to n do
for j := 1 to n do begin
write('mx[',i,',',j,']=');
readln(mx[i,j]);
end;
writeln;
end;
procedure Print(mx : TMatrix);
var
i,j : byte;
begin
for i := 1 to n do begin
writeln;
for j := 1 to n do write(mx[i,j]:3:2,' ');
end;
writeln;
end;
procedure GetArray(mx : TMatrix; var arr : TArray);
var
i: byte;
begin
writeln;
for i := 1 to n do begin
arr[i] := Sr(mx,i);
writeln('a[',i,']=',arr[i]:2:2);
end;
end;
var
a : TArray;
m : TMatrix;
begin
clrscr;
Input(m);
Print(m);
GetArray(m,a);
readln
end.
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
vitox |
![]()
Сообщение
#7
|
![]() Группа: Пользователи Сообщений: 6 Пол: Мужской Репутация: ![]() ![]() ![]() |
спосибо тебе ОГРОМНОЕ!!!
![]() ![]() -------------------- за слова отвечаю, за их правописание - нет!)
|
![]() ![]() |
![]() |
Текстовая версия | 25.07.2025 2:17 |