Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на языке Pascal

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.943 RSS
←   Май 2005   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/pascal
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

2.943 подписчиков
0 за неделю
←   Все выпуски   →

RusFAQ.ru: Программирование на языке Pascal


Информационный Канал Subscribe.Ru
РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Выпуск № 54
от 16.05.2005, 01:40

Администратор:Калашников О.А.
В номере:Вопросов: 2, Ответов: 5

Вопрос № 20656: Подскажите как сделать Дана матрица, как поменять в ней рядом расположенные строки 1-ю со 2-й, 3-ю с 4-й и т.д. Заранее Благодарю ...
Вопрос № 20657: Подскажите как сделать дана строка , как поменять все рядом стоящии слова (т.е. 1-ое со 2-м, 3-е с 4-м и т.д.) словом считается всё что отделено пробелами Заранее Благодарю...

Вопрос № 20656
Подскажите как сделать
Дана матрица, как поменять в ней рядом расположенные строки
1-ю со 2-й, 3-ю с 4-й и т.д.
Заранее Благодарю
Отправлен: 11.05.2005, 01:31
Вопрос задал: ger (статус: Посетитель)
Всего ответов отправлено: 4
Отвечает: twmd
Здравствуйте, ger!
Меняеть все через какуюто дополнительную переменную.
в данном случае это s1

Приложение:

Ответ отправил: twmd (статус: 2-ой класс)
Отправлен: 11.05.2005, 02:51
Отвечает: Malish
Здравствуйте, ger!
uses crt;
const n=5;
var
A : array [0..n,0..n] of integer;
i,j : integer;
{Temp : array [0..n] of integer;}
Temp : integer;
begin
clrscr;
//Заполнение матрицы случайными числами
for i:=0 to n do
for j:=0 to n do
A[i][j]:=random(5);
//Вывод матрицы, можно сделать отдельной процедурой
for i:=0 to n do
begin
for j:=0 to n do
write(A[i][j],' ');
writeln;
end;
//меняем рядомстоящие строки
i:=0;
while (n>=i) do
begin
for j:=0 to n do
begin
Temp:=A[i][j];
A[i][j]:=A[i+1][j];
A[i+1][j]:=Temp;
end;
i:=i+2;
if (i>n) then break;
end;
writeln;
//Опять вывод (поэтому можно через процедуру, как указал выше)
for i:=0 to n do
begin
for j:=0 to n do
write(A[i][j],' ');
writeln;
end;
readln;
randomize; // Для случайности
end.
Ответ отправил: Malish (статус: Студент)
Отправлен: 11.05.2005, 16:00
Отвечает: Boriss
Здравствуйте, ger!
Еще можно определить новый тип
TYPE
TRow = array[1..n] of integer;
тогда матрица:
VAR
matr : array[1..n] of TRow;
{переменная для хранения}
temp: TRow;
.....
теперь менять можно "сразу" как "простые" числа:
---------
temp:=matr[1];
matr[1]:=matr[2];
matr[2]:=temp;
Ответ отправил: Boriss (статус: Профессор)
Отправлен: 11.05.2005, 17:31
Отвечает: newinfo2005
Здравствуйте, ger!
Просто меяй значения местами.
Напиши такую функцию всего пару строчек
а сам я не успеваю написать огранич трафик.
Ответ отправил: newinfo2005 (статус: 2-ой класс)
Отправлен: 11.05.2005, 20:25

Вопрос № 20657
Подскажите как сделать
дана строка , как поменять все рядом стоящии слова (т.е. 1-ое со 2-м, 3-е с 4-м и т.д.)
словом считается всё что отделено пробелами
Заранее Благодарю
Отправлен: 11.05.2005, 01:32
Вопрос задал: ger (статус: Посетитель)
Всего ответов отправлено: 1
Отвечает: olegin
Здравствуйте, ger!
Прилагаю набросок програмы, в программе нет контроля на несколько подряд идущих пробелов. А на маленьких примерах вроде работает правильно

Приложение:

Ответ отправил: olegin (статус: 1-ый класс)
Отправлен: 11.05.2005, 09:39

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

© 2001-2005, RusFAQ.ru, Россия, Москва. Все права защищены.
Идея, дизайн, программирование, авторское право: Калашников О.А.

Яндекс

http://subscribe.ru/
http://subscribe.ru/feedback/		 Подписан адрес:
Код этой рассылки: comp.soft.prog.pasplus		 Отписаться
В избранное