Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   Помогите написать на паскале. (https://forum.antichat.xyz/showthread.php?t=161616)

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

lukmus 06.12.2009 22:33
Цитата:
Сообщение от AmadeoRache
Не могу дать ума заданиям практическим.
- Найти сумму -
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 07.12.2009 10:34
вообще это должно быть в разделе для студентов(;

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

Linkus 10.12.2009 22:58
Код:
  s:=s+x/(i*2);
немного не так... там же то плюс то минус....

Цитата:
x/2 - x/4 + x/6 -...
надо то ли добавить домножение на -1 в степени i то ли ещё как то :)

AmadeoRache 10.12.2009 23:16
Цитата:
Сообщение от Linkus
Код:
  s:=s+x/(i*2);
немного не так... там же то плюс то минус....



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

DeaD_MoroZ 11.12.2009 05:13
Цитата:
Сообщение от AmadeoRache
Спасибо за помощь . Дайте пожалуйста ссылку в этот раздел.
мда, вот ты обленился... Студентам с лабораторными сюда или Напишу "Лабы" и другие программы


Время: 07:28