Страница 1 из 1
[Паскаль] три задачи, матрицы
Добавлено: 12 май 2008, 19:32
Armake
Перешел в лицей в 10 класс, до этого программированием не занимался вообще, а тут (в лицее) до этого программированием занимались с 7 класса. Задолжал несколько задачек. Помогите плз! Очень прошу!
1. В данной действительной квадратной матрице порядка n найти сумму желемнтов строки, в которой расположен элемент с наименьшим значением. Предполагается, что такоЙ элемент единственный
2. Даны действительные числа a1, a2, ... , a4. Поменять местами наибольший и наименьший элемент
3. Сформировать квадратную матрицу порядка n по заданному образцу
1 2 3 k n-2 n-1 n
2 3 4 k n-1 n 0
3 4 5 k n 0 0
M M M 0 M M M
n-1 n 0 k 0 0 0
n 0 0 k 0 0 0
Очень прошу
Re: [Паскаль] несколько задачек, горю
Добавлено: 13 май 2008, 11:03
Хыиуду
1. Раздел "Алгоритмы", тема "Нахождение максимума". Один символ поменять - будет нахождение минимума. Найдется минимум - пройти в цикле по строке с тем же индексом, что и у него, просуммировать значения.
2. Там же, то же.
3.
Код: Выделить всё
for i:=1 to N do
for j:=1 to N do
if i+j-1<=N then A[i,j]:=i+j-1 else A[i,j]:=0;
Re: [Паскаль] три задачи, матрицы
Добавлено: 13 май 2008, 20:55
Vovchik
Armake, чтоб не мучеца на вот тебе код задачи №2
Код: Выделить всё
uses crt;
const n=4;
var min,max,tmp,i,k,kk:integer;
m:array[1..n]of integer;
BEGIN
clrscr;
randomize;
for i:=1 to n do
begin
m[i]:=random(10);
end;
for i:=1 to n do
write(m[i]:3);
writeln;
writeln;
min:=m[1];
max:=m[1];
for i:=1 to n do
begin
if m[i]>max
then begin
max:=m[i];
k:=i;
end;
if m[i]<min
then begin
min:=m[i];
kk:=i;
end;
end;
tmp:=m[k];
m[k]:=m[kk];
m[kk]:=tmp;
for i:=1 to n do
write(m[i]:3);
readln;
END.
Re: [Паскаль] три задачи, матрицы
Добавлено: 14 май 2008, 10:58
Хыиуду
Vovchik, а можно и проще цикл сделать
Код: Выделить всё
max:=1;
min:=1;
for i:=2 to N do
if m[i]>m[max] then max:=i;
else if m[i]<m[min] then min:=i;
m[max]:=m[max]+m[min];
m[min]:=m[max]-m[min];
m[max]:=m[max]-m[min];
Избавились от трех переменных
Re: [Паскаль] три задачи, матрицы
Добавлено: 15 май 2008, 19:43
Vovchik
Хыиуду, ну я не спорю так тоже правильно, но я тока програмист новичёк по етому многово не знаю !!!!
Re: [Паскаль] три задачи, матрицы
Добавлено: 16 май 2008, 11:27
Хыиуду
Vovchik, знание тут не при чем. Просто, уж извините мне мою гордость, хороший программист-новичок себе ставит цель, чтобы программа работала, и обычно этого добивается. А для опытного программиста не составляет никакого труда заставить программу работать, поэтому он добивается уже не работоспособности, а эффективности. Это придет со временем. В коде, предложенном мной, нет совершенно ничего, что вам было бы незнакомо.
Re: [Паскаль] три задачи, матрицы
Добавлено: 16 май 2008, 18:18
Vovchik
Хыиуду, да я посмотрел, и там всё знакомо для меня, только у вас в коде всё слегка упрошённо !!!!