tatu

Уважаемые программисты, убедительная просьба помогите написать программу в паскале. А то я пропустила эту тему и ничего не понимаю.
Сформировать файл последовательности пятнадцати чисел, в котором каждый i-й компонент определяется по формуле y=sin(i*pi/8) если i<=8 и y=4*cos(i*pi*1)/5 если i>8. Определить количество положительных и отрицательных значений, содержащихся в сформированном файле.
Пожалуйства помогите!!!

Urian

program Frml;
var F : Text; //Ваш файл
i : byte;
y : real;
CountOfPos, CountOfNeg : byte; //Переменные содержат количество положительных
//и отрицательных чисел
begin
assign(F, 'MyFile.out');
rewrite(F);
CountOfPos := 0;
CountOfNeg := 0;
for i := 1 to 8 do
begin
y := sin(i*pi/8);
writeln(F, y);
if y > 0 then inc(CountOfPos)
else inc(CountOfNeg)
end;

for i := 9 to 15 do
begin
y := 4 * cos(i*pi*1)/5;
writeln(F, y);
if y > 0 then inc(CountOfPos)
else inc(CountOfNeg)
end;

close(F);
writeln(CountOfPos);
writeln(CountOfNeg);
end.




Вот то же самое, но по-другому:
program Frml;
var F : Text; //Ваш файл
i : byte;
y : real;
CountOfPos, CountOfNeg : byte; //Переменные содержат количество положительных
//и отрицательных чисел
begin
assign(F, 'MyFile1.out');
rewrite(F);
CountOfPos := 0;
CountOfNeg := 0;
for i := 1 to 15 do
begin
if i <= 8 then y := sin(i*pi/8)
else y := 4 * cos (i*pi*1)/5;
writeln(F, y);
if y > 0 then inc(CountOfPos)
else inc(CountOfNeg)
end;


close(F);
writeln(CountOfPos);
writeln(CountOfNeg);
end.


Отличия второго кода: добавлена сравнение с нулём при пересчёте и тем самым укорочен код(вместо двух циклов - один)
Если что ещё нужно - KolosovViri@yadex.ru

MooNDeaR

Только нулевые элементы считаются отрицательными в этом коде

Markiz

Написать подпрограмму f(x) ,которая вычисляет значение по следующей формуле:f(x)=x3-sin(x).Построить таблицу значений функции для отрезка [a,b] с шагом h.
Помогите написать программу, заранее благодарен