Информатика лабораторная работа номер 4

1. Корпус, блок-живлення, материнська плата, оперативна память, відеокарта, звукова-карта, жорсткий диск, дисковод, система охолоджування

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

3. Функціональна частина компютера, що призначенна для інтерпретації команд.

4. 1. Проінспектує задню частину корпусу системного блоку на наявність відеовиходів.

2. Знайдіть VGA-розєм на моніторі.

3. Візьміть відповідний VGA-кабель, який йде в комплекті з монітором, і підключіть перший його кінець в монітор, а другий — в комп'ютер.

4. В кожному компютері є USB-Port. У вільний роз'єм необхідно підключити кабель від клавіатури. Windows встановить необхідні драйвера і потім покаже повідомлення, що пристрій готовий до використання.

Объяснение:

Задача 1:

program HW1;

var a,b,c:integer;

begin

   write('Ведите три целых числа через пробел: '); readln(a,b,c);

   write('Числа, попадающие в отрезок [1,3]: ');

   if (a >= 1) and (a <= 3) then write(a, ' ');

   if (b >= 1) and (b <= 3) then write(b, ' ');

   if (c >= 1) and (c <= 3) then write(c, ' ');

end.

Задача 2:

program HW2;

var a,b:real;

var c:integer;

begin

   write('Ведите две стороны прямоугольника через пробел: '); readln(a,b);

   writeln('Что трубуется вычислить?');

   writeln('1) Площадь прямоугольника');

   writeln('2) Периметр прямоугольника');

   writeln('3) Диагональ прямоугольника');

   readln(c);

   if c = 1 then writeln('Площадь прямоугольника равна ', a*b:1:1)

   else if c = 2 then writeln('Периметр прямоугольника равна ', 2*(a+b):1:1)

   else if c = 3 then writeln('Диагональ прямоугольника равна ', sqrt(sqr(a)+sqr(b)):1:1)

   else writeln('Введёно некорректное значение.')

end.

Задача 3:

program HW3;

var a,i:integer;

begin

   a := 0;

   for i := 1 to 99 do

       begin

           if (i mod 2 ) <> 0 then a := a + i

       end;

   writeln('Cуммa ряда 1, 3, 5..99: ', a);

end.