Проєкт «Калькулятор» Створіть поле для калькулятора розміром 300 на 400,текстове поле для введення, що має відступи від бічних меж по 20 пікселів, висоту 30 пікселей.

Проєкт «Калькулятор»
from tkinter import*
tk=Tk()
tk.geometry("300x400") tk.titel("Калькулятор")
ent=Entry() ent.place(x=20,y=20,width=260,height=30)

Проєкт «Калькулятор»
Вирівнювання в текстовому полі за до властивості justify має такі значення: Left
Right
Center
ent=Entry(justify=“right”)

Проєкт «Калькулятор»
Зробити, щоб текст в полі вирівнювався за правим краєм і мав розмір 16 пікселей

Проєкт «Калькулятор»
ent=Entry( justify="right", font="Arial 16")

Проєкт «Калькулятор»
Створюємо кнопки розміром 40x40 та кнопок «C» і «=» 100x40, надаємо їм ім’я:
Кнопка з цифрами –В0, В1,В2... Кнопка «.» - Point
Кнопка «C» - BC
Кнопка «=» - Equal
Кнопка «+» - Plus Кнопка «-» - Minus Кнопка «*» - Mult Кнопка «/» - Div

Проєкт «Калькулятор»
BC=Button(text="C",font="16")
BC.pack() BC.place(x=20,y=70,width=100,height=40)
Equal=Button(text="=",font="16") Equal.pack() Equal.place(x=160,y=70,width=100,height=40)

Проєкт «Калькулятор»
Створюємо другий ряд квадратних кнопок

Проєкт «Калькулятор»
Принцип роботи калькулятора:
1. Коли натискаємо кнопку з цифрою або крапкою, то до текстового напису додається цифра або крапка.
2. Коли натискаємо на знак операції, запам’ятовуємо його, а також число, що міститься в текстовому полі. Текстове поле очищується.
3. Вводимо друге число.
4. Коли натискаємо кнопку «=» з першим і другим числом виконується операція відповідно до того, який знак ми за запам’ятали на кроці 2.

Проєкт «Калькулятор»
Для додавання цифри (тексту) в текстовому полі використовують метод insert(index, srt)
index – номер символу, перед яким додають текст. Для додавання тексу справа замість Index записують END.
str – текс, який необхідно вставити.

Проєкт «Калькулятор»
Прописуємо функцію додавання (зчеплення) цифр
def B7_cick(): ent.insert(END,"7")

Проєкт «Калькулятор»

Проєкт «Калькулятор»
Прописати функцію додавання (зчеплення) до кожної цифри В8, В9, В6...

Задание №1

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var
  b: array of real;
  i, n,pn: integer;
  ps,op,min:real;
begin
  write('Количество элементов массива :');readln(n);
  SetLength(b, n); // задаем длину массива
  min:=MaxReal; op:=1;
  writeln('Исходный массив:');
  for i:=0 to n-1 do begin
    repeat
      write('Введите ',i+1,' число из ',n,' : ');readln(b[i]);
    until (b[i]<=5) and (b[i]>=-20);
    if (b[i]>0) and (round(b[i]/2)*2=b[i]) then begin
      ps +=b[i];pn+=1;
      end
    else if b[i]<0 then  op *=b[i];
    if b[i]<min then min:=b[i];
  end;
  writeln;
  writeln('сумма положительных и четных элементов массива :',ps:0:3);
  writeln('Среднее положительных и четных элементов массива :',ps/pn:0:3);
  writeln('Произведение отрицательных элементов массива :',op:0:3);
  writeln('Минимальный элемент массива :',min);
  writeln('Отсортированный массив по убыванию :');
  b.sorteddescending.println;
end.

Тестовое решение:
Количество элементов массива :8
Исходный массив:
Введите 1 число из 8 : -18.5
Введите 2 число из 8 : 3.4
Введите 3 число из 8 : 4
Введите 4 число из 8 : -12
Введите 5 число из 8 : 2.2
Введите 6 число из 8 : -6.3
Введите 7 число из 8 : 2
Введите 8 число из 8 : 5

сумма положительных и четных элементов массива :6.000
Среднее положительных и четных элементов массива :3.000
Произведение отрицательных элементов массива :-1398.600
Минимальный элемент массива :-18.5
Отсортированный массив по убыванию :
5 4 3.4 2.2 2 -6.3 -12 -18.5

Задание №2
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var
  a: array of integer;
  i,n ,max,h,k: integer;
begin
  write('Количество элементов массива :');readln(n);
  write('Число H :');readln(h);
  write('Число K :');readln(k);
  SetLength(a, n); // задаем длину массива
  max:=-MaxInt;
  writeln('Исходный массив:');
  for i:=0 to n-1 do
    repeat
      write('Введите ',i+1,' число из ',n,' : ');readln(a[i]);
      if a[i]>max then max:=a[i];
    until (a[i]<=7) and (a[i]>=-12);
  for i:=0 to n-1 do begin 
    if (a[i]>h) and (a[i]mod k=0) then
      writeln('Число ', a[i],' больше ',h,' и кратно ',k);
  end;
  writeln('Максимальный элемент массива :',max);
  writeln('Отсортированный массив по возрастанию :');
  a.sorted.println;
end.

Тестовое решение:
Количество элементов массива :8
Число H :-8
Число K :2
Исходный массив:
Введите 1 число из 8 : -10
Введите 2 число из 8 : 6
Введите 3 число из 8 : -4
Введите 4 число из 8 : 3
Введите 5 число из 8 : 1
Введите 6 число из 8 : -1
Введите 7 число из 8 : -12
Введите 8 число из 8 : 4
Число 6 больше -8 и кратно 2
Число -4 больше -8 и кратно 2
Число 4 больше -8 и кратно 2
Максимальный элемент массива :6
Отсортированный массив по возрастанию :
-12 -10 -4 -1 1 3 4 6

Сумма всех четных чисел от 1 до 200 - это на самом деле сумма чисел
2+4+6+...+198+200.

1. Самый короткий вариант

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  Writeln(Range(2,200,2).Sum)
end.

Результат:
10100

2. Более длинный и более "школьный" вариант

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var s:=0;
  var i:=2;
  while i<=200 do begin
    s:=s+i;
    i:=i+2
    end;
  Writeln(s)
end.

3. Совсем "тупой школьный" вариант (решение "в лоб")

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
var
  i,s:integer;
begin
  s:=0;
  for i:=1 to 200 do
    if i mod 2 =0 then s:=s+i;
  Writeln(s)
end.

4. Улучшенный "школьный" вариант

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
var
  i,s:integer;
begin
  s:=0;
  for i:=1 to 100 do s:=s+2*i;
  Writeln(s)
end.