М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации

Проєкт «Калькулятор» Створіть поле для калькулятора розміром 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...

👇
Открыть все ответы
Ответ:
Julyash
Julyash
13.01.2023
Задача 1.
var
  f:Text;
  n,nmax,nmin:integer;
begin
  Assign(f,'input.txt'); Reset(f);
  nmax:=-32786; nmin:=32767; {границы представления integer}
  while not Eof(f) do begin
    Readln(f,n);
    if (n>0) and (n mod 2=0) then
      if nmax<n then nmax:=n
      else
        if nmin>n then nmin:=n
  end;
  Close(f);
  Assign(f,'output.txt'); Rewrite(f);
  Writeln(f,nmin,' ',nmax);
  Close(f)
end.

Задача 2.
const
  m=100; { максимальное количество чисел в файле }
var
  f:Text;
  i,j,n,k:integer;
  a:array[1..m] of integer;
begin
  { читаем данные из файла в массив }
  Assign(f,'input.txt'); Reset(f);
  i:=0;
  while not Eof(f) do begin Inc(i); Readln(f,a[i]) end;
  Close(f);
  n:=i;
  { сортируем массив по возрастанию методом пузырька }
  for i := 1 to n-1 do
    for j := 1 to n-i do
      if a[j] > a[j+1] then
      begin k := a[j]; a[j] := a[j+1]; a[j+1] := k end;
  { заполняем файл из массива }
  Assign(f,'output.txt'); Rewrite(f);
  for i:=1 to n do Writeln(f,a[i]);
  Close(f)
end.

Вложение: пример файла input.txt
4,8(50 оценок)
Ответ:
ahmadieva05
ahmadieva05
13.01.2023
{Напишите программу, которая находит минимальное и максимальное
среди чётных положительных чисел, записанных в файле,
и выводит результат в другой файл.}
var f:text;
  min, max,a :integer;
  find:boolean;{есть/нет числа удовлетворяющие условию}
begin
 assign(f,'dan.txt'); reset(f);
 min:=0; max:=0;
 find:=false;
 while not eof(f) do
 begin
  read(f,a);
  if not find and (a>0) and (a mod 2=0) then
  begin
   min:=a; find:=true;
  end
  else
  if find and (a>0) and (a mod 2=0) and (min>a) then
   min:=a;

  if (a>0) and (a mod 2=0) and (max<a) then
   max:=a;
 end;
 close(f);
 assign(f,'res.txt');
 rewrite(f);
 if max=0 then writeln(f,'чётных положительных чисел нет')
  else
   writeln(f,'min среди чётных положительных чисел =',min, chr(13),
      'max среди чётных положительных чисел нет',max);
  close(f);
end.
4,7(37 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ