Кроссворд: «ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ КОМПЬЮТЕРА» 1. Последовательность команд, которую выполняет компьютер в процессе обработки, передачи и хранения данных для решения задач
2. Поименованная область внешней памяти
3. Область внешней памяти, которая содержит имена файлов и указание на начальный адрес их размещения на носителе
4. Информация, представленная в форме, пригодной для ее хранения, передачи и обработки с компьютера
5. Базовая система ввода/вывода, загрузчик ОС, модули ОС, командный процессор, драйверы устройств, утилиты - это операционной системы
6. Какого типа информация хранится в файле с расширением .bmp?
7. ... система - комплекс программ, управляющих локальными и распределительными ресурсами компьютера, файловой системой, обеспечивающих диалог с пользователем
8. Упаковка (сжатие) файла или группы файлов в один архивный файл с целью уменьшения их размера
9 Компьютерный ... - специально написанная вредоносная программа нанести ущерб данным на компьютере или вывести его из строя
10 Специалист, разрабатывающий программное обеспечение
11 Компьютерное ... - преступление, заключающееся в нелегальном копировании, использовании и распространении коммерческого программного обеспечения
12 Совокупность средств и правил взаимодействия человека и компьютера
13 Выводимый на экран список команд, которые можно задать компьютеру
14 Какое программное обеспечение предназначено для непосредственного решения задач пользователем?
DIM a(10) AS SINGLE, b(10) AS SINGLE, x(10) AS SINGLE
RANDOMIZE TIMER
FOR i = 1 TO 10
a(i) = 30 * RND - 15
NEXT i
FOR i = 1 TO 10
b(i) = 40 * RND - 20
NEXT i
CLS
PRINT "A", "B", "X"
FOR i = 1 TO 10
IF a(i) = 0 THEN
x(i) = 1E+10
ELSE
x(i) = b(i) / a(i)
END IF
PRINT a(i), b(i), x(i)
NEXT i
Тестовое решение:
A B X
-5.504717 19.41665 -3.527274
-5.233851 -11.24631 2.148764
-5.154725 2.927625 -.5679499
5.057724 -8.649354 -1.710128
-6.304109 -19.25289 3.054023
-1.920151 6.061134 -3.156593
-10.34241 17.10881 -1.654238
13.86053 .4965448 3.582438E-02
-4.931755 8.241055 -1.671019
8.120502 8.78438 1.081753
Листинг 1:
program sum_cubes;
(c) NaaMan}
function func(x: real): real;
begin
Result := 3*x*x + 3*sin(x);
end;
const
start = 0.0;
finish = 5.0;
step = 0.7;
var
sum, i: real;
n: integer;
begin
sum := 0;
n := 0;
i := start;
while i <= finish do begin
var y: real;
y := func(i);
writeln(i,' ', y:8:3);
if y > 0 then begin
sum := sum + power(y,3);
n := n + 1;
end;
i := i + step;
end;
writeln( 'Sum = ', sum:10:3, ' Count = ', n);
end.
Листинг 2:
program arr_sum_cou;
(c) NaaMan}
var
sum, n: integer;
begin
sum := 0;
n := 0;
var a := ArrRandomInteger(100, -40, 40);
foreach var i in a do
if i < 0 then
sum := sum + i
else
n := n + 1;
writeln('Array: ', a);
writeln( 'Sum = ', sum, ' Count = ', n);
end.
Листинг 3:
program arr_sum_cou;
(c) NaaMan}
var F: boolean;
begin
F := True;
var A := ArrRandomInteger(10, 1, 10);
var B := ArrRandomInteger(10, 1, 10);
writeln(A);
writeln(B);
for var i := 0 to 9 do
if A[i] = B[i] then begin
writeln('Item = ', i, ' Value = ', A[i]);
F := False;
end;
if F then
writeln('Совпадений нет.');
end.