Регистрация Спросить otvet5GPT
dashakomp2005
13.02.2023 04:21
Информатика
Есть ответ 👍

Створити програму для обчислення значення периметра довільного трикутника(pascal)​

267
431
Посмотреть ответы 1

Ответы на вопрос:

allaberenowa68p0b0d1
allaberenowa68p0b0d1
4,4(87 оценок)
Магический квадрат с n сторон const   mn = 16; var   p: boolean; procedure swap(var a, b: integer); var t: integer; begin t : = a; a : = b; b : = t end; procedure createmagic(n: integer); var i, j, k, s, b, r, m: integer; a: array[1.. mn, 1.. mn] of integer; begin   p : = true;   if odd(n) then begin i : = 1; j : = succ(n div 2); for k : = 1 to sqr(n) do begin a[i, j] : = k; if k mod n = 0 then inc(i) else begin dec(i); inc(j); if i = 0 then i : = n; if j > n then j : = 1 end end;   end else if n mod 4 = 0 then begin k : = 1; for i : = 1 to n do for j : = 1 to n do begin a[i, j] : = k; inc(k) end; j : = 2; m : = n div 2; for i : = 1 to m do for k : = 1 to m div 2 do begin if j = succ(m) then j : = 2 else if j = (m + 2) then j : = 1; s : = succ(n - i); b : = succ(n - j); swap(a[i, j], a[s, b]); swap(a[i, b], a[s, j]); inc(j, 2) end   end else if n < > 2 then begin k : = 1; for i : = 1 to n do for j : = 1 to n do begin a[i, j] : = k; inc(k) end;   r : = pred(n div 2) div 2; m : = n div 2; for i : = 1 to m do begin j : = i; for k : = 1 to r do begin if j > m then j : = 1; s : = succ(n - i); b : = succ(n - j); swap(a[i, j], a[s, b]); swap(a[i, b], a[s, j]); inc(j) end   end; i : = 1; for k : = 1 to m do begin if j > m then j : = 1; s : = succ(n - i); swap(a[i, j], a[s, j]); inc(i); inc(j)   end; i : = 1; j : = r + 2; for k : = 1 to m do begin if j > m then j : = 1; b : = succ(n - j); swap(a[i, j], a[i, b]); inc(i); inc(j) end   end   else p : = false; if p then begin for i : = 1 to n do begin for j : = 1 to n do write(a[i, j]: 4); writeln end end else writeln( 'do not exists' ) end; var   n: integer; begin writeln('n = '); readln(n);   createmagic(n); end.

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!

  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS