0 / 0 / 1
Регистрация: 01.03.2010
Сообщений: 21
1

Создать текстовый файл с исходными данными любой размерности. Из текстового файла переписать числа в массив, типизированный файл. Сделать контрольный

12.10.2010, 07:22. Показов 2583. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Создать текстовый файл с исходными данными любой размерности. Из текстового файла переписать числа в массив, типизированный файл. Сделать контрольный вывод исходных данных из массива, типизированного файла. Блок-схему алгоритма.
Фаил и массив по отдельности работает, спасибо!
Люди помогите объединить задачу, по условию выше.

САМА ЗАДАЧА: Переместить отрицательные числа в начало, положительные в конец, не применяя сотировк, затем обнулить 2 граничащих (отрицат. и положит. числа).


Добавлено через 32 секунды
Через массив

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
uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,j,k:byte;
    x:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Массив:');
for i:=1 to n do
 begin
  repeat
  a[i]:=random(10)-5;
  until a[i]<>0;
  write(a[i]:4);
 end;
writeln;
writeln;
k:=0;
for i:=n downto 1 do
if a[i]>0 then
  begin
    k:=k+1;
    x:=a[i];
    for j:=i to n-k do
    a[j]:=a[j+1];
    a[n-k+1]:=x;
  end;
writeln('Перестановка:');
for i:=1 to n do
write(a[i]:4);
writeln;
writeln;
for i:=2 to n do
if a[i]*a[i-1]<0 then
 begin
  a[i]:=0;
  a[i-1]:=0;
 end;
writeln('Замена на 0:');
for i:=1 to n do
write(a[i]:4);
readln
end.
Добавлено через 51 секунду
через Фаил

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
uses crt;
var f:file of integer;
    n,i,j,p:integer;
    a,c,d,x:integer;
    k:byte;
begin
clrscr;
assign(f,'file1');
rewrite(f);
writeln('Введите в файл целые положительные и отрицательные чичла, окончание ввода 0');
repeat
readln(c);
if c<>0 then write(f,c);
until c=0;
reset(f);
writeln('Содержание исходного файла:');
while not eof(f) do
 begin
  read(f,c);
  write(c,' ');
 end;
writeln;
close(f);
{перестановка отрицательных вперед}
reset(f);
p:=0;
for i:=0 to filesize(f)-1 do
 begin
  seek(f,i);
  read(f,c);
  if c<0 then{если отрицательное}
   begin
    p:=p+1;{считаем}
    x:=c;{запоминаем}
    for j:=i downto p do{идем назад}
     begin
      seek(f,j-1);{читаем предыдущее число }
      read(f,d);
      seek(f,j);{вставляем вперед}
      write(f,d);
     end;
    seek(f,p-1);{вставляем на место которое нашли}
    write(f,x);
   end
 end;
if (p=0)or(p=filesize(f)) then
  begin
   write('Перестановок не было!');
   close(f);
  end
else
 begin
  writeln('Содержание нового файла:');
  reset(f);
  while not eof(f) do
   begin
    read(f,c);
    write(c,' ');
   end;
  close(f);
{замена граничных нолями}
  reset(f);
  for i:=0 to filesize(f)-1 do
   begin
    read(f,c);
    if c>0 then
     begin
      p:=i;
      break;
     end;
    a:=0;
    seek(f,p);
    write(f,a);
    seek(f,p-1);
    write(f,a);
   end;
  close(f);
  writeln('Замена граничных элементов на 0:');
  reset(f);
  while not eof(f) do
   begin
    read(f,c);
    write(c,' ');
   end;
  close(f);
 end;
readln
end.
Спасайте пожалуйста!!!
0
12.10.2010, 07:22
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
12.10.2010, 07:22
Ответы с готовыми решениями:

Переписать данные из текстового файла в типизированный файл
есть текстовый файл в котором записаны по строчно русские слова и рядом цифры как переписать все данные в типизированный файл не...

Дан типизированный файл целых чисел. Переписать содержимое файла в новый типизированный файл
Дан типизированный файл целых чисел. Переписать содержимое файла в новый типизированный файл целых чисел, изменяя порядок ...

Прочитать текстовые и числовые сведения из текстового файла. С помощью стека переписать в другой текстовый файл все числа в обратном порядке.
Создать текстовый файл, содержащий текстовую и числовую информацию. Используя стек, создать другой текстовый файл, в котором числа были бы...

4
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
12.10.2010, 09:16 2
Цитата Сообщение от donvvv Посмотреть сообщение
помогите объединить задачу
Как объединить, переписать что ли?
1
0 / 0 / 1
Регистрация: 01.03.2010
Сообщений: 21
12.10.2010, 09:49  [ТС] 3
Цитата Сообщение от Puporev Посмотреть сообщение
Как объединить, переписать что ли?
да, перепишите плиз с объяснениями, понять ее не могу(((
0
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
12.10.2010, 10:24 4
Вот например так, смотри.
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
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
uses crt;
const nmax=100;
      tname='text.txt';
      fname='tfile.dat';
type mas=array[1..nmax] of integer;
     fail=file of integer;
var bt,bm,bf:boolean;
procedure TextFile(var f:text);
var n,a,i:integer;
begin
rewrite(f);
repeat
write('Количество чисел до ',nmax,' n=');
readln(n);
until n in [1..nmax];
for i:=1 to n do
 begin
  repeat
  a:=random(10)-5;
  until a<>0;
  write(f,' ',a);
 end;
bt:=true;
close(f);
end;
procedure Massiv(var f:text;var v:mas;var n:byte);
var a:integer;
begin
if bt=false then
 begin
  writeln('Текстовый файл с данными не создан, вернитесь к пункту 1');
  readln;
  exit;
 end;
reset(f);
writeln('Исходный массив:');
n:=0;
while not eof(f) do
 begin
  n:=n+1;
  read(f,v[n]);
  write(v[n]:4);
 end;
readln;
close(f);
bm:=true;
end;
procedure PersMas(var v:mas;n:byte);
var i,k,j:byte;
    x:integer;
begin
if bm=false then
 begin
  writeln('Массив еще не создан, вернитесь к пункту 2');
  readln;
  exit;
 end;
k:=0;
for i:=n downto 1 do
if v[i]>0 then
  begin
    k:=k+1;
    x:=v[i];
    for j:=i to n-k do
    v[j]:=v[j+1];
    v[n-k+1]:=x;
  end;
writeln('Перестановка:');
for i:=1 to n do
write(v[i]:4);
writeln;
writeln;
for i:=2 to n do
if v[i]*v[i-1]<0 then
 begin
  v[i]:=0;
  v[i-1]:=0;
 end;
writeln('Замена на 0:');
for i:=1 to n do
write(v[i]:4);
readln
end;
procedure TFile(var f:text;var g:fail);
var a:integer;
begin
if bt=false then
 begin
  writeln('Текстовый файл с данными не создан, вернитесь к пункту 1');
  readln;
  exit;
 end;
reset(f);
rewrite(g);
writeln('Содержание исходного файла:');
while not eof(f) do
 begin
  read(f,a);
  write(g,a);
  write(a:4);
 end;
readln;
close(f);
close(g);
bf:=true;
end;
procedure PersFail(var g:fail);
var i,j,p:byte;
    a,c,d,x:integer;
begin
if bf=false then
 begin
  writeln('Типизированный файл еще не создан, вернитесь к пункту 4');
  readln;
  exit;
 end;
reset(g);
p:=0;
for i:=0 to filesize(g)-1 do
 begin
  seek(g,i);
  read(g,c);
  if c<0 then
   begin
    p:=p+1;
    x:=c;
    for j:=i downto p do
     begin
      seek(g,j-1);
      read(g,d);
      seek(g,j);
      write(g,d);
     end;
    seek(g,p-1);
    write(g,x);
   end
 end;
if (p=0)or(p=filesize(g)) then
  begin
   write('Перестановок не было!');
   close(g);
  end
else
 begin
  writeln('Перестановка:');
  reset(g);
  while not eof(g) do
   begin
    read(g,c);
    write(c,' ');
   end;
  close(g);
  reset(g);
  for i:=0 to filesize(g)-1 do
   begin
    read(g,c);
    if c>0 then
     begin
      p:=i;
      break;
     end;
    a:=0;
    seek(g,p);
    write(g,a);
    seek(g,p-1);
    write(g,a);
   end;
  close(g);
  writeln;
  writeln('Замена граничных элементов на 0:');
  reset(g);
  while not eof(g) do
   begin
    read(g,c);
    write(c,' ');
   end;
  close(g);
 end;
readln;
end;
var f:text;
    g:fail;
    a:mas;
    n:byte;
    w:char;
begin
clrscr;
randomize;
bt:=false;
bm:=false;
bf:=false;
assign(f,tname);
assign(g,fname);
repeat
clrscr;
writeln('Выберите действие');
writeln('1-создание нового текстового файла');
writeln('2-создание массива');
writeln('3-преобразование массива');
writeln('4-создание типизированного файла');
writeln('5-преобразование типизированного файла');
writeln('другое - выход');
readln(w);
case w of
'1':TextFile(f);
'2':Massiv(f,a,n);
'3':PersMas(a,n);
'4':TFile(f,g);
'5':PersFail(g);
else exit;
end;
until not(w in ['1'..'5']);
end.
Добавлено через 4 минуты
Цитата Сообщение от donvvv Посмотреть сообщение
понять ее не могу(((
А что тут понимать? Создается или массив или типизированный файл. В них сначала все отрицательные переставляются вперед, потом находится место смены знака и 2 элемента на границе заменяются на 0. Чтобы понять алгоритм, это нужно все что написано проделать на бумажке, пошагово, тогда может поймешь, а словами я вряд ли смогу это все объяснить понятно. Это нужно трактат писать, что конечно за так я делать не буду. И так я вам многое сделал.
2
0 / 0 / 1
Регистрация: 01.03.2010
Сообщений: 21
13.10.2010, 07:39  [ТС] 5
Спасибо что решили задачу)))
0
13.10.2010, 07:39
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
13.10.2010, 07:39
Помогаю со студенческими работами здесь

Имеется типизированный файл, в котором записаны 18 целых чисел. Переписать все положительные числа файла в массив в том же порядке
Имеется типизированный файл, в котором записаны 18 целых чисел. Переписать все положительные числа файла в массив в том же порядке

Имеется типизированный файл, в котором записаны 18 целых чисел. Переписать все положительные числа файла в массив в том же порядке
program viweglavnoidiagonaali; var f:file of integer; i,bi,k,d,z,z1,a,b,x,y:integer; begin writeln('x '); for I:=1 to 2 do begin...

Прочитать и переписать из текстового файла в текстовый файл
Ребята, добрый всем день. Помогите, пожалуйста, новичку. У меня имеется файл, его нужно прочитать построчно и переписать этот файл в...

Файл: Переписать содержимое текстового файла a.txt диска С в текстовый файл в.txt без пробелов
1.Переписать содержимое текстового файла a.txt диска С в текстовый файл в.txt без пробелов 2.Дан текст.файл C:\Program Files\2.txt,в...

Создать типизированный файл из вещественных чисел, записать во второй файл числа первого файла
Помогите пожалуйста написать программу Задача: создать типизированный файл из вещественных чисел, записать во второй файл числа...


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

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

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Пользуясь нейросетью возвращаюсь к вопросу альтернативных приводов поступательного движения.
Hrethgir 14.02.2025
Описание тут https:/ / habr. com/ ru/ articles/ 778118/ . Вопрос ответ You Привет. Скажи, есть-ли вещества, которые могут менять жидкое состояние на желеобразное под воздействием ультразвука? . . .
Ошибка "Another git process seems to be running in this repository"
hw_wired 14.02.2025
При работе с git можно столкнуться с довольно раздражающей ошибкой "Another git process seems to be running in this repository". Эта ситуация возникает, когда система контроля версий пытается. . .
Ошибка "java.lang.NoCl­assDefFou­ndErro­r: javax/xml/bind/JAXBException"
hw_wired 14.02.2025
Как разработчики Java-приложений, мы сталкиваемся с разными ошибками, но одна из них - java. lang. NoClassDefFoundError: javax/ xml/ bind/ JAXBException - стала особенно актуальной после выхода Java 9. . . .
Отличия for-in от for-of в JavaScript
hw_wired 14.02.2025
Когда-то единственным способом перебора элементов массива или свойств объекта был классический цикл for с счетчиком. Да, он отлично справлялся с задачей, но код получался громоздким и не очень. . .
Отличия implementation, api и compile в Gradle
hw_wired 14.02.2025
Управление зависимостями - одна из ключевых задач при разработке современных приложений на Java и Kotlin. Система сборки Gradle предоставляет гибкие и мощные средства для работы с зависимостями,. . .
Что лучше: require или import/export в JavaScript
hw_wired 14.02.2025
Модульность в JavaScript прошла долгий путь эволюции, и сегодня у разработчиков есть два основных способа организации модулей: старый добрый require из системы CommonJS и современные import/ export из. . .
Ошибка "Uncaught SyntaxError: Cannot use import statement outside a module"
hw_wired 14.02.2025
Думаю, многие разработчики сталкивались с ошибкой "Uncaught SyntaxError: Cannot use import statement outside a module" при попытке использовать современный синтаксис импорта в JavaScript. Эта. . .
Ошибка Docker "Got permission denied while trying to connect to the Docker daemon socket at"
hw_wired 14.02.2025
Разработка с использованием Docker может иногда преподносить неожиданные сюрпризы, и одним из самых распространенных камней преткновения становится ошибка с отказом в доступе к демону Docker. . . .
Ошибка "No 'Access-Control-Allow-Origin' header is present on the requested resource"
hw_wired 14.02.2025
При разработке современных веб-приложений нередко сталкиваешься с ошибкой "No 'Access-Control-Allow-Origin' header is present on the requested resource". Эта проблема возникает из-за политики. . .
Как закрыть порт в Linux
hw_wired 14.02.2025
Управление сетевыми портами в Linux - непростая, но важная задача для обеспечения безопасности системы. Каждый открытый порт - это потенциальная уязвимость, через которую злоумышленики могут. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru