IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Помогите с задачей с циклом For i:=N downto 1 do, вроде легкая задачка)
Lutan
сообщение 16.01.2008 19:00
Сообщение #1


Гость






Элементы заданного массива B(N) переписать в новый массив A(N) в обратном порядке
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
Айра
сообщение 27.01.2008 11:41
Сообщение #2


Профи
****

Группа: Пользователи
Сообщений: 731
Пол: Женский

Репутация: -  25  +


for i:=10 downto 1 do
begin
b[i]:=a[10-i+1]; //присваивание правильное
writeln('b[i]',b[i]); //а вывод нет.. у тебя массив В выводится с конца, а тогда похоже,
//что заполнен он не правильно
end;


for i:=10 downto 1 do
begin
b[i]:=a[i]; //а здесь ты заполняешь его неправильно.. он получается такой же как А
writeln('b[i]',b[i]); //а на выводе "обманываешься"))
end;

сделай в обоих вариантах вывод массива В "вне" цикла с присваиванием и посмотри, где правильно, а где нет..
и еще.. если тебе нужно видеть номер выводимого элемента, а не красивую буковку i smile.gif, то надо делать так
writeln('b[',i,']',b[i]); //тогда и ошибки увидишь


Сообщение отредактировано: Айра - 27.01.2008 11:43
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 2.07.2025 17:14
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"