IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> проблема с выводом в файл, помогите исправить или дайте идею
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 9
Пол: Мужской

Репутация: -  0  +


вот значит прога считает функцию, значение можно вводить буквами pi/2 и т.д.
выводит на печать и на принтер(с испольсов модуля), но вот беда ника нехочет выводить в файл
помогите исправить (желательно предложить хоть какую нибудь идею до понедельника ).
да исчо там где непонятно написано типо 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)4.gif2);
'p': begin
str(x:3:3,xs);
str(func(x)3.gif3,funcs);
PrnString('ЇаЁ x=');
PrnString(xs);
PrnString(' y=');
PrnString(funcs);
end;
'f': writeln(f,'ЇаЁ x=',x:4:2,' y=',func(x)4.gif2);
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.gif3);
end;
end;

'2' : begin
writeln('Cikl REPEAT');
writeln;
i:=0;
repeat
x:=a+h*i;
writeln('ЇаЁ x=',x:4:2,' y=',func(x)3.gif3);
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.gif3);
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.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гуру
*****

Группа: Пользователи
Сообщений: 1 168
Пол: Мужской
Реальное имя: Сергей Андрианов

Репутация: -  28  +


assign только связывает имя файла с файловой переменной, а открывает файл на запись rewrite или append.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 30.11.2020 21:48
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name