Вопрос по задаче

[file]

Вот программа:

Uses crt;
Const A=4.06;
Var
   H: text;
   Xmin, Xmax,X,dX,B,bm,dB,F:real; i,j,S,P,n: integer;
   V: array[1..100,1..100] of integer;
begin
   Clrscr;
   Writeln ('Vvedite znachenie Xmin ');
   Read (Xmin);
   Writeln ('Vvedite znachenie Xmax ');
   Read (Xmax);
   Writeln ('Vvedite znachenie dX ');
   Read (dX);
   Writeln ('Vvedite znachenie B ');
   Read (B);
   Writeln ('Vvedite znachenie dB ');
   Read (dB);
   S:=trunc((Xmax-Xmin)/dX);
   P:=trunc(((A+B)-(A-B))/dB);
   X:=Xmin;bm:=a-B;
   Assign (H, 'vyvod2H.txt');
   Rewrite (H);
   For i:=1 To S do
                   begin
   For j:=1 To P do
                   begin
                       F:=(0.96+X/COS(X-4.42))/(X-arctan(bm+X));
                       Write(H,F:5:4,#9);
                       X:=X+dX;
                       bm:=bm+dB;
                   end;
                   Writeln(H);
                   end;
   Close (H);
end.

Результат работы программы - файл, состоящий из строк (по X) и столбцов (по B) значений функции. Из каких X значений?

[Карась]

непонятен вопрос.... Я вообще невижу где в фаил заносится Х...

[file]

Заносится не X, а значение функции F. Файл должен состоять из строк по X значений, т.е. я так понял, какое значение X столько значений функции F в строке. Например если X=5, то в строке должно размещаться 5 значений функции F. Но, какое X надо брать (Xmin или Xmax) и как вообще можно брать X, если оно изменяется?

[puporev]

Как брать Х. Да так, как ты его берещь в вычислениях. Сосчитай все на бумажке или в Excel и сразу увидишь, что нужно получить. У тебя есть Xmin, dx,Xmax. Вот и пишешь
Xmin=1 Y=5
Xmin+dx= 1.2 Y=6.25
Xmin +2*dx= 1.4 Y=7.50
Конечно не Xmin +2*dx будешь писать, а числовое значение.

[file]

Так должно получиться?

Program Zadacha2;
Uses crt;
Const A=4.06;
Var
   H: text;
   Xmin, Xmax,X,dX,bm,dB,F:real; i,j,S,P,n,G,B: integer;
   V: array[1..100,1..100] of integer;
begin
   Clrscr;
   Writeln ('Vvedite znachenie Xmin ');
   Read (Xmin);
   Writeln ('Vvedite znachenie Xmax ');
   Read (Xmax);
   Writeln ('Vvedite znachenie dX ');
   Read (dX);
   Writeln ('Vvedite znachenie B ');
   Read (B);
   Writeln ('Vvedite znachenie dB ');
   Read (dB);
   S:=trunc((Xmax-Xmin)/dX);
   P:=trunc(((A+B)-(A-B))/dB);
   X:=Xmin;bm:=a-B;
   G:=trunc(X);
   Assign (H, 'vyvod2H.txt');
   Rewrite (H);
   For i:=1 To B do
                   begin
   For j:=1 To G do
                   begin
                       F:=(0.96+X/COS(X-4.42))/(X-arctan(bm+X));
                       Write(H,F:5:4,#9);
                       X:=X+dX;
                       bm:=bm+dB;
                       G:=trunc(X);
                   end;
                   Writeln(H);
                   end;
   Close (H);
end.

[Stilet]

Так должно получиться?

Что мешает проверить лично?

[puporev]

Программа Ваша какая-то бестолковая, не имеющая смысла, в ней половина не понятно. И вообще что за привычка давать код и не давать условие? Откуда мы знаем что такое В,db,dm,G и т.д.
Напишите полное условие задачи, тогда будем смотреть, что делать.
Я так понимаю, что нужно протабулировать заданную функцию на каком-то интервале и вывести результаты в виде примитивной таблицы в файл, но столько лишнего наворочено, что смотреть не хочется.

[file]

Дана программа:

Uses crt;
Const A=4.06;
Var
   Xmin, Xmax,X,dX,B,bm,dB,F:real; i,j,S,P,n: integer;
   V: array[1..100,1..100] of integer;
begin
   Clrscr;
   Writeln ('Vvedite znachenie Xmin ');
   Read (Xmin);
   Writeln ('Vvedite znachenie Xmax ');
   Read (Xmax);
   Writeln ('Vvedite znachenie dX ');
   Read (dX);
   Writeln ('Vvedite znachenie B ');
   Read (B);
   Writeln ('Vvedite znachenie dB ');
   Read (dB);
   S:=trunc((Xmax-Xmin)/dX);
   P:=trunc(((A+B)-(A-B))/dB);
   X:=Xmin;bm:=a-B;
   For i:=1 To S do
                   begin
   For j:=1 To P do
                   begin
                     For n:=1 To 3 do
                        Begin
                           F:=(0.96+X/COS(X-4.42))/(X-arctan(bm+X));
                           Write(F:5:4);
                           Write('     ');
                           X:=X+dX;
                           bm:=bm+dB;
                        End;
                        Writeln(' ');
                        Writeln(' ');
                   end;
                   end;
   Writeln ('Ќ*¦¬ЁвҐ Enter ¤«п ўл室* Ё§ Їа®Ја*¬¬л');
   Readkey;
end.

Нужно сделать так, чтобы результат её работы выводился в файл, состоящий из строк по Х и столбцов по В значений функции.

[puporev]

Такое ощущение, что с радиоприемником разговариваем. Мы его слышим, он нас нет.

[file]

Я не знаю протабулировать нужно или нет. puporev Вы мне написали, что сделать в #4 я попробовал сделать, вот, что получилось #5, но по моему я сделал не правильно.