Интересное задание

[MaTpOc12]

помогите плиз

Опрeделить дату cледующего дня +дeнь недели (с использовaнием перечисляемого типa)


2.Составить программу вычисения:

S=1-1/3+1/5-1/7+..+1/17-1/19

[Niro]

Чем же эти задания интересны?

s:=1; k:=1; 
repeat
k:=k+2;
i:=i+1;
if (i mod 2)=0 then s:=s+1/k else s:=s-1/k;
until  k=19;

код не проверял, но должен быть правельный

[Stilet]

Ай-яй-яй... Нехороший какой Гугл... Забанил автора...
http://www.programmersforum.ru/showthread.php?t=51493
Но Яндекс добрый:http://yandex.ua/yandsearch?date=&te...d=110&lr=20554
А Автор ленивый.

[XeruH]

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

Чем же эти задания интересны?
код не проверял, но должен быть правельный

s:=1; k:=1;
i:=0;
repeat
k:=k+2;
i:=i+1;
if (i mod 2)=0 then s:=s+1/k else s:=s-1/k;
until  k=19;

А то мало ли как она инициализируется.