Const k=10;
type arr=array[1..k] of integer;
procedure p1(var x:arr);
var i:integer;
begin
for i:=1 to k do
begin
x[i]:=random(30)-15;
write(x[i]:3);
end;
writeln;
end;
function f1(var x:arr):integer;
var i,s:integer;
begin
s:=0;
for i:=1 to k do
if x[i]<0 then s:=s+x[i]*x[i];
f1:=s;
end;
var a,b:arr; m,n:integer; x:real;
begin
writeln('a:');
p1(a);
writeln('b:');
p1(b);
m:=f1(a);
n:=f1(b);
writeln('m = ',m,' n = ',n);
x:=m/(n-m);
writeln('x = ',x:6:4);
end.
Пример:
a:
<span>-13 7-11 11 -3 4 13 3 -1 2
b:
8 -2 5 10 9 8 -8 12 7-13
m = 300 n = 237
x = -4.7619</span>
Параграф называется "Понятие как форма мышления "
В понятии отражается совокупность существенных признаков отдельного объекта или класса однородных объектов .
Анализ, синтез , сравнение , абстрагирование и обобщение являются основными логическими приемами формирования понятий
Определение понятие - это перечисление всех существенных признаков объекта (класса однородных объектов ) в связном предложении . Каждый из признаков , входящих в определение , должен быть необходимым , а все вместе - достаточны для установления данного понятия
Var a,b:longint;beginreadln(a,b);writeln(a+b);writeln(a-b);writeln(a*b);
end.
Настольные, ноутбуки, нетибуки(кстати я на нем сейчас пишу), планшетные, игровые приставки, карманные, настольные миникомпьютеры.
Настольные - это большие. Состав: монитор, клавиатура, системный блок. Можно подключить принтер, колонки, сканеры и т.д.
Ноутбуки - плоские, переносные. Все это вместе и монитор и клавиатура и системный блок.
Нетбуки - маленькие ноутбуки. Дешевее чем ноутбук, легче.
Планшетные - имеют сенсорный экран. очень маленькие.
Карманные - как планшетные. Но можно носить даже в карманах.
Игровые приставки - как компьютер но можно подключить к телевизору.
=)=)=)!!!
Проснулся
Встал с кровати
Пошел в туалет
Зашёл вк
Поставил чай и сделал бутеров
Затем собрал портфель
После пошёл покушал
Одел школьную форму и пошёл на остановку
Сел и поехал
