//Я слабо себе представляю как выглядит блок-схема с подпрограммой, так что выкладываю два варианта
//Pascal ABC.NET v3.1 сборка 1219
Var s:real; i,j,d1,d2,r1,r2,k:integer;
function Simple(d,r:integer):real;
begin
Simple:=sqr(d)*(r-1130)*9.8/(18*0.6);
end;
begin
k:=0;
read(d1,d2,r1,r2);
for i:=d1 to d2 do
begin
for j:=r1 to r2 do
begin
s:=s+Simple(i,j);
inc(k);
end;
end;
s:=s/k;
writeln(s);
end.
Пример ввода:
1
5
2
4
Пример вывода:
-11249.1296296296
Во время работы с компьютером
"Звенелки" "Будилки"
колокольчик будильник
звонок(дверной) настенные часы
колокол музыка у соседей))
треугольник(музыкальный) телефонный звонок
домофон петух
Задача 1). Для исполнителя Чертежник в этой задаче надо подставить вместо x значение a, аналогично для y подставляем значение b
получим:
<span>(X+2, Y+9)
</span>Задача 2). Аналогично для второго задания<span>. Только надо начинать со второй команды, чтобы вернуться в точку (1,1).
переведи в точку(4,2)
переведи в точку(7,6)
переведи в точку (1,1)
</span>
Задача 3)<span>. </span>В этой задаче надо просто подставить числовые значения из левого столбца таблицы в правый столбец:<span>
(x+1,y+4)
(x+6,y+8)
(x+2,y-5)
Задача 4). В этой задаче необходимо сдвигать перо чертежника по вертикали и по горизонтали.
сдвинь на вектор(0,9)</span>
<span>сдвинь на вектор(9,0)</span>
<span><span>сдвинь на вектор(0,9)</span>
</span>