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

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

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

> матрица nXn, сумма
Svetlana
сообщение 5.06.2009 19:59
Сообщение #1


Новичок
*

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

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


Привет всем:-) Помогите пожалуйста отредактировать программу...Она должна определять минимум среди сумм элементов,расположенных на линиях,параллельных побочной диагонали. Свои старания приложила :-)
Ошибка: после условия в цикле while не заходит в цикл for.


Прикрепленные файлы
Прикрепленный файл  код.txt ( 917 байт ) Кол-во скачиваний: 209
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
Lapp
сообщение 5.06.2009 20:34
Сообщение #2


Уникум
*******

Группа: Модераторы
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

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


Цитата(Svetlana @ 5.06.2009 20:59) *
Ошибка: после условия в цикле while не заходит в цикл for.
Ошибка у тебя немного раньше на самом деле. В строке s[k]:=0 переменная k равна 0, а массив s определен, начиная с 1. Ты включи range check (по крайней мере на этапе отладки), иначе рискуешь потратить годы на отыскание ошибок. И разберись, что делать с s[0] - либо массив расширять, либо k начинать с 1..
Я немного причесал твою прогу. Было бы здорово, если бы ты продолжала держать ее правильно отформатированной.. smile.gif

program Project2;
{$APPTYPE CONSOLE}

uses
SysUtils;
const
n=5;
var
matr:array [1..n,1..n] of integer;
s,c: array [1..n] of integer;
i,j,k,min1,min2:integer;

begin
//randomize;
for i:=1 to n do begin
for j:=1 to n do begin
matr[i,j]:=random(100)-20;
write (matr[i,j]:3,' ')
end;
writeln;
end;

k:=0;
s[k]:=0;
while k<=n do begin
for i:=1 to n+1-i-k do begin j:=n+1-i-k;
s[k]:=s[k]+matr[i,j];
end;
writeln('s[',k,']=',s[k]);
k:=k+1
end;

k:=1;
c[k]:=0;
while k<=n-1 do begin
for i:=n downto n+1-i+k do begin
j:=n+1-i+k;
c[k]:=c[k]+matr[i,j]
end;
writeln('c[',k,']=',c[k]);
k:=k+1
end;

min1:=s[1]; for k:=1 to n do if s[k]<min1 then min1:=s[k];
min2:=c[1]; for k:=2 to n-1 do if c[k]<min1 then min1:=c[k];
if min1<min2 then writeln ('min_summa=',min1)
else writeln ('min_summa=',min2);
readln
end.


И клади код прямо в мессадж - зачем прикреплять? Только тэги пользуй (меню CODE)


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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


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

 



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