RusFAQ.ru: Программирование на языке Pascal
| Информационный Канал Subscribe.Ru |
RusFAQ.ru: Программирование на языке Pascal
Выпуск № 219
от 21.12.2003, 10:40
| Администратор: Имя: Sensey URL: Информационный ресурс ICQ: 105679124 Украина, Харьков |
О рассылке: Задано вопросов: 378 Отправлено ответов: 1342 Активность: 355.0 %
|
| Список экспертов, ответы которых опубликованы в данном выпуске |
| Trubler Статус: Начальный Общий рейтинг: 106.15 [Подробней >>] |
fC Статус: Профессиональный Общий рейтинг: 151 URL: Тезка :) [Подробней >>] |
Boriss Статус: Опытный Общий рейтинг: 148.08 URL: Программирование на Паскале [Подробней >>] |
| Vitally Статус: Доверительный Общий рейтинг: 161.53 [Подробней >>] |
| Краткий перечень вопросов |
Вопрос № 374. Хееееееееелп!!!Спасите,помогите!Извиняюсь,конечно и осознаю что это пахнет жуткой наглостью,но тем н... (ответов: 4)
Вопросов: 1, ответов: 4
| Вопрос № 374 |
Хееееееееелп!!!Спасите,помогите!Извиняюсь,конечно и осознаю что это
пахнет жуткой наглостью,но тем не менее:Эта прога(Турбо паскаль) должна в новую
матрицу на место каждого элемента записывать сумму элементов старой
матрицы(mat),находящихся справа и сверху от этого элемента,что-то
вроде если mat:1 2 3 ,то в новой матрицы вместо 1[1,1]будет:2+3=5.
3 2 1 и т.д.
2 2 2 Спасииииите пожааааалуйста.Она работать не
хочет...
program lab7;
uses crt;
const
n=4;
var
mat:array[1..n,1..n] of integer; {это изначальная матрица}
sum:array[1..n,1..n] of integer; {это будущая матрица}
h1,h2,i,j,k1,k2,ki:integer;
begin
clrscr;
writeln('Input',n,'string by',n,'collumn'); {ввод матрицы}
for i:=1 to n do
begin
for j:=1 to n do
read(mat[i,j]);
readln;
end;
writeln;
for h1:=1 to ki do
for h2:=ki to n do
sum[k1,k2]:=sum[k1,k2]+mat[h1,h2]; {нахождение суммы и запись в}
writeln; {новую матрицу}
for i:=1 to n do
begin {вывод новой матрицы}
for j:=1 to n do
write(sum[k1,k2]:4);
writeln;
end;
end.
Вопрос отправлен: 18.12.2003, 00:05
Отправитель: Фабиан
[Следующий вопрос >>] [Список вопросов]
Отвечает Trubler
Здравствуйте, Фабиан!
Приведенный код прекрасно компилируется.
У меня версия TurboPascal 7.1
Ответ отправлен: 20.12.2003, 21:14
Отправитель: Trubler
Отвечает fC
Здравствуйте, Фабиан!
Если осознаешь, то зачем пишешь-то?
Ответ отправлен: 18.12.2003, 00:25
Отправитель: fC
Отвечает Boriss
Здравствуйте, Фабиан!
И это писалось, чтобы работало? Чего стоит FOR h1:=1 to ki, когда ki не определено (в 7-м = 0)!
И задание не совсем ясно - что писать в элемент sum[1,n] - у него нет никого ни справа ни выше.
По этой причине я его тоже учитываю. Если что не так, сам исправь
В приложении код работающий (дотошно сам проверь! ДОЛЖНО БЫТЬ ПРАВИЛЬНО):
Приложение:
Ответ отправлен: 18.12.2003, 17:54
Отправитель: Boriss
Отвечает Vitally
Здравствуй, Фабиан!
Прости, я не понял что конкретно нужно. Поэтому только покажу тебе твои ошибки:
1)Ты используешь переменную Ki - а она у тебя пустая! Сначала нужно присвоить ей значение (например Ki:=4);
2)Тоже самое с K1 и К2(ты не присвоил им никакого значения)! Кроме того, они у тебя не меняются в цикле!!
for h1:=1 to ki do
for h2:=ki to n do
sum[k1,k2]:=sum[k1,k2]+mat[h1,h2];
h1 и h2 - меняются, а К1 и К2 - нет. Т.е. Sum[k1,k2]-постоянно обращается к одному и тому же элементу. (например Sum[1,1]);
3)for j:=1 to n do
write(sum[k1,k2]:4) - Тоже самое! Вместо K1,K2 должно быть i,j!
Если ты четко изложишь задание, я напишу тебе программу или, если хочешь писать сам, скажу что надо изменить!
Удачи.
Ответ отправлен: 18.12.2003, 14:29
Отправитель: Vitally
|
Форма отправки вопроса |
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.
(C) 2002-2003 Команда RusFAQ.ru.
| Вопрос и дополнение |
Ваш вопрос:
Приложение (если необходимо):
Получить ответов:
| Выбор рассылки |
| Программисту Assembler (25) C / C++ (17) Perl (4) Builder / Delphi (20) Pascal (22) Basic / VBA (3) Java / JavaScript (5) PHP (12) Криптография (9) WinAPI (12) |
Пользователю Windows 95/98/Me (36) Windows NT/2000/XP (53) "Железо" (25) Поиск информации (19) |
Администратору Windows NT/2000/XP (27) Linux / Unix (14) |
Юристу Гражданское право (12) Семейное право (8) Трудовое право (9) КоАП (8) |
Отправить вопрос всем экспертам выбранной рассылки.
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование
Профессиональная WEB-Студия B.I.T.
| http://subscribe.ru/
E-mail: ask@subscribe.ru |
Отписаться
Убрать рекламу |
| В избранное | ||
