Авторизация

Логин: Пароль:
Регистрация Забыли свой пароль?

помогите циклом пожалуйста

Страницы: 1
помогите циклом пожалуйста, 1
#1
23.10.2010 22:13:03
Я в турбо паскале новичек, по этому прошу помощи в задаче:
Дана матрица А 6x6. m[i,j]:=i*sin(j)/cos(i); Необходимо упорядочить элементы в столбцах по убыванию.
program ffffr;
var m: array [1..6,1..6] of real;
i,j: integer;
begin
for i:=1 to 6 do
begin
for j:=1 to 6 do
begin
m[i,j]:=i*sin(j)/cos(i);
write(m[i,j]:7:2);
end;
end;
readln;
end.
 
 
#2
24.10.2010 01:35:34
В var добавь
Temp : real;
Flag : Boolean;
в текст программы
for j:=1 to 6 do
begin
repeat
Flag := False;
for i := 1 to 5 do
if m[i,j] < m[i + 1,j] then begin
Temp := m[i,j];
m[i,j] := m[i + 1,j];
m[i + 1,j] := Temp;
Flag := True;
end;
until Flag = False;
end;
если правильно понял то вот так, ну а вывести матрицу думаю сможешь
Изменено: Дмитрий Сергиенко - 24.10.2010 01:36:48
 
 
#3
12.12.2010 17:43:14
WersaT Raider, а где учишься и на кого?
 
 
#4
12.12.2010 19:21:31
Вроде не сложно же, перебрать все столбики методом пузырька, почитай в нете.
 
 
 
Страницы: 1
Читают тему (гостей: 1, пользователей: 0, из них скрытых: 0)