Какие виды повреждений дисков Вам известны и как они возникают?

Если вы имели ввиду компакт диски то они делятся на;

Физические;

Химические;

Износ.

Повреждения жёсткого диска делятся на;

Выход из строя платы контролера;

Внешние повреждения;

Физиологические повреждения;

Выход из строя блока магнитной головки.

Начну с компакт дисков.

Физические повреждения- это как правило, царапины и сколы. Они не позволяют лучу добираться до нужной вам информационного слоя, преломляя его в неположенном месте.

Химические повреждения- образуются, когда компакт диск подвергается химическому воздействию, либо воздействию высокой температуры. В этом случае повреждается слой поликарбоната, что так же мешает считыванию информации. Деформированный диск может разорваться в читающем приводе (в том случае если вы сами засуните повреждённый диск в рабочий привод), что приведет к порче привода или всего оборудования.

Износ - не все вещи долговечны, так же как и компакт диски. Со временем информационный слой просто приходит в негодность, так как в процессе использования и хранения дорожки теряют нужную форму.

Что касается жёстких дисков.

Выход из строя платы контролера. В случае сбоя электропитания из строя может выйти из строя плата электроники, микросхемы управления двигателя и звуковой катушки. В этом случае для восстановления жёсткого диска нужно заменить плату контролера.

Физические повреждения-. Могут быть механические повреждения разъемов, корпуса, шпиндельного двигателя, магнитной головки на поверхности дисков, царапин на магнитном слое дисков.

Внешнее повреждение, достаточно легко поддаются ремонту.

Выход из строя блока магнитной головки. Причиной данной поломки является внешнее механическое воздействие, в основном это падение или удары, а так же перегрев или загрязнение магнитных головок.

Задача 1:

Imports System
Module MainModule
    Sub Main()
        Dim a, b, h, S As Double
        Console.Write("a = ")
        a = Console.ReadLine()
        Console.Write("b = ")
        b = Console.ReadLine()
        Console.Write("h = ")
        h = Console.ReadLine()
        S = (a + b) / 2 * h
        Console.Write("S = ")
        Console.WriteLine(S)
        Console.ReadKey
    End Sub
End Module

Задача 2:

Imports System
Module MainModule
    Sub Main()
        Dim x, y As Double
        Console.Write("x = ")
        x = Console.ReadLine()
        Console.Write("y = ")
        y = Console.ReadLine()
        If (x < 0) And (y < 0) Then
            x = -x
            y = -y
        Else If (x < 0) Or (y < 0) Then
            x += 0.5
            y += 0.5
        Else If (x >= 0.5) And (x <= 2) And (y >= 0.5) And (y <= 2) Then
            x /= 10
            y /= 10
        End If
        Console.Write("x = ")
        Console.WriteLine(x)
        Console.Write("y = ")
         Console.WriteLine(y)
        Console.ReadKey
    End Sub
End Module

Проверено на Паскале АВС:

 

Program byalodenis;
uses crt;
const n=10;
var
  e:array[1..n] of integer;
  min,max,i: integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  writeln('Элементы массива:');
  randomize;
  e[1]:=random(100)-50;
  write (e[1]:5);
  max:=e[1];
  min:=e[1];
  for i:=2 to n do
    begin
      e[i]:=random(100)-50;
      write (e[i]:5);
      if e[i]>max then
        max:=e[i];
      if e[i]<min then
        min:=e[i];
    end;
  writeln();
  writeln('Сумма максимального и минимального элементов равна ',max+min);
end.