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

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

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

 
 Ответить  Открыть новую тему 
> Описание строк, описание кодов программы
сообщение
Сообщение #1


Новичок
*

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

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


program chislo;
const
N = 20;
var
i,j,k,m,min: LongInt;
a: array[1..N,1..N] of LongInt;
begin
for i:=1 to N do
for j:=1 to N do
a[i,j]:=i*i*i+j*j*j;
min:=high(integer);
for i:=1 to N do
for j:=1 to N do
for k:=1 to N do
for m:=1 to N do
if (a[i,j] = a[k,m]) and (i <> k) and (j <> m) and
(i <> m) and (j <> k) and (a[i,j] < min) then
begin
min:=a[i,j];
writeln(a[i,j],'=',i,'(3)+',j,'(3)=',k,'(3)+',m,'(3)');
end;
readln;
end.

Нужно описать каждую строчку программы, что какая команда выполняет. Конечно begin и end я и сам знаю что означает, а вот со всеми остальными строками, командами и кодами у меня проблемка. Я с этими командами вообще не знаком. Может кто - то помочь в этом ? Описать строчки программы. Очень надеюсь на Вас. Заранее спасибо.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Человек
*****

Группа: Пользователи
Сообщений: 1 050
Пол: Мужской
Реальное имя: Станислав

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


Код
program chislo; //название программы
const   //раздел констант
  N = 20;   //константа)
var //раздел переменных
  i,j,k,m,min: LongInt;   //переменные типа LongInt
  a: array[1..N,1..N] of LongInt;   //массив элементовLongInt
begin   //начало тела программы
  for i:=1 to N do   //цикл
    for j:=1 to N do   //цикл
      a[i,j]:=i*i*i+j*j*j;   //заполнение массива
  min:=high(integer);//максимальное значение типа-диапазона
  for i:=1 to N do   //цикл
    for j:=1 to N do   //цикл
      for k:=1 to N do   //цикл
        for m:=1 to N do   //цикл
          if (a[i,j] = a[k,m]) and (i <> k) and (j <> m) and   //проверка условия
             (i <> m) and (j <> k) and (a[i,j] < min) then  
            begin   //начало блока
              min:=a[i,j];   //операция присвоения
              writeln(a[i,j],'=',i,'(3)+',j,'(3)=',k,'(3)+',m,'(3)');   //вывод
            end;   //конец блока
readln;//чтение
end.  //конец программы

так?


--------------------
Спасибо!
Удачи!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

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

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


Вау, отлично, всё так, большой респект smile.gif good.gif good.gif good.gif
min:=high(integer);//максимальное значение типа-диапазона - только может тут минимальное, а не максимальное ?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Человек
*****

Группа: Пользователи
Сообщений: 1 050
Пол: Мужской
Реальное имя: Станислав

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


Цитата(Juhn @ 24.12.2007 19:21) *
только может тут минимальное, а не максимальное ?
нет, low -- минимальное.(хотя чесно сказать, я никогда их не использовал для перечисляемых типов.. это ж не кросплатформенный код на Си))
как я понял, в программе изначально присваювается максимальное значение, чтоб при первом сравнение (a[i,j] < min) вернулся true..


--------------------
Спасибо!
Удачи!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





- Текстовая версия 24.11.2020 2:26
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name