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

Дан файл, компоненты которого целые числа. Найти наименьшее число и поставить его первым

26.04.2015, 23:11. Просмотров 946. Ответов 7
Метки нет (Все метки)

Помогите пожалуйста решить задачу по Turbo Pascal: Дан файл, компоненты которого целые числа. Найти наименьшее число и поставить его первым
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.04.2015, 23:11
Ответы с готовыми решениями:

Задан файл F, все компоненты которого – целые числа. Переписать в файл G компоненты файла F
Задан файл F, все компоненты которого – целые числа. Переписать в файл G...

Создать файл, компоненты которого целые числа и найти их сумму
напишите полный код в паскале пожалуйста и скажите файл должен быть *.txt и как...

Создать файл, компоненты которого целые числа и найти их сумму
Создать файл, компоненты которого целые числа и найти их сумму. напишите...

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

Создать файл, компоненты которого случайные целые числа
1. Используя типизированные файлы(вывод исходного и вновь создаваемого файлов...

7
SuperKir
404 / 379 / 268
Регистрация: 10.03.2015
Сообщений: 1,611
Завершенные тесты: 1
27.04.2015, 01:08 2
1. Файл: Типизированный, текстовый?
2. Поставить первым: Сдвинуть относительно первого элемента, поменять первый и макс?

Конкретику внесите, пожалуйста.
0
Joy
Эксперт Pascal/Delphi
2169 / 1197 / 1437
Регистрация: 29.08.2014
Сообщений: 4,387
27.04.2015, 06:38 3
Лучший ответ Сообщение было отмечено Desert_zn как решение

Решение

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
var
  f:file of integer;
  i,j,k:integer;
begin
  assign(f,'num.bin');
  {если файл дан, то этот код убрать}
  rewrite(f);
  randomize;
  for i:=1 to random(10)+10 do write(f,random(101)-50);
  close(f);
  {до сюда}
  reset(f);
  writeln('исходный файл:');
  i:=0;
  while not eof(f) do begin
    read(f,j);
    write(j:4);
    if (i=0) or (j<k) then k:=j;{минимальный элемент}
    i:=i+1;
  end;
  writeln;
  seek(f,0);{перемещаемся на позицию первого элемента}
  write(f,k);{записываем на его место минимальное значение}
  writeln('Преобразованный файл:');
  seek(f,0);
  while not eof(f) do begin
    read(f,j);
    write(j:4);
  end;
  close(f);
  readln;
end.
1
Desert_zn
0 / 0 / 0
Регистрация: 26.04.2015
Сообщений: 4
27.04.2015, 23:25  [ТС] 4
Joy, спасибо вам

Добавлено через 11 часов 0 минут
Joy, мне выдаёт ошибку на этой строчке write(f,random(101)-50)
0
Joy
Эксперт Pascal/Delphi
2169 / 1197 / 1437
Регистрация: 29.08.2014
Сообщений: 4,387
28.04.2015, 05:35 5
Desert_zn, ошибку бы привели
0
Sergio Leone
2467 / 1112 / 579
Регистрация: 07.06.2014
Сообщений: 3,259
28.04.2015, 22:38 6
Цитата Сообщение от Desert_zn Посмотреть сообщение
Joy, мне выдаёт ошибку на этой строчке write(f,random(101)-50)
попробуй записать эту строчку так:
Pascal
1
write(f,-50 + random(101))
0
Desert_zn
0 / 0 / 0
Регистрация: 26.04.2015
Сообщений: 4
29.04.2015, 21:22  [ТС] 7
Joy, вот что получается...(Ошибочная ссылка на переменную)

Добавлено через 2 минуты
Sergio Leone, с вашим исправлением тоже не работает...пишет (Предполагается идентификатор переменной)
0
Joy
Эксперт Pascal/Delphi
2169 / 1197 / 1437
Регистрация: 29.08.2014
Сообщений: 4,387
30.04.2015, 07:46 8
Цитата Сообщение от Joy Посмотреть сообщение
for i:=1 to random(10)+10 do write(f,random(101)-50);
замени на :
Pascal
1
  for i:=1 to random(10)+10 do begin j:=random(101)-50;write(f,j);end;
и начинай учиться
0
30.04.2015, 07:46
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.04.2015, 07:46

Дан файл, элементами которого являются целые числа. Подсчитать сколько в байте содержится четных чисел и найти их сумму.
Помогите пожалуйста решить! Дан файл, элементами которого являются целые...

Дан массив чисел, найти максимальный элемент и поставить его первым
Дан массив чисел, найти максимальный элемент и поставить его первым, а...

Дан файл, содержащий натуральные числа. Найти наибольшее, наименьшее число, количество чётных и нечётных чисел.
Дан элементы файла, содержащий натуральное(real) числа найти а) максимальный...


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

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

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