Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.03.2017, 08:51   #1
Korban
Пользователь
 
Регистрация: 02.11.2016
Сообщений: 26
По умолчанию В файле найти самое большое число, принадлежащее заданному интервалу - Pascal ABC

Пусть дано файл целых чисел. Выберите самое большое из них, принадлежащее интервалу [a, b]. Концы интервала a, b вводятся из стандартного устройства введения.
Korban вне форума Ответить с цитированием
Старый 05.03.2017, 10:13   #2
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,602
По умолчанию

Код:
const
  n = 20;

var
  f: file of integer;
  i, a, b, x, max: integer;

begin
  randomize;
  assign(f, 'data.dat');
  rewrite(f);
  writeln('Исходный Файл: ');
  for i := 1 to n do
  begin
    x := -n div 2 + random(n);
    write(f, x);
    write(x:4);
  end;
  writeln;
  write('Введите интервал A,B: ');
  readln(a, b);
  reset(f);
  read(f, x);
  max := x;
  while not eof(f) do
  begin
    read(f, x);
    if (x >= a) and (x <= b) then 
      if x > max then
        max := x;
  end;
  writeln('Максимум файла = ', max);
  close(f);
end.
ZX Spectrum-128 вне форума Ответить с цитированием
Старый 05.03.2017, 12:05   #3
Korban
Пользователь
 
Регистрация: 02.11.2016
Сообщений: 26
По умолчанию

Большое спасибо!
Korban вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите решить проблему: Найти из заданного пользователём массива самое большое число (размер массива вводит пользователь) Kokosaki Паскаль, Turbo Pascal, PascalABC.NET 16 29.12.2015 21:21
Фалы,паскаль-Найти самое большое число в файле.Если оно чётное вывести его повторно в конец файла Vika2112 Помощь студентам 0 13.12.2012 08:14
самое большое число в массиве LikeMe Visual C++ 3 10.12.2011 00:10
Найти числа произведение которых самое большое Arn1 Помощь студентам 4 03.10.2011 13:27
Как узнать самое большое число в столбце? Dux БД в Delphi 7 04.09.2011 21:22