Консультация № 179918
12.09.2010, 21:16
0.00 руб.
0 1 0
Уважаемые эксперты , прошу вас записать следующую программу в псевдокоде или блок схеме :
Program Prog;

var a: array [0..20] of real;
i,d1,d2: integer;

function Element(i:integer):real;
begin
Element:=i/(sin(pi/12*i));
end;

procedure Sum;
var b: real;
begin
b:=0;
for i:= d1+1 to d2-1 do
begin
if a[i]>0 then
b:=b+a[i];
end;
writeln('Сумма положительных элементов: ',b:5:4);
end;

begin
write('Диапазон значений от ');
read(d1);
write('до ');
readln(d2);
write('Массив: ');
for i:= d1+1 to d2-1 do
begin
a[i]:=Element(i);
write(a[i]:5:4,' ');
end;
Sum;
end.

Обсуждение

давно
Академик
320937
2216
14.09.2010, 08:31
общий
Roland Deschain:
Добрый день! Можете выложить задание к самой программе?
Форма ответа