Aleksei Biketova
?>

Вопросы 1. Назовите основные части окна Lazarus. 2. Из каких вкладок состоит палитра компонентов? 3. Опишите функции кнопок, расположенные на странице Standard? 4. На какие виды можно разделить кнопки по выполняемой функции? 5. Какие события определяются нажатием на мышь? б. Как реализуется выбор фона и цвета текста компонентов Labe1 и Edit? 7. В чем отличие окна IDE Lazarus от окна процедурного языка?​

Информатика

Ответы

ilyanedelev
Рассматривая различные прямоугольники и подсчитывая в них число поворотов P, можно прийти к следующему алгоритму. Для любого натурального k получаем:
P=\begin {cases} 0, \ min(M,N)=1 
\\4k-2, \ min(M,N)=2k, \, M=N, \, k \in \mathbb N \\ 4k-1, \ 
min(M,N)=2k, \, M \neq N, \, k \in \mathbb N \\ 4k, \ min(M,N)=2k+1, \,
 M=N, \, k \in \mathbb N \\ 4k+1, \ min(M,N)=2k+1, \, M \neq N, \, k 
\in \mathbb N \\ \end {cases}

var
  M, N, k, mn, P: integer;
  f: Text;

begin
  Assign(f, 'input.txt');
  Reset(f);
  Readln(f, M, N);
  Close(f);
  if M < N then mn := M else mn := N;
  if mn = 1 then P := 0
  else begin
    k := mn div 2;
    if mn mod 2 = 0 then
      if M = N then P := 4 * k - 2
      else P := 4 * k - 1
    else
    if M = N then P := 4 * k
    else P := 4 * k + 1
  end;
  Assign(f, 'output.txt');
  Rewrite(f);
  Writeln(f, P);
  Close(f)
end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Вопросы 1. Назовите основные части окна Lazarus. 2. Из каких вкладок состоит палитра компонентов? 3. Опишите функции кнопок, расположенные на странице Standard? 4. На какие виды можно разделить кнопки по выполняемой функции? 5. Какие события определяются нажатием на мышь? б. Как реализуется выбор фона и цвета текста компонентов Labe1 и Edit? 7. В чем отличие окна IDE Lazarus от окна процедурного языка?​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

alex-kuzora4411
Alyona1692
nst-33764
zaha98
ОвчинниковаТатьяна
pryvalovo48
akuznecov8989
st7307
smook0695
yurick2071488
olesya-kwas
priemni451
ielienakozlova696
kassel1b
ValerevnaRustam1072