Задание 1. Перерисовываем блок-схему и рядом записываем программу на школьном алгоритмическом языке. Сделайте вывод, что делает данная программа?
Задание 2. Перерисовываем кусок блок-схемы, к нему пишем кусок программы соответствующий ей. Сделайте вывод, что делает написанная вами программа данная программа?
Задание 3. По программе на школьном алгоритмическом языке, постройте блок схему. Сделайте вывод, что делает написанная вами программа данная программа?
алг площадь
нач
цел а,h, вещ пл
вывод «Введите сторону а»
ввод а
вывод «Введите высоту h»
ввод h
пл:= а*h/2
вывод "Площадь =", пл
кон
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
Writeln(Range(1,100).Select(i->sin(i)*cos(i)).Where(x->x<>0).Average)
end.
Тестовое решение:
-0.00136006072493969
2. А вот так учат писать это же школьные учителя:
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
m:array[1..100] of real;
i,k:integer;
s:real;
begin
s:=0;
k:=0;
for i:=1 to 100 do begin
m[i]:=sin(i)*cos(i);
if m[i]<>0 then begin
s:=s+m[i];
k:=k+1
end
end;
Writeln(s/k)
end.
Тестовое решение:
-0.00136006072493969