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

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.

👇
Открыть все ответы
Ответ:
magicufoshowp08hm1
magicufoshowp08hm1
27.12.2020
#include "stdafx.h"
#include <stdio.h>
#include <windows.h>

int main()  
  {
    SetConsoleCP(1251);      
    SetConsoleOutputCP(1251);  
 
int const n=3;
int mas[n][n];
int sum1, sum2;
bool magik;

for (int i=0; i<n; i++)
    for (int j=0; j<n; j++)
         {
           printf("mas[%d][%d] = ", i+1, j+1);
           scanf("%d",&mas[ i ][ j ]);
         }

printf("\nВведенная матрица:\n");
     for (int i=0; i<n; i++)
        {
             for (int j=0; j<n; j++)
                       {
                          printf("%d  ",mas[ i ][ j ]);
                       }
             printf("\n");
         }

sum1=0;
sum2=0;

for (int i = 0; i<n; i++)
     {
            sum1 += mas[ i ][ i ];
            sum2 += mas[ i ][ n-1-i ];
      }

printf("Сумма главной диагонали = %d\n", sum1);
printf("Сумма побочной диагонали = %d\n", sum2);

magik = true;
for (int i=0; i<n; i++)
    {
        if (sum1==sum2)
             {
                 sum2=0;
                 for (int j=0; j<n; j++)
                    {
                        sum2 += mas[ i ][ j ];
                     }
              } else  { magik=false; break; }
     }

if (magik==true)
     {
           for (int i=0; i<n; i++)    
               {
                   if (sum1==sum2)
                        {
                           sum2=0;
                           for (int j=0; j<n; j++)
                               {
                                   sum2 += mas[ j ][ i ];
                               }
                         }
                        else  { magik=false; break; }
                 }
       }

if (magik==true)
    printf("\nМатрица является магическим квадратом\n");  
else
    printf("\nМатрица не является магическим квадратом\n");

system("pause");
return 0;
}
4,4(40 оценок)
Ответ:
vladimir00041
vladimir00041
27.12.2020

cd ~

mkdir folder1

cd folder1

touch file1

touch file2

touch file3

touch file4

tar cvf archive.tar *

mkdir ../folder2

cd ../folder2

touch new_file

cp ../folder1/archive.tar .

tar rvf archive.tar new_file

tar vf archive.tar --delete file3

tar vf archive.tar --list > list1

tar vf ../folder1/archive.tar --list > list2

diff list1 list2

#Разъединение выполнить не получится, потому что все файлы пустые, но если засовывать не пустые, то

split -b 10M archive.tar "part" # вместо 10M нужный размер

cat part* > joined_archive.tar

tar vf archive.tar --list

tar vf joined_archive.tar --list

tar czvf final_archive.tar archive.tar ../folder1/archive.tar joined_archive.tar

4,4(67 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ