//PascalABC.NET
//Версия 3.3.5, сборка 1650
begin
writeln(' x y');
for var i:=-10 to 10 do writeln(i:2,' ',i*i:3);
end.
Основные принципы работы жесткого диска мало изменились со дня его создания. Устройство винчестера очень похоже на обыкновенный проигрыватель грампластинок. Только под корпусом может быть несколько пластин, насаженных на общую ось, и головки могут считывать информацию сразу с обеих сторон каждой пластины. Скорость вращения пластин (у некоторых моделей она доходит до 15000 оборотов в минуту) постоянна и является одной из основных характеристик. Головка перемещается вдоль пластины на некотором фиксированном расстоянии от поверхности. Чем меньше это расстояние, тем больше точность считывания информации, и тем больше может быть плотность записи информации. Взглянув на накопитель на жестком диске, вы увидите только прочный металлический корпус. Он полностью герметичен и защищает дисковод от частичек пыли, которые при попадании в узкий зазор между головкой и поверхностью диска могут повредить чувствительный магнитный слой и вывести диск из строя. Кроме того, корпус экранирует накопитель от электромагнитных помех. Внутри корпуса находятся все механизмы и некоторые электронные узлы. Механизмы - это сами диски, на которых хранится информация, головки, которые записывают и считывают информацию с дисков, а также двигатели, приводящие все это в движение. Диск представляет собой круглую пластину с очень ровной поверхностью чаще из алюминия, реже - из керамики или стекла, покрытую тонким ферромагнитным слоем. Диски изготовлены. Во многих накопителях используется слой оксида железа (которым покрывается обычная магнитная лента), но новейшие модели жестких дисков работают со слоем кобальта толщиной порядка десяти микрон. Такое покрытие более прочно и, кроме того, позволяет значительно увеличить плотность записи. Технология его нанесения близка к той, которая используется при производстве интегральных микросхем.
Znanija.ru online, Steam , Adme
№1
var a, b, c, i:integer;
y, x :real;
begin
x:=-2;
while x<>2 do
begin
writeln (x, ' ', (exp(x) + exp(-x))/2-x*x*x*x);
x:=x+0.25;
end;
<span>end.
Первый номер, чтобы не было нарушения.
№2</span>
var a, b, c, i:integer;
y, x :real;
begin
x:=0;
while x<>4 do
begin
writeln (x, ' ', sqrt(x*x+5*x+3));
x:=x+0.25;
end;
end.
<em><u>P.S. Надеюсь на благодарность и лучший ответ.</u></em>
// Вот тебе первая задача у меня QBasic не хочет с русскими буквами дружить поэтому слово алгоритмизация написано транслитом algoritmizacia
