Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Slava 12
0 / 0 / 0
Регистрация: 06.03.2013
Сообщений: 7
#1

Найти порядковый номер минимального числа в файле - Pascal ABC

06.03.2013, 20:06. Просмотров 508. Ответов 1
Метки нет (Все метки)

Имеется файл с числами. Найти порядковый номер минимального числа в файле. Если таких чисел несколько, найти номер первого из них. Размер файла неизвестен.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.03.2013, 20:06
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти порядковый номер минимального числа в файле (Pascal ABC):

Найти порядковый номер минимального элемента - Pascal ABC
Найти порядковый номер минимального элемента Nck, программу выкладывайте не картинкой, а текстом - проявите уважение к тем, кто...

Найти порядковый номер и значение первого числа - Pascal ABC
Найти порядковый номер и значение первого числа, большего заданного А(А<15),у последовательности: 1/1; 1/1+1/2; 1/1+1/2+1/3; ...

Массив. Определить порядковый номер минимального элемента - Pascal ABC
В массиве хранится информация о стоимости 1 килограмма 30 видов конфет.Определить порядковый номер самого дешевого вида конфет.Если таких...

Умножить элементы массива P(N) на порядковый номер минимального элемента - Pascal ABC
Даны массивы P(N) и R(N). Образовать новый массив Q(N) путем умножения элементов массива P(N) на порядковый номер минимального элемента...

Последовательность из n целых чисел. Определить порядковый номер минимального элемента последовательности - Pascal ABC
Ребят сам в паскале не шарю, Вроде все написал правильно, но где то ошибка.... Если не сложно подскажите :) Program V16 Var x:...

Даны два вещественных числа P и R. Найти порядковый номер элемента массива A размерности N, который наиболее близкий к их разности - Pascal ABC
Даны два вещественных числа P и R. Найти порядковый номер элемента массива A размерности N, который наиболее близкий к их разности.

1
Kodzaev
3002 / 1891 / 611
Регистрация: 30.04.2011
Сообщений: 3,054
06.03.2013, 23:46 #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
Uses crt;
Var
  f: File of Integer;
  i,min,x,imin: Integer;
  s: String;
BEGIN
Try
  Writeln('Введите полное имя файла: ');
  Readln(s);
  Assign(f,s);
  Reset(f);
  min:=Maxint;
  Writeln('Файл:');
  For i:=0 to Filesize(f)-1 do
  begin
    Seek(f,i);
    Read(f,x);
    Write(x,' ');
  end;
  For i:=Filesize(f)-1 downto 0 do
  begin
    Seek(f,i);
    Read(f,x);
    If x<min Then
    begin
      min:=x;
      imin:=i+1;
    end;
  end;
  Writeln;
  Writeln('Мин = ',min,' его номер = ',imin);
  Close(f);
Except
  Writeln('Файл не найден');
end;
END.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.03.2013, 23:46
Привет! Вот еще темы с ответами:

В типизированном файле 20 чисел. Увеличить в 2 раза все элементы, чей порядковый номер кратен 3 - Pascal ABC
11. В типизированном файле 20 чисел. Увеличить в 2 раза все элементы, чей порядковый номер кратен 3. Вывести на экран все значения из файла.

Определить порядковый номер числа, отличного от остальных - Pascal ABC
Даны четыре целых числа одно из которых отлично от трех других, равных между собой. Определить порядковый номер числа отличного от...

Найти номер максимального и номер минимального из чисел - Pascal ABC
Даны натуральное число n и целые числа a1,a2,...,an. Необходимо найти номер максимального и номер минимального из чисел a1,...,an. Если...

вывести порядковый номер максимального числа и само число - Pascal ABC
1)Вводится последовательность целых чисел до тех пор, пока не будет введено число 0. После ввода числа 0 программа должна завершить свою...


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

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

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