Форум программистов, компьютерный форум CyberForum.ru
CyberForum.ru - форум программистов и сисадминов > > >
Восстановить пароль Регистрация
 
Владюша
Новичок
0 / 0 / 0
Регистрация: 27.01.2011
Сообщений: 4
27.01.2011, 21:17     Сохранить результаты в файл   #1
подскажите плиз как в етой проге сохранить результаты(корни уравнения) в файл текстовый.В конце проги я что то намудрил но не пашет...Заранее спасибо!

Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
Program Ahb;
var k:integer;
    e:real;
 
type Matrix=array[1..8,1..8] of real;
     Vector=array[1..8] of real;
 
procedure zeidel(n:integer;e:real;a:Matrix;b:Vector;x:Vector);
var i,j:integer;
    s,v,m:real;
begin
 
 
{ Proverka na sovmestnost'}
for i:=1 to n do
 begin
 s:=0;
 for j:=1 to n do
  if j<>i then s:=s+abs(a[i,j]);
 if s>=abs(a[i,i]) then
  begin
  writeln('Uslovie ne vipolnjaetsja');
  exit
  end;
end;
 
 
{ Vi4isljaem novoe pribligenie i pogreshcnost}
repeat
m:=0;
for i:=1 to n do
 begin
 s:=0;
 for j:=1 to n do
   if i<>j then
     s:=s+a[i,j]*x[j];
 v:=x[i];
 x[i]:=(b[i]-s)/a[i,i];
 if abs(v-x[i])>m then m:=abs(v-x[i]);
 end;
until m<e;
 
writeln('Rezultat');
for i:=1 to n do
writeln('x[',i,']= ',x[i]:0:4);
readln;
 end;
 
Var
n, i,j: Integer;
a: Matrix;
b, x: Vector;
f:text;
Begin
Writeln('Programma reshcenija sistem nelineinih uravnenii metodom Zeidelja');
Writeln;
 
 
 
Write ('Vvedite porjadok matrici (ot 2 do 8)'); readln (k);
Writeln('Vvedite to4nost');
Repeat
Write('>');
Read(e);
Until (e > 0) and (e < 1);
Writeln;
 
Writeln ('Vvedite matricu koeficientov' );
Writeln;
for i:=1 to k do
for j:=1 to k do begin
Write('Vvedite a[',i,',',j,']: ');
Readln(a[i, j]);
end;
Writeln;
 
 
Writeln ('Vvedite matricu svobodnih 4lenov ');
Writeln;
For i := 1 to k do begin
Write('Vvedite b[',i,']: ');
Readln(b[i]);
end;
Writeln;
 
zeidel (k,e,a,b,x);
 
assign(f,'file.txt');Rewrite(f);
writeln(f,'Rezultat');
for i:=1 to n do
Close(f);
end.
AdAgent
Объявления
27.01.2011, 21:17     Сохранить результаты в файл
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.01.2011, 21:17     Сохранить результаты в файл
Посмотрите здесь:

Turbo Pascal как сохранить exe файл в паскале?
Turbo Pascal есть ли в директории где, находится код программы/исполняемый файл программы, текстовый файл с названием "результаты.txt" и если нет, то создать его
Turbo Pascal Файл: В файле input.txt находятся результаты контрольной, определить и вывести на экран средний балл.
Turbo Pascal Сохранить в типизированный файл информацию о нескольких сотрудниках
Turbo Pascal Найти максимальное и минимальное значения среди элементов файла созданного в задании 1, и полученные результаты записать в новый файл
Turbo Pascal Дан файл 4.тхт, содержащий текст. Необходимо удалить из данного текста все пробелы. Сохранить преобразованный текст в файл
Turbo Pascal Создать массив натуральных трёхзначных чисел. Открыть файл для редактирования. В новый файл сохранить числа кратные трём
Turbo Pascal Сохранить данные о книге в файл и прочитать
Просто_Юлия
Форумчанин
133 / 45 / 1
Регистрация: 27.05.2008
Сообщений: 241
28.01.2011, 10:30     Сохранить результаты в файл   #2
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
Program Ahb;
var k:integer;
e:real;
 
type Matrix=array[1..8,1..8] of real;
Vector=array[1..8] of real;
 
procedure zeidel(n:integer;e:real;a:Matrix;b:Vector;var x:Vector);
var i,j:integer;
s,v,m:real;
begin
 
 
{ Proverka na sovmestnost'}
for i:=1 to n do
begin
s:=0;
for j:=1 to n do
if j<>i then s:=s+abs(a[i,j]);
if s>=abs(a[i,i]) then
begin
writeln('Uslovie ne vipolnjaetsja');
exit
end;
end;
 
 
{ Vi4isljaem novoe pribligenie i pogreshcnost}
repeat
m:=0;
for i:=1 to n do
begin
s:=0;
for j:=1 to n do
if i<>j then
s:=s+a[i,j]*x[j];
v:=x[i];
x[i]:=(b[i]-s)/a[i,i];
if abs(v-x[i])>m then m:=abs(v-x[i]);
end;
until m<e;
 
{writeln('Rezultat');
for i:=1 to n do
writeln('x[',i,']= ',x[i]:0:4);
readln;}
end;
 
Var
i,j: Integer;
a: Matrix;
b, x: Vector;
f:text;
Begin
Writeln('Programma reshcenija sistem nelineinih uravnenii metodom Zeidelja');
Writeln;
 
 
 
Write ('Vvedite porjadok matrici (ot 2 do 8)'); readln (k);
Writeln('Vvedite to4nost');
Repeat
Write('>');
Read(e);
Until (e > 0) and (e < 1);
Writeln;
 
Writeln ('Vvedite matricu koeficientov' );
Writeln;
for i:=1 to k do
for j:=1 to k do begin
Write('Vvedite a[',i,',',j,']: ');
Readln(a[i, j]);
end;
Writeln;
 
 
Writeln ('Vvedite matricu svobodnih 4lenov ');
Writeln;
For i := 1 to k do begin
Write('Vvedite b[',i,']: ');
Readln(b[i]);
end;
Writeln;
 
zeidel (k,e,a,b,x);
 
assign(f,'file.txt');
Rewrite(f);
write(f,'Rezultat');
for i:=1 to k do
  write(f,x[i]);
Close(f);
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Опции темы

Текущее время: 17:44. Часовой пояс GMT +4.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.
Яндекс.Метрика