•Правильный (равносторонний, или равноугольный) треугольник — это правильный многоугольник с тремя сторонами, простейший из правильных многоугольников. Все стороны правильного треугольника равны между собой, все углы также равны и составляют 60°. В равностороннем треугольнике высота является и биссектрисой, и медианой. •св-ва квадрата: Длины всех сторон равны. Все углы квадрата прямые. Диагонали квадрата равны, взаимно перпендикулярны, точкой пересечения делятся пополам и являются биссектрисами углов. •св-ва шестиугольника: Сторона равна радиусу описанной окружности: . Радиус описанной окружности является биссектрисой угла правильного шестиугольника. Все углы правильного шестиугольника равны . • круг всегда равен 360 градусам • Чтобы найти длину окружности, нужно либо диаметр окружности умножить на π≈3,14
Запись 5 строк в файл }
procedure TForm1.Button1Click(Sender: TObject);
var outfile: TextFile;
begin
AssignFile(outfile, 'outfile.txt')
;Rewrite(outfile);
writeln(outfile, 'Привет из Delphi');
writeln(outfile, 'Моя программа работает, и выводит '
+'данный текст, чтобы доказать это...');
writeln(outfile, '3. Треться строка');
writeln(outfile, '234 четвертая');
writeln(outfile, 'Пятая строка');
CloseFile(outfile);
end;
// вывод на экран точнее в мемо или лист бокс
procedure TForm1.Button2Click(Sender: TObject);
begin
// выводим в мемо
Memo1.Lines.LoadFromFile('outfile.txt');
// либо в лист бокс как тебе лучше
ListBox1.Items.LoadFromFile('outfile.txt');
end;
// кнопка для закрытия
procedure TForm1.Button3Click(Sender: TObject);
begin
Close;
end;
// событие onClose
procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
if MessageDlg('Вы точно хотите выйти?', mtConfirmation, mbOkCancel,0)= mrOk then begin
CloseAction:= caFree;
end
else begin
CloseAction:= caNone;
end;
end;
ЗДЕСЬ!
outfile.txt - это ваш файл(может создаваться автоматически
Объяснение:
•св-ва квадрата: Длины всех сторон равны.
Все углы квадрата прямые.
Диагонали квадрата равны, взаимно перпендикулярны, точкой пересечения делятся пополам и являются биссектрисами углов.
•св-ва шестиугольника:
Сторона равна радиусу описанной окружности: .
Радиус описанной окружности является биссектрисой угла правильного шестиугольника.
Все углы правильного шестиугольника равны .
• круг всегда равен 360 градусам
• Чтобы найти длину окружности, нужно либо диаметр окружности умножить на π≈3,14