Задания практического занятия Задание 1
Создать таблицу «Сводка о выполнении плана». Построить график и гистограмму по результатам расчетов.
Исходные данные представлены в таблице 2.
Переименуйте ярлычок Лист 2, присвоив ему имя «Выполнение плана».
Таблица 2
A B C D
1 Сводка о выполнении плана
2
3 Наименование План выпуска Фактически выпущено % выполнения плана
4 Филиал № 1 3465 3270 ?
5 Филиал № 2 4201 4587 ?
6 Филиал № 3 3490 2708 ?
7 Филиал № 4 1364 1480 ?
8 Филиал № 5 2795 3270 ?
9 Филиал № 6 5486 4587 ?
10 Филиал № 7 35187 2708 ?
11 Филиал № 8 2577 1480 ?
12 Всего: ? ?

Расчетные формулы:
% выполнения плана = Фактически выпущено/План выпуска;
Всего = сумма значений по каждой колонке.
Выполните текущее сохранение файла.

Червь  – программа, которая делает копии самой себя. Ее вред заключается в захламлении компьютера, из-за чего он начинает работать медленнее. Отличительной особенностью червя является то, что он не может стать частью другой безвредной программы.Троянская программа (троянский конь, троян)Троянская программа маскируется в других безвредных программах. До того момента как пользователь не запустит эту самую безвредную программу,  троян не несет никакой опасности. Тронская программа может нанести различный ущерб для компьютера. В основном трояны используются для кражи, изменения или удаления данных. Отличительной особенностью трояна является то, что  он не может самостоятельно размножаться.

Код Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 const n=100; type arr=array[1..n] of integer; var   a:arr;   skv:real;   i,k,l:integer; procedure print(s:string;a:arr;l:integer); var   i:integer; begin   writeln(s);   write('[');   for i:=1 to l-1 do write(a[i],', ');   writeln(a[l],']'); end; procedure sort(var a:arr;l:integer); var   i,j,t:integer; begin   for i:=1 to l-1 do     for j:=i to l do       if a[j]<a[i] then begin         t:=a[j];         a[j]:=a[i];         a[i]:=t;       end; end; begin   repeat     write('Количество элементов массива:');     readln(k);   until (k>0) and (k<101);   write('Введите массив:');   for i:=1 to k do     repeat       write('a[',i,']=');       readln(a[i]);     until (a[i]>-11) and (a[i]<11);   print('Оригинальный массив:',a,k);   l:=0;skv:=0.0;   for i:=1 to k do     if a[i]<0 then begin       a[i]:=sqr(a[i]);       skv:=skv+a[i];       l:=l+1;     end else a[i]:=i;   print('Полученный массив:',a,k);   sort(a,k);   print('отсортированный массив:',a,k);   writeln('Среднее арифметическое квадратов отрицательных чисел:',skv/l:0:4);   readln; end.