Технический форум
Вернуться   Технический форум > Программирование > Форум программистов


Ответ
 
Опции темы Опции просмотра
Старый 12.07.2011, 15:34   #1 (permalink)
Толик 2446
Новичок
 
Регистрация: 11.07.2011
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите довести до ума программу

Ввести матрицу A розмером NxN и вычеслить разницу элементов тех строк, в которых на главной диагонали стоят ноли. Найти минимальный елемент этой матрицы. Program matrica;
uses crt;
var
a:array[1..n,1..n]of integer;
I,j,rasn,min,rez:integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
write('ввод елементов =', i,',',j,'':4);
readln(a[i,j]);
end;
for i:=1 to n do
begin
rez:=a[1,1];
for i:=1 to n do
for j:=1 to n do
if a[i,j]>rez
then
rez:=a[i,j]>rez
then
min:= rez;
End;
for i:=1 to n do
begin
if a[i,i]=0
then
for j:=1 to n do
rizn:=rizn-a[i,j];
writeln('rizn=',rizn);
End;
Writeln('min=',min);
readln;end.
Толик 2446 вне форума   Ответить с цитированием

Старый 12.07.2011, 15:34
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Сейчас лучшее, что можно сделать - это прочитать схожие посты

TDA 2003. Помогите довести до ума
Помогите отладить программу
Как довести в ASUS A6B00R память до 2Гб?
Помогите написать программу

Старый 13.07.2011, 21:06   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 25,988
Сказал(а) спасибо: 277
Поблагодарили 500 раз(а) в 160 сообщениях
Репутация: 90029
По умолчанию

Ну, если я правильно понял задание, то как-то так:
Код:
const
 n=4;
var
 a:array[1..n,1..n] of integer;
 I,j,razn,min:integer;
begin
 for i:=1 to n do
  for j:=1 to n do
   begin
    write('a[', i,',',j,']= ');
    readln(a[i,j]);
   end;
 min:=a[1,1];
 for i:=1 to n do
  for j:=1 to n do
   if a[i,j]<min then min:=a[i,j];
 for i:=1 to n do
  if a[i,i]=0 then
   begin
    razn:=a[i,1];
    for j:=2 to n do
     razn:=razn-a[i,j];
    writeln('razn[',i,']= ',razn);
   end;
 Writeln('min= ',min);
 readln;
end.
А вообще - программа Ваша, сударь, составлена запредельно неряшливо, ошибок - просто море. Поймите: компьютер не понимает "общих соображений", ему нужна абсолютная точность и выверенность каждого значка. А у Вас?
1. Uses CRT. Прекрасно - но где в программе хоть одна команда модуля CRT? Я таковых не увидел.
2. Где константа n? Откуда, интересно, компьютер возьмет данные о размере массивов?
3. В одном месте rasn, в другом - razn, в третьем - rizn. И Вы полагаете, что компьютер поймет, что программист "имеет в виду" одно и то же? И не надейтесь!
4. rez:=a[i,j]>rez - это еще что за ахинея?
5. Ищете минимум, а знак неравенства поставлен так, что находите максимум.
И т.д., и т.п., и проч.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 14:45.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.