Электро́нная по́чта (англ. email, e-mail, от англ. electronic mail) — технология и служба по пересылке и получению электронных сообщений (называемых «письма», «электронные письма» или «сообщения») между пользователями компьютерной сети (в том числе — Интернета)[1].
Электронная почта по составу элементов и принципу работы практически повторяет систему обычной (бумажной) почты, заимствуя как термины (почта, письмо, конверт, вложение, ящик, доставка и другие), так и характерные особенности — простоту использования, задержки передачи сообщений, достаточную надёжность и в то же время отсутствие гарантии доставки.
Достоинствами электронной почты являются: легко воспринимаемые и запоминаемые человеком адреса видаимя_пользователя@имя_домена (например, [email protected]); возможность передачи как простого текста, так и форматированного, а также произвольных файлов (текстовые документы, медиафайлы, программы, архивы, и т. д.[1]); независимость серверов (в общем случае они обращаются друг к другу непосредственно); достаточно высокая надёжность доставки сообщения; простота использования человеком и программами, высокая скорость передачи сообщений.
Недостатки электронной почты: наличие такого явления, как спам (массовые рекламные и вирусные рассылки); возможные задержки доставки сообщения (до нескольких суток); ограничения на размер одного сообщения и на общий размер сообщений в почтовом ящике (персональные для пользователей).
В настоящее время любой начинающий пользователь может завести свой бесплатный электронный почтовый ящик, достаточно зарегистрироваться на одном из интернет-порталов.
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type TForm1 = class(TForm) Memo1: TMemo; Edit1: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);var i, j, n: integer; min, max, var_bl: real; a: array of array of real;beginMemo1.Clear;if TryStrToInt(Edit1.Text,n) thenbegin n:=StrToInt(Edit1.Text); if n<1 then begin Application.MessageBox('Ошибка!','',0); Exit; end; SetLength(a,n); for i:= 0 to n-1 do SetLength(a[i],n); Randomize; for i:= 0 to n-1 do for j:=0 to n-1 do a[i,j]:=Random(100)-30; min:= a[0,0]; max:= a[0,0]; for i:= 0 to n-1 do begin for j:=0 to n-1 do begin //Memo1.Text:=Memo1.Text+FloatToStrF(a[i,j],ffFixed,5,3)+' ';//Форматированный вывод Memo1.Text:=Memo1.Text+FloatToStr(a[i,j])+' '; //обычный вывод end; Memo1.Lines.Add(''); end;
for i:= 0 to n-1 do for j:=0 to n-1 do begin if(a[i,j]<min) then min:=a[i,j]; if(a[i,j]>max) then max:=a[i,j]; end; Memo1.Lines.Add('Min='+FloatToStr(min)+', Max='+FloatToStr(max)); for i:= 0 to n-1 do for j:=0 to n-1 do begin if(a[i,j]=min) then begin a[i,j]:= max; Continue; end; if(a[i,j]=max) then a[i,j]:=min; end; Memo1.Lines.Add(''); Memo1.Lines.Add(''); Memo1.Lines.Add('Были поменяны наименьший и наибольший элемент массива'); Memo1.Lines.Add(''); for i:= 0 to n-1 do begin for j:=0 to n-1 do begin //Memo1.Text:=Memo1.Text+FloatToStrF(a[i,j],ffFixed,5,3)+' ';//Форматированный вывод Memo1.Text:=Memo1.Text+FloatToStr(a[i,j])+' '; //обычный вывод end; Memo1.Lines.Add(''); end; Memo1.Lines.Add(''); Memo1.Lines.Add(''); Memo1.Lines.Add(''); Memo1.Lines.Add('');end else Application.MessageBox('Ошибка!','',0);end;
end.