ответ:
184 с.
хочу представить вам работы учащихся 5-х классов "сказки о компьютере". старались и написали более 50 интересных сказок. читая сказки и рассказы детей, я была поражена, насколько у них развито воображение и фантазия.
предлагаю вам, уважаемые читатели, ознакомится с их творчеством!
показать полностью
просмотр содержимого документа
«сказки о компьютере»
сказка «теремок»
стоял в поле теремок. он не низок, не высок. проходил мимо системный блок и решил спросить: «кто в тереме живёт? » тишина… значит, буду жить я. стал жить-поживать и систему расширять. вот и гости подоспели: монитор, клавиатура и модем. теперь их четверо живёт. мышка вовремя пришла, в интернет их отвела.
и стали они жить-поживать, и в интернете гулять.
сказка «компьютерный теремок»
купили девочке насте компьютер. его домой, распаковали все коробки, а как собрать – не знают. решили вызвать мастера. оставили все части компьютера на столе и ушли.
вот подобралась мышка к системному блоку:
тук-тук-тук, кто в тереме-теремочке живёт?
я – процессор – устройство для обработки информации!
я – оперативная память – храню все программы и данные во время работы компьютера!
а ты кто?
я – компьютерная мышь – устройство для ввода графической информации.
подключайся к нам, такой нам нужен!
тук-тук-тук, кто в тереме-теремочке живёт?
я – процессор – устройство для обработки информации!
я – оперативная память – храню все программы и данные во время работы компьютера!
я – компьютерная мышь – устройство для ввода графической информации.
а ты кто?
а я – монитор – устройство визуального отображения информации. можно к вам подключиться?
Листинг 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.
