Автор: Пользователь скрыл имя, 16 Марта 2012 в 22:51, контрольная работа
Служебные программы Windows предназначены для обслуживания компонентов компьютера и оптимизации его работы. Своевременное обслуживание повышает надежность компьютера, а оптимизация его – быстродействие. Наилучшая настройка для одних задач не всегда самой лучшей для других. С помощью служебных программ компьютер настраивают так, чтобы его производительность была наивысшей для какой-то конкретной задачи, - это и есть оптимизация.
7. Уплотнение диска начинается после щелчка на кнопке Уплотнить сейчас.
Программа Системный монитор.
В состав операционной системы входит служебная программа Системный монитор с помощью которой можно анализировать работу компьютера и программного обеспечения с целью проведения оптимальных настроек.
Программа Системный монитор относится к категории служебных программ и из Главного меню запускается командой Пуск > Программы > Стандартные > Служебные программы > Системный монитор. Программа работает в фоновом режиме, т.е. одновременно с работой других программ и отображает на мониторе наглядно информацию о состоянии различных устройств компьютера.
2.26. Напечатайте заданную последовательность символов, заменяя каждую точку многоточием.
Program ex;
uses crt;
var s:string;
i,k:integer;
begin
clrscr;
k:=0;
repeat
writeln('Введите последовательность символов, содержащую точки:');
readln(s);
for i:=1 to length(s)do
if s[i]='.'then
begin
k:=1;
break;
end;
until k=1;
for i:=length(s) downto 1 do
if s[i]='.' then insert('..',s,i);
write(s);
readln
end.
3.27. Пусть задано десять русских имен. Проверьте, все ли эти имена написаны с прописной буквы; если нет, то исправьте ситуацию.
Program ex;
uses crt;
const
small = [' '..'п'];
var
mas : array[1..10] of string;
i : integer;
buf : string;
begin
clrscr;
for i:=1 to 10 do
begin
write('введите ',i,'-е имя --> ');
readln(mas[i]);
end;
for i:=1 to 10 do
begin
buf := mas[i];
if buf[1] in small
then
buf[1] := chr(ord(buf[1])-32);
mas[i] := buf;
end;
writeln('результат');
for i:=1 to 10 do
writeln(mas[i]);
readkey;
end.
4.28. Задан массив А(12). Определить среднее геометрическое положительных элементов массива.
Program ex;
uses crt;
var f:array[1..100] of real;
n,i,k:byte;
s:real;
n:=0;s:=1;
for i:=1 to k do
if f[i]>0 then
begin
n:=n+1;
s:=s*f[i];
end;
if n=0 then write('Положительных нет!')
else write('Среднее геометрическое=',exp(ln(s)/n):
еnd.
5.29. Упорядочить по возрастанию элементы каждой строки матрицы V(15, 10). Отпечатать полученную матрицу в общепринятом виде.
Program ex;
uses crt;
const n=15;
m=10;
var i,j,k,z:byte;
tmp:integer;
a:array[1..n,1..m]of integer;
Begin
Clrscr;
Randomize;
For i:=1 to n do
For j:=1 to m do
a[i,j]:=random(50);
For i:=1 to n do
begin
For j:=1 to m do
write(a[i,j]:15);
writeln;
end;
writeln;
For i:=1 to n do
begin
z:=1;
While z>0 do
begin
z:=0;
k:=m;
For j:=2 to k do
If a[i,j]<a[i,j-1] then
begin
tmp:=a[i,j];
a[i,j]:=a[i,j-1];
a[i,j-1]:=tmp;
z:=1;
end;
k:=k-1;
end;
end;
For i:=1 to n do
begin
For j:=1 to m do
write(a[i,j]:10);
writeln;
end;
End.