|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
04.11.2009, 16:41 | #11 |
Пользователь
Регистрация: 27.10.2009
Сообщений: 22
|
Спасибо огромное!!! Как сделать, чтобы массив выводился через пробел?
|
04.11.2009, 16:44 | #12 |
Форумчанин
Регистрация: 13.10.2008
Сообщений: 714
|
См предвидущий пост(код)
|
04.11.2009, 16:57 | #13 |
Пользователь
Регистрация: 27.10.2009
Сообщений: 22
|
СПАСИБО!!! Как с паскаля вытащить текст программы (поместить его на форум, чтобы не печатать)?
|
04.11.2009, 17:04 | #14 |
Форумчанин
Регистрация: 13.10.2008
Сообщений: 714
|
|
04.11.2009, 18:38 | #15 |
Пользователь
Регистрация: 27.10.2009
Сообщений: 22
|
В заданной матрице поменять местами первую строку и первый столбец. Не могу никак понять почему меняются только два значения, а не три! Подскажите пожалуйста в чём ошибка?
program matr; const n=3; m=3; type tmatr=array[1..n,1..m] of real; var a:tmatr; x:real; pos,i,j:integer; begin for i:=1 to n do begin for j:=1 to m do read (a[i,j]); readln end; writeln ('исходная матрица:'); for i:=1 to n do begin for j:=1 to m do write(a[i,j]:10:2); writeln end; begin for i:=1 to n do for j:=1 to m do begin x:=a[1,j]; a[1,j]:=a[i,1]; a[i,1]:=x; end; end; writeln('перестановка столбцов:'); for i:=1 to n do begin for j:=1 to m do write(a[i,j]:10:2); writeln end; readln end. |
04.11.2009, 20:31 | #16 |
Пользователь
Регистрация: 27.10.2009
Сообщений: 22
|
Подскажите пожалуйста!!!
|
04.11.2009, 21:02 | #17 |
Форумчанин
Регистрация: 13.10.2008
Сообщений: 714
|
Код:
|
04.11.2009, 22:43 | #18 |
Пользователь
Регистрация: 27.10.2009
Сообщений: 22
|
Большое спасибо!!!
|
06.11.2009, 13:48 | #19 |
Пользователь
Регистрация: 27.10.2009
Сообщений: 22
|
Скажите пожалуйста какой смысл несут c, b в программе? Например i - это переменная цикла, k - это заменяемая компонента.
program Project1; {$APPTYPE CONSOLE} uses SysUtils; const n=10; var a:array[1..n] of integer; i,k,max,c,b:integer; flag:Boolean; begin randomize; for i := 1 to n do begin a[i]:=random(25)+1; write(a[i],' '); end; writeln; write('k= '); readln(k); c:=0; max:=a[1]; for I := 1 to n do begin if max<a[i] then begin max:=a[i]; c:=i; end; end; write('max= ', max); writeln; for I:= 1 to n do begin if a[i]=k then begin writeLn('K ege est` v massive'); break; end; end; for I:= 1 to n do begin if a[i]<>k then begin b:=a[c]; a[c]:=k; k:=a[c]; end ; end; for i := 1 to n do begin write(a[i],' '); end; writeln; readln; end. |
06.11.2009, 13:56 | #20 |
Форумчанин
Регистрация: 13.10.2008
Сообщений: 714
|
C запоминает индекс, максимального елемента(для перестановки елема)
B дополнительная переменная для обмена елемами массива! |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Массивы. Паскаль. | Denis41 | Помощь студентам | 1 | 14.09.2009 20:15 |
Паскаль. Массивы | Arshavin10 | Помощь студентам | 3 | 02.09.2009 17:49 |
Паскаль и массивы | RamireZ | Паскаль, Turbo Pascal, PascalABC.NET | 7 | 24.10.2008 17:20 |
Паскаль. Массивы | Sexy Fox | Помощь студентам | 5 | 12.04.2008 21:45 |
Паскаль, массивы. | SZero | Помощь студентам | 5 | 22.03.2008 16:06 |