По центру: когда абзац нужно сделать чётко по середине.
По ширине: добавляются автоматически между словами где надо пробелы, чтобы отступ от полей и до текста с обеих сторон был чётко одинаковен.
Виды информации по способу восприятия человеком: зрительная, слуховая, обонятельная, вкусовая, осязательная. Иллюстративный материал - фотка 1. Свойства информации (какой она должна быть): 1. Объективность; 2. Достоверность; 3. Полнота; 4. Актуальность; 5. Полезность; 6. Понятность. На схеме (фотка 2) все разжевано. Плюс фотка 3 - полная классификация информации по ее видам.
<span>MS Windows 2003
<span>MS Windows Me</span>
<span>MacOS X 10.7
<span>Ubuntu 10.10
</span></span></span>А OS: <span>DR-DOS 7.0, <span>OS/2 Warp 3.0, <span>BeOS 5.1 слишком старые</span></span></span>
Просто добавить условие, что делить на 0 нельзя.
Delphi/Lazarus
------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
a, b, c, d, x1, x2: real;
begin
a := StrToFloat(Edit1.Text);
b := StrToFloat(Edit2.Text);
c := StrToFloat(Edit3.Text);
if a <> 0 then
begin
d := sqr(b) - 4 * a * c;
if (d > 0) then
begin
x1 := (-b+sqrt(d))/(2*a);
x2 := (-b-sqrt(d))/(2*a);
Label1.Caption := 'x1 = ' + FloatToStr(x1);
Label2.Caption := 'x2 = ' + FloatToStr(x2);
end
else
if d = 0 then
begin
x1:=-b /(2*a);
x2:=x1;
Label1.Caption := 'x1 = ' + FloatToStr(x1);
Label2.Caption := 'x2 = ' + FloatToStr(x2);
end
else
if d < 0 then
ShowMessage('Корней нет');
end
else
if (a = 0) and (b = 0) and (c = 0) then
ShowMessage('X = любое.')
else
if (a = 0) and (b = 0) then
ShowMessage('Решений нет.')
else
if (a = 0) then
begin
x1 := (-c)/b;
Label1.Caption := 'x = ' + FloatToStr(x1);
Label2.Caption := '';
end;
end;
