выводит на печать и на принтер(с испольсов модуля), но вот беда ника нехочет выводить в файл
помогите исправить (желательно предложить хоть какую нибудь идею до понедельника ).
да исчо там где непонятно написано типо Writeln(' Џа®Ја ¬¬ 1 Ё§ Єгаб®ў®© а Ў®вл');
по идее русский язык выводится(се я сам исправлю).
Program da;
uses crt,FPrinter;
var x,a,b,h:real;
Code,sr:integer;
OK:boolean;
ch,letter,key:char;
f:text;
xs,funcs:string;
Function Func(x:real):real;
var f:real;
Begin
f:=(sin(x)/cos(x))+cos(x);
Func:=f;
End;
Function Radian(s:string):real;
Var I:byte;
Begin
Radian:=0;
if s='pi' then Radian:=pi;
if s='pi/2' then Radian:=pi/2;
if s='pi/3' then Radian:=pi/3;
if s='pi/4' then Radian:=pi/4;
if s='pi/5' then Radian:=pi/5;
if s='pi/6' then Radian:=pi/6;
if s='pi/7' then Radian:=pi/7;
if s='pi/8' then Radian:=pi/8;
if s='pi/9' then Radian:=pi/9;
End;
Procedure Vivod(ch:char);
begin
Assign(f,'c:\file.txt');
writeln('ch = ',ch);
case ch of
'e': writeln('ЇаЁ x=',x:4:2,' y=',func(x)2);
'p': begin
str(x:3:3,xs);
str(func(x)3,funcs);
PrnString('ЇаЁ x=');
PrnString(xs);
PrnString(' y=');
PrnString(funcs);
end;
'f': writeln(f,'ЇаЁ x=',x:4:2,' y=',func(x)2);
end;
end;
Procedure PrintFunc;
var letter,f:char;
i,w,J,m:integer;
sa,sb:string;
begin
Writeln(' ‚ўҐ¤ЁвҐ з «® ¤Ё Ї §® : ');readln(sa);
Writeln(' ‚ўҐ¤ЁвҐ Є®Ґж ¤Ё Ї §® : ');readln(sb);
Writeln(' ‚ўҐ¤ЁвҐ m: '); readln(m);
a:=radian(sa);
b:=radian(sb);
h:=(b-a)/m;
writeln(' a= ',a:3:3);
writeln(' b= ',b:3:3);
writeln(' m= ',m:3);
writeln(' h= ',h:3:3);
writeln(' Љ ЄЁ¬ жЁЄ«®¬ бзЁв вм? y=tg(x)+cos(x)?');
writeln(' 1-for; 2-repeat; 3-while.');
readln(letter);
Writeln(' „«п ўлў®¤ нЄа ¦¬ЁвҐ - e, ЇаЁвҐа - p,ў д ©« - f');
Readln(ch);
case letter of
'1' : begin
x:=a;
writeln('Cikl FOR');
writeln;
for i:=0 to m-1 do
begin
x:=a+h*i;
writeln('ЇаЁ x=',x:4:2,' y=',func(x)3);
end;
end;
'2' : begin
writeln('Cikl REPEAT');
writeln;
i:=0;
repeat
x:=a+h*i;
writeln('ЇаЁ x=',x:4:2,' y=',func(x)3);
i:=i+1;
until i>(m-1);
end;
'3' : begin
writeln('Cikl WHILE');
writeln;
i:=0;
while i<=(m-1) do
begin
x:=a+h*i;
Vivod(ch);
writeln('ЇаЁ x=',x:4:2,' y=',func(x)3);
i:=i+1;
end;
end;
end;
Readln;
end;
Procedure Yslovie;
begin
Clrscr;
{HighVideo;
Textattr:= yellow + 16 * blue;
Window(0,0,80,25);
GotoXY(30,9); }
Writeln(' Џа®Ја ¬¬ 1 Ё§ Єгаб®ў®© а Ў®вл');
{GotoXY(30,15);}
{TextColor(white);}
Writeln(' Ќ ¦¬ЁвҐ ўў®¤ ¤«п Їа®¤®«¦ҐЁп');
readln;
writeln;
{HighVideo;
Textattr:= yellow + 16 * blue;
Window(0,0,80,25);
GotoXY(37,9);}
Writeln(' ‡ ¤ ЁҐ');
{GotoXY(15,10);}
Writeln(' ‘®бв ўЁвм Їа®Ја ¬¬г ¤«п Ї®¤бзҐв f(x)= tg(x)+cos(x)');
{GotoXY(17,11);}
Writeln(' Ј¤Ґ x= x+h,Ј¤Ґ h=(b-a)/m (¤«п a=pi/2,b=pi)');
{GotoXY(30,24); }
{TextColor(white);}
{TextAttr:=green + 16 * yellow;
GotoXY(30,11);
Window(0,0,80,25);}
end;
Procedure GoodBy;
begin
clrscr;
{GotoXY(35,10);
TextColor(Blue+Blink);}
writeln('„®бўЁ¤ Ёп');
{GotoXY(30,15);}
writeln('Ќ ¦¬ЁвҐ ўў®¤ ¤«п Їа®¤®«¦ҐЁп');
readln;
end;
Begin
Yslovie;
{GotoXY(30,9);
TextColor(lightblue+Blink);}
{GotoXY(30,12);
TextColor(green+Blink);}
repeat
clrscr;
Assign(f,'c:\file.txt');
Reset(f);
OK:=true;
PrintFunc;
clrscr;
{P GotoXY(30,3);
TextColor(lightred+Blink);}
if OK then writeln('Џ®ўв®аЁвм ўлзЁб«ҐЁп? y/n');
key:=readkey;
Until key ='n';
GoodBy;
close(f)
end.