Помогите написать на паскале.

[AmadeoRache]

Не могу дать ума заданиям практическим.
- Найти сумму -
1) S = x/2 - x/4 + x/6 -... (10 слагаемых)
2) Определить количество целых решений неравенства: х2-12х+27>0 на ин¬тервале [0;0].

[lukmus]

Не могу дать ума заданиям практическим.
- Найти сумму -
1) S = x/2 - x/4 + x/6 -... (10 слагаемых)
2) Определить количество целых решений неравенства: х2-12х+27>0 на ин¬тервале [0;0].
s=0
for i:=1 до 10
begin
s:=s+x/(i*2);
end;
синтаксис не помню точно
А во втором у тебя косяк с заданием, нужно интервал поправить
но в общем виде если интервал [m;n], то выглядит примерно так
kolvo:=0
for x:=m to n do if x^2-12*x+27>0 then kolvo:=kolvo+1;

[DeaD_MoroZ]

вообще это должно быть в разделе для студентов(;

[AmadeoRache]

Спасибо за помощь . Дайте пожалуйста ссылку в этот раздел.

[Linkus]

s:=s+x/(i*2);

немного не так... там же то плюс то минус....

x/2 - x/4 + x/6 -...

надо то ли добавить домножение на -1 в степени i то ли ещё как то :)

[AmadeoRache]

s:=s+x/(i*2);

немного не так... там же то плюс то минус....



надо то ли добавить домножение на -1 в степени i то ли ещё как то :)
Да по моему нужно для этого брать в нечётную степерь

[DeaD_MoroZ]

Спасибо за помощь . Дайте пожалуйста ссылку в этот раздел.
мда, вот ты обленился... Студентам с лабораторными сюда (http://forum.antichat.ru/thread122076.html) или Напишу "Лабы" и другие программы ( http://forum.antichat.ru/thread162384.html)