массивы
Подскажите как делать эту задачку.
Составить программу, подсчитывающую произведение положительных элементов массива G из 15 чисел. Значения элементов массива рассчитать по формуле tgS, где S номер элемента массива.
А ещё кто может, пожалуйста, пришлите блок-схемку
Буду очень благодарен
мой E-mail: [email]fedotovm@sama.ru[/email]
Составить программу, подсчитывающую произведение положительных элементов массива G из 15 чисел. Значения элементов массива рассчитать по формуле tgS, где S номер элемента массива.
А ещё кто может, пожалуйста, пришлите блок-схемку
Буду очень благодарен
мой E-mail: [email]fedotovm@sama.ru[/email]
Массив как таковой нам не нужен - лишняя трата памяти, тактов, да и программа чуть больше будет. Что-то типа:
for (s=1;s<=15;s++)
{
if (tg(s)>0) res=res*tg(S)
}
Вот, собственно, и все! Если Паскуаль не считает тангенсы, то отношение синуса к косинусу посчитать обязан.
Ну и res должен инициализироваться единицей -- умножаем все-таки. Ну, может, еще один момент всплыть по условию - градусы или радианы...
for (s=1;s<=15;s++)
{
if (tg(s)>0) res=res*tg(S)
}
Вот, собственно, и все! Если Паскуаль не считает тангенсы, то отношение синуса к косинусу посчитать обязан.
Ну и res должен инициализироваться единицей -- умножаем все-таки. Ну, может, еще один момент всплыть по условию - градусы или радианы...
uses crt;
var g:array [1..15] of real;
res:real;
BEGIN
clrscr;
for i:=1 to 15 do
read(a);
res:=1;
for i:=1 to 15 do
begin
if a>0 then
res:=res*a;
end;
write(res:0:4);
END.
var g:array [1..15] of real;
res:real;
BEGIN
clrscr;
for i:=1 to 15 do
read(a);
res:=1;
for i:=1 to 15 do
begin
if a>0 then
res:=res*a;
end;
write(res:0:4);
END.
забыл!
вместо res:=res*a, конечно, res:=res*( sin(a)/cos(a))
вместо res:=res*a, конечно, res:=res*( sin(a)/cos(a))
естественно i не забудь объявить
Цитата:
Originally posted by quakersasha
uses crt;
var g:array [1..15] of real;
res:real;
BEGIN
clrscr;
...
END.
uses crt;
var g:array [1..15] of real;
res:real;
BEGIN
clrscr;
...
END.
Да, и на кой тебе CRT?
Цитата:
Originally posted by Sanila_san
Да, и на кой тебе CRT?
Да, и на кой тебе CRT?
Здесь же русским яз. написано: clrscr :)))