Lybava13322131
21.07.2021 15:16

Unit Unit1; interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls,
ComCtrls;
type
TForm1 = class(TForm)
DataSource1: TDataSource;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
Table1: TTable;
ListBox1: TListBox;
ListBox2: TListBox;
Button1: TButton;
RadioGroup1: TRadioGroup;
Button2: TButton;
RadioGroup2: TRadioGroup;
Button3: TButton;
Button4: TButton;
Edit1: TEdit;
ListBox3: TLstBox;
Button5: TButton;
btnWorkStart: TButton;
btnWorkBreak: TButton;
Button6: TButton;
Panel1: TPanel;
ProgressBar1: TProgressBar;
Label1: TLabel;
lblWorkPercent: TLabel;
lblSum: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure btnWorkStartClick(Sender: TObject);
procedure btnWorkBreakClick(Sender: TObject);
procedure Button6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
WorkBreak:boolean;
implementation
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
btnWorkStart.Enabled:=true;
btnWorkBreak.Enabled:=false;
WorkBreak:=false;
end;

procedure TForm1.btnWorkStartClick(Sender: TObject);
label 10;
var s:real;
begin
btnWorkStart.Enabled:=false;
btnWorkBreak.Enabled:=true;
s:=0;
// Это будет работать только при числе записей, меньших 3276

ProgressBar1.Max:=Table1.RecordCount;
Table1.DisableControls;
Table1.First;
while not Table1.Eof do begin
s:=s+Table1.FieldByName ('Salary').AsFloat;
//Без этого вызова не будет обрабатываться нажатие копки btnWorkBreak
Application.ProcessMessages;
// Это будет работать только при числе записей, меньших 3276
ProgressBar1.Position:=Table1.RecNo;
lblWorkPercent.Caption:=
IntToStr(Round(ProgressBar1.Position/ProgressBar1.Max*100))+'%';
if WorkBreak then goto 10;
Table1.Next;
end;
lblSum.Caption:='Èòîãî' + FloatToStr(s);
10:
Table1.EnableControls;
ProgressBar1.Position:=0;
lblWorkPercent.Caption:='';
btnWorkStart.Enabled:=true;
btnWorkBreak.Enabled:=false;
WorkBreak:=false;
end;

procedure TForm1.btnWorkBreakClick(Sender: TObject);
begin
WorkBreak:=true;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
close;
end;

end.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Gimngazia
31.07.2021 06:03

В Питоне импорт осуществляется командой import. При этом существует несколько импорта. Рассмотрим работу с модулем на примере math. Итак,

>>> import math

Ничего не произошло. Однако в глобальной области видимости появилось имя math. Если до импорта вы упомянули бы имя math, то возникла бы ошибка NameError. Теперь же

>>> math <module 'math' (built-in)>

В программе завелся объект math, относящийся к классу module.

Чтобы увидеть перечень функций, входящих в этот модуль, воспользуемся встроенной в Python функцией dir(), передав ей в качестве аргумента имя модуля:

>>> dir(math) ['__doc__', '__loader__', '__name__', '__package__', '__spec__', 'acos', 'acosh', 'asin', 'asinh', 'atan', 'atan2', 'atanh', 'ceil', 'copysign', 'cos', 'cosh', 'degrees', 'e', 'erf', 'erfc', 'exp', 'expm1', 'fabs', 'factorial', 'floor', 'fmod', 'frexp', 'fsum', 'gamma', 'gcd', 'hypot', 'inf', 'isclose', 'isfinite', 'isinf', 'isnan', 'ldexp', 'lgamma', 'log', 'log10', 'log1p', 'log2', 'modf', 'nan', 'pi', 'pow', 'radians', 'sin', 'sinh', 'sqrt', 'tan', 'tanh', 'trunc']

Проигнорируем имена с двойными подчеркиваниями. Все остальное – имена функций и констант (переменных, которые не меняют своих значений), включенных в модуль math. Чтобы вызвать функцию из модуля, надо впереди написать имя модуля, поставить точку, далее указать имя функции, после чего в скобках передать аргументы, если они требуются. Например, чтобы вызвать функцию pow из math, надо написать так:

>>> math.pow(2, 2) 4.0

0,0(0 оценок)
Ответ:
Dragolord
23.07.2020 21:31

ответ:

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

компоненты таблицы word

границы и линии сетки

таблица word имеет границу в виде тонкой сплошной линии черного цвета. граница сохраняется при печати, а в случае удаления границы линии сетки отображаются на экране. удаление (восстановление) границы осуществляется командой формат / границы и заливка, на вкладке границы или командой внешние границы на панели инструментов. линии сетки не печатаются, но их тоже можно удалить (восстановить) командой таблица / скрыть сетку (отображать сетку).

компоненты таблицы word -

рис. 1.

концевые символы

символ ячейки и символ строки являются непечатаемыми знаками, которые обозначают, соответственно, конец ячейки и конец строки.

поля ячеек и интервалы между ячейками

поля ячеек – это расстояние между границей ячейки и текстом внутри ячейки. интервалы между ячейками и поля ячеек можно изменить в окне диалога параметры таблицы, которое можно вызвать командой таблица / свойства таблицы, нажав кнопку параметры.

маркер перемещения и маркер изменения размера таблицы

маркер перемещения таблицы служит для перемещения таблицы в другое место страницы, а маркер изменения размера таблицы позволяет изменить размер таблицы.

создание таблицы word

создание новой таблицы word можно осуществить тремя способами:

нарисовать;

вставить;

создание на основе существующих данных (текста, чисел).

1. нарисовать (создать) таблицу word

для создания таблицы word со сложным заголовком целесообразно использовать способ нарисовать таблицу. для этого надо выбрать команду таблица / нарисовать таблицу. появится плавающая панель инструментов таблицы и границы. с этой панели можно создать таблицу и осуществить ее редактирование и форматирование.

панель инструментов таблицы и границы

рис. 2.

2. вставка (создание) таблицы word

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

вставка таблицы word -

рис. 3.

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

3. преобразование существующего текста в таблицу

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

объяснение:

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота