Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
Леха666666574
0 / 0 / 0
Регистрация: 28.10.2016
Сообщений: 23
1

Ввести файл вещественных чисел F. Удалить из файла предпоследнюю компоненту, если она отрицательна

19.04.2017, 16:33. Просмотров 765. Ответов 2
Метки нет (Все метки)

Ввести файл вещественных чисел F. Удалить из файла предпоследнюю компоненту, если она отрицательна.Если положительная найти сумму первой и последней компоненты и дописать ее в конец файла. Файл распечатать.
Прошу сделать только с помощью цикла not eof и без рандома.
Заранее спасибо.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.04.2017, 16:33
Ответы с готовыми решениями:

Удалить из файла f числа, которые входят в файл g более двух раз, если таких чисел нет, то создать новый файл
Даны целочисленные файлы f и g. Удалить из файла f числа, которые входят в файл...

Ввести строку и слово. Удалить слово из строки, если она в ней содержится.
Ввести строку и слово. Удалить слово из строки, если она в ней содержится. вот...

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

Удалить минимальную компоненту из файла
Люди пожалуйста помогите напишите часть программы я уже с ума сошел не могу...

Создать два файла вещественных чисел. Подсчитать количество компонент в них. Получить результирующий файл
Создать два файла вещественных чисел. Подсчитать количество компонент в них....

2
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3882 / 2864 / 3639
Регистрация: 05.06.2014
Сообщений: 14,086
19.04.2017, 17:15 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
var
  f: file of real;
  sum, x: real;
  i, n: integer;
 
begin
  assign(f, 'file1.dat');
  rewrite(f);
  write('Введите количество чисел в файле: ');
  readln(n);
  writeln('Введите в файл числа:');
  for i := 1 to n do
  begin
    readln(x);
    write(f, x);
  end;
  writeln('Содержание исходного файла F:');
  reset(f);
  while not eof(f) do
  begin
    read(f, x);
    write(x, ' ');
  end;
  close(f);
  writeln;
  
  reset(f);
  n := FileSize(f) - 1;
  if n = 0 then
  begin
    writeln('Файл состоит из одного элемента!');
    halt;
  end;
  
  reset(f);
  seek(f, n - 1);
  read(f, x);
  writeln('Предпоследняя компонента: ', x);
  if x < 0 then
  begin
    for i := n to filesize(f) - 1 do
    begin
      seek(f, i);
      read(f, x);
      seek(f, i - 1);
      write(f, x);
    end;
    seek(f, filesize(f) - 1);
    truncate(f);
    close(f);
  end
  else
  begin
    reset(f);
    seek(f, filesize(f) - 1);
    read(f, x);
    sum := sum + x;
    seek(f, 0);
    read(f, x);
    sum := sum + x;
    seek(f, filesize(f));
    write(f, sum);
  end;
  
  
  writeln('Содержание нового файла F:');
  reset(f);
  while not eof(f) do
  begin
    read(f, x);
    write(x, ' ');
  end;
  close(f);
  
end.
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3906 / 2563 / 2085
Регистрация: 22.11.2013
Сообщений: 7,169
24.04.2017, 17:11 3
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

ZX Spectrum-128,
в условии "если положительная", а у вас получилась "если неотрицательная".

Добавлено через 4 минуты
Pascal
52
53
54
55
56
  else if x>0 then begin
    Seek(f,0); Read(f,sum);
    Seek(f,FileSize(f)-1); Read(f,x);
    sum:=sum+x; Write(f,sum);
  end;
Ну и Reset() дергать для файла с произвольным доступом незачем каждый раз, все-равно же Seek() уже используется.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.04.2017, 17:11

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

Записать в типизированный файл несколько вещественных чисел, после чего вывести эти вещественные числа из типизированного файла на экран монитора.
Записать в типизированный файл несколько вещественных чисел, после чего вывести...

Создать типизированный файл, который содержит несколько вещественных чисел, после чего вывести эти вещественные числа из типизированного файла на эк
Создать типизированный файл, который содержит несколько вещественных чисел,...


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

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

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