Паскаль, последняя помощь

Lamik · 21.01.2014, 23:14

Вновь требуется помощь, надеюсь последняя

Вычислить сумму значений y<0,2, если y=cosx, x=0, 1, ... 5, а также их количество.

Спасибо.

Николай_С · 22.01.2014, 00:20

А почему последняя?
Замуж выходите, или обучение заканчиваете?
Владимир Игоревичь скучать без Вас будет... :'(

Vladimir_S · 22.01.2014, 11:01

Цитата:

Сообщение от Николай_С

Владимир Игоревичь скучать без Вас будет... :'(

Уже рыдает.

Цитата:

Сообщение от Lamik

Вычислить сумму значений y<0,2, если y=cosx, x=0, 1, ... 5, а также их количество.

Это безумно трудно, почти невозможно. Но я справился:

Код:

Var
 i,n:Byte;
 y,Sum:Real;
Begin
 Sum:=0;
 n:=0;
 for i:=0 to 5 do
  begin
   y:=Cos(i);
   if y<0.2 then
    begin
     Inc(n);
     Sum:=Sum+y;
    end;
   end;
 Writeln('Sum= ',Sum:0:5);
 Writeln('n= ',n);
 Readln
End.

21.01.2014, 23:14	#1 (permalink)
Lamik Новичок Регистрация: 20.01.2014 Сообщений: 5 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Паскаль, последняя помощь Вновь требуется помощь, надеюсь последняя Вычислить сумму значений y<0,2, если y=cosx, x=0, 1, ... 5, а также их количество. Спасибо.

22.01.2014, 00:20	#2 (permalink)
Николай_С Радиоинженер Регистрация: 25.09.2012 Адрес: г.Дзержинск Нижегородской обл. Сообщений: 25,308 Записей в дневнике: 7 Сказал(а) спасибо: 292 Поблагодарили 219 раз(а) в 70 сообщениях Репутация: 110185	А почему последняя? Замуж выходите, или обучение заканчиваете? Владимир Игоревичь скучать без Вас будет... :'(

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070