Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Elena0602
2 / 2 / 0
Регистрация: 04.03.2010
Сообщений: 57
#1

Записать в текстовый файл - Turbo Pascal

18.05.2010, 12:47. Просмотров 296. Ответов 0
Метки нет (Все метки)

Пожалуйста помогите дописать программу
Вот код:
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
uses wincrt;
const nmax=50;
var a:array[1..nmax,1..nmax] of integer;
v:array[1..nmax] of integer;
f:text;
n,i,j,k,x:integer;
begin
clrscr;
randomize;
assign(f,'file1.txt');
rewrite(f);
repeat
write('Размер матрицы=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(40)+10;
write(a[i,j]:4);
write(f,' ',a[i,j]);
end;
writeln;
end;
writeln;
reset(f);
i:=0;j:=0;k:=0;
while not eof(f) do
begin
read(f,x);
j:=j+1;
if j mod n=1 then
begin
i:=i+1;
j:=1;
end;
if j=i then
begin
k:=k+1;
v[k]:=x;
end;
end;
close(f);
writeln('Побочная диагональ:');
for i:=1 to n do
write(v[i],' ');
readln
end.
Нужно чтобы она создавала текстовый файл и записывала туда массив, а потом считывала из файла информацию и формировала вектор!
Ребята, помогите пожалуйста!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.05.2010, 12:47
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Записать в текстовый файл (Turbo Pascal):

Дан текстовый файл f. Записать в перевернутом виде строки файла f в файл g - Turbo Pascal
Дан текстовый файл f. Записать в перевернутом виде строки файла f в файл g.Порядок строк в файле п должен а) совпадает с исходным порядком...

Записать в перевернутом виде старый файл в новый текстовый файл - Turbo Pascal
Создать текстовый файл, строки которого содержат слова. Записать в перевернутом виде старый файл в новый текстовый файл. Порядок строк в...

Открыть для записи текстовый файл data.txt и записать в него полученный массив, закрыть файл - Turbo Pascal
Составить программу с подпрограммами для выполнения следующего алгоритма (предусмотреть процедуры записи и чтения информации из файла). ...

Дан текстовый файл. Записать все строки файла в новый файл, изменив порядок следования букв в каждой строке на противоположный - Turbo Pascal
Дан текстовый файл. Записать все строки файла в новый файл, изменив порядок следования букв в каждой строке на противоположный.

Записать строку в текстовый файл - Turbo Pascal
Как занести строку в текстовый файл? Как вытащить данные из текстового файла?

Сгенерировать числа и записать в текстовый файл - Turbo Pascal
Сгенерировать и записать в текстовый файл N заданий типа -37,8:3,6+12,5·(-0,6).

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.05.2010, 12:47
Привет! Вот еще темы с ответами:

Сгенерировать и записать в текстовый файл N задание - Turbo Pascal
сгенерировать и записать в текстовый файл N задание типа: 37,8:3,6+12,5*(-0,6)

Записать в текстовый файл. Прочитать его - Turbo Pascal
С помощью датчика случайных чисел сформировать матрицу (NxM). Значения N и M ввести с клавиатуры. Полученную матрицу записать в текстовый...

Создать текстовый файл, в который записать 3 предложения - Turbo Pascal
Создать текстовый файл, в который записать 3 предложения. 1. Очень полезно учить 2. Язык Паскаль 3. Всем студентам Прочитать этот...

Записать в текстовый файл матрицу размером mxn - Turbo Pascal
Записать в текстовый файл матрицу размером mxn (m строк, n столбцов, m,n<=50), элементами которой являются число от 1 до mn, изменяющиеся...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.