Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
ananas1996
0 / 0 / 0
Регистрация: 08.11.2014
Сообщений: 8
1

Типизированные файлы. Вставить значение B в файл

18.02.2015, 17:07. Просмотров 832. Ответов 1
Метки нет (Все метки)

Задан типизированный файл с целочисленными компонентами и произвольное целое число B. Если для i-ой компоненты файла имеет место Xi<B<Xx+1, то вставить значение B между этими компонентами
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.02.2015, 17:07
Ответы с готовыми решениями:

Файлы. Типизированные файлы. Получить файл G, содержащий все компоненты файла F, являющиеся нечетными числами и корнями целых чисел
1.Заданный файл F компонентами которого являются целые числа. Получить файл G...

Типизированные файлы. Создать файл записей: фамилия и стипендия
1. Создать файл записей: фамилия и стипендия. Отсортировать файл за условием...

Типизированные файлы. Заполнить файл G произведениями соседних компонентов файла f
Записать в файл f n целых чисел.Заполнить файл g числами,которые являются...

Типизированные файлы. чётные перекинуть во второй файл, а нечётные в третий
Прошу помочь с решением 2х задач: 1)Есть типизированный файл заполненный...

Типизированные файлы: переписать переменные в другой файл, исключая повторяющиеся вхождения одинаковых чисел
Дан файл f с переменными типа integer. Нужно считать эти переменные из файла f...

1
Puporev
Модератор
54701 / 42113 / 29079
Регистрация: 18.05.2008
Сообщений: 99,397
18.02.2015, 17:45 2
Лучший ответ Сообщение было отмечено ananas1996 как решение

Решение

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
uses crt;
var f:file of integer;
    n,b,x,y,i,k:integer;
begin
clrscr;
randomize;
assign(f,'fileF');
rewrite(f);
write('Сколько чисел записать в файл F n=');
readln(n);
for i:=1 to n do
 begin
  x:=random(50);
  write(f,x);
 end;
writeln('Содержание исходного файла:');
reset(f);
while not eof(f) do
 begin
  read(f,x);
  write(x,' ');
 end;
writeln;
write('Введите число b=');
readln(b);
reset(f);
i:=0;
k:=-1;
while (i<filesize(f)-1)and(k=-1) do
 begin
  seek(f,i);
  read(f,x);
  seek(f,i+1);
  read(f,y);
  if(x<b)and(y>b)then k:=i
  else inc(i);
 end;
if k=-1 then write('Нет соседних чисел x<b<y')
else
 begin
  seek(f,filesize(f));
  for i:=filesize(f) downto k+2 do
   begin
    seek(f,i-1);
    read(f,x);
    seek(f,i);
    write(f,x);
   end;
  seek(f,k+1);
  write(f,b);
  writeln('Вставка числа ',b);
  seek(f,0);
  while not eof(f) do
   begin
    read(f,x);
    write(x,' ');
   end;
 end;
close(f);
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.02.2015, 17:45

Типизированные файлы: Создать файл FF, компонентами которого является первая половина элементов файла FS
Создать типизированный файл FS,содержащий последовательность вещественных...

Занесите в отдельные файлы списки студентов различных форм обучения(Типизированные файлы)
Помогите пожалуйста написать программку. Трудно мне даются блин эти файлы... ...

Файлы. Дайте компоненту номер 15 новое значение и снова выведите файл на экран, затем уничтожьте файл
Файлы . Составьте программу, которая создает файл из 20 компонентов:...


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

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

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