Люди, помогите сформировать файл последовательности двадцати чисел, в которой каждый i - й компонент определяется по формуле:
если i<=8 то y=sin(i*PI/8)
если i>8 то y=4cos(i(PI+1))/5
Полная версия: Файлы последовательного доступа
Ну, поскольку файлы с последовательным доступом - это текстовые файлы, делай так:
Var f: Text;
...
{ открываешь файл }
for i := 1 to 20 do
if i < 8 then writeln(f, sin(i*PI/8))
else writeln(f, 4*cos(i*(PI+1))/5);
{ закрываешь файл }
Значит, программа будет выглядеть так:
program l18;
Var
f: Text;
i: integer;
begin
assign(f,'d:\data.txt');
rewrite(f);
for i := 1 to 20 do
if i <= 8 then writeln(f, sin(i*PI/8))
else writeln(f, 4*cos(i*(PI+1))/5);
close(f);
end.
... еще Нужно определить количество отрицательных значений, содержащихся в сформированном файле...
Код
program l18;
Var
f: Text;
i: integer;
begin
assign(f,'d:\data.txt');
rewrite(f);
for i := 1 to 20 do
if i <= 8 then writeln(f, sin(i*PI/8))
else writeln(f, 4*cos(i*(PI+1))/5);
close(f);
end.
... еще Нужно определить количество отрицательных значений, содержащихся в сформированном файле...
Цитата
Нужно определить количество отрицательных значений, содержащихся в сформированном файле...
А задание обычно СРАЗУ дается полностью, а не меняется и не дополняется после каждого поста. 
sin(i*PI/8) и 4*cos(i*(PI+1))/5);
их как-то нужно принять за переменные(ую) и сравнить больше ли она чем ноль, нсли меньше то записать
....
их как-то нужно принять за переменные(ую) и сравнить больше ли она чем ноль, нсли меньше то записать
....
Цитата
их как-то нужно принять за переменные(ую) и сравнить больше ли она чем ноль, нсли меньше то записать
Принимай, в чем проблема?{ открываешь файл }
for i := 1 to 20 do begin
if i < 8 then T := sin(i*PI/8)
else T := 4*cos(i*(PI+1))/5;
if T < 0 Then Writeln(f, T);
end;
{ закрываешь файл }
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.