Задані перший і другий елементи арифметичної прогресії. знайти n-й елемент прогресії. при обчисленнях використовувати макроси з передачею параметрів.
на с или с++

ответ:  на Python

оба задания делаются внутри одного кода. Первая часть квадратов рисуется по верхней границе, вторая часть - по нижней. Если нужно будет разделить на 2 программы - в тексте оставил комментарии что нужно будет убрать.    :)))

from tkinter import*

class Rec(Frame):

   def __init__(self):

       super().__init__()

       self.initUI()

   def initUI(self):

       #k =30

       #b = 20

       k=int(input('Длина стороны первого квадрата : '))

       b=int(input('Шаг изменения длинны стороны последующих квадратов :'))

       lt =0  

       a=k  # 'a' добавлена потому что обе части задания в одном коде

       self.master.title("1")

       self.pack(fill=BOTH, expand=1)

       canvas = Canvas(self, bg="white")

#  Этот кусок кода для 1 части задания

       for i in range(0,4):

         canvas.create_rectangle(lt, 0, lt+a, a, outline="#000")

         lt = lt +a

         a = a+b

#  Конец 1 части

#  Этот кусок кода для 2 части задания

       lt=0

       a =0

       while a*4 < 200:

         canvas.create_rectangle(lt, 300, lt+a, 300-a, outline="#000")

         lt = lt +a

         a = a+b  

#  Конец 2 части                

       canvas.pack(fill=BOTH, expand=1)

def main():

   root = Tk()

   ex = Rec()

   root.geometry("300x300")

   root.mainloop()

if __name__ == '__main__':

   main()

program test;

const

 N = 15;  {Число саженцев на 1 кв.м.}

 PI = 3.14; {Число Пи.}

var

 R : real;  {Радиус клумбы}

 l : real;  {Длина ограды}

 S : real; {Площадь клумбы}

 k : integer;{Число потребуемых саженцев}

begin

Write('Введите радиус клумбы  (в метрах): ');

ReadLn(R);

{Вычисляем длину окружности}

l := 2 * PI * R;

{Вычисляем площадь клумбы}

S := Pi * R * R;

{Вычисляем число саженцев для посадки}

k := Round(Int( S * N ));

{Печатаем округленный до бл. целого результат}

WriteLn('Нужно ', k, ' саженцев.');

WriteLn('Длина ограды - ', l:3:2, ' метров')

end.

Объяснение: