Помощь - Поиск - Пользователи - Календарь
Полная версия: Описание строк
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Juhn
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 я и сам знаю что означает, а вот со всеми остальными строками, командами и кодами у меня проблемка. Я с этими командами вообще не знаком. Может кто - то помочь в этом ? Описать строчки программы. Очень надеюсь на Вас. Заранее спасибо.
compiler
Код
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.  //конец программы

так?
Juhn
Вау, отлично, всё так, большой респект smile.gif good.gif good.gif good.gif
min:=high(integer);//максимальное значение типа-диапазона - только может тут минимальное, а не максимальное ?
compiler
Цитата(Juhn @ 24.12.2007 19:21) *
только может тут минимальное, а не максимальное ?
нет, low -- минимальное.(хотя чесно сказать, я никогда их не использовал для перечисляемых типов.. это ж не кросплатформенный код на Си))
как я понял, в программе изначально присваювается максимальное значение, чтоб при первом сравнение (a[i,j] < min) вернулся true..
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.