0 / 0 / 0
Регистрация: 22.09.2015
Сообщений: 9
1

Проверить, являются ли числа в файле упорядоченными по возрастанию

22.09.2015, 12:15. Показов 2946. Ответов 5
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Здравствуйте.
Задача : Пусть дан файл целых чисел (типизированный). Проверить , являются ли числа в файле упорядоченными по возрастанию.
мое :
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
uses crt;
type 
   input = integer;
var
    f: file of input ;
    c, i: integer;
    n_elements:integer;
    flag:boolean;
    e:array[1..100] of integer;
begin
    assign (f, 'input.dat');
    reset (f);
    i:=0;
   while not(eof(f)) do  
   begin
        inc(i);
        readln(f, e[i]);
    end;
    n_elements:=i;
    i:=1;
    flag:=true;
    while (flag) and (i< n_elements) do
    begin
        flag:= e[i]<e[i+1];
        inc(i);
    end;
    Writeln(flag);
    readln;
    readln
end.
Помогите, не работает, не пойму в чем ошибка
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.09.2015, 12:15
Ответы с готовыми решениями:

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

Процедуры: проверить, являются ли массивы G(20) и H(30) упорядоченными по возрастанию
Задание: Проверить, являются ли массивы G(20) и H(30) упорядоченными по возрастанию. Я вот написал...

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

Являются ли числа в файле упорядоченными по возрастанию
1. Пусть дан файл из вещественных чисел. Определить, является ли числа в файле упорядоченными по...

5
CAPITAL OF ROCK!
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
22.09.2015, 13:38 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
const
    ans: Array[Boolean] Of String[11] = ('Not ordered', 'Ordered');
var
    state: Boolean;
    f: File Of Integer;
    fi1, fi2: Integer;
begin
    Assign(f, 'input.dat'); ReSet(f);
    state := True;
    if (FileSize(f) > 2)
    then
    begin
        Read(f, fi1);
        while ((Not EoF(f)) And (state)) do
        begin
            Read(f, fi2);
            state := fi1 < fi2;
            fi1 := fi2;
        end;
    end;
    Close(f);
    WriteLn(ans[state]);
end.
0
0 / 0 / 0
Регистрация: 22.09.2015
Сообщений: 9
22.09.2015, 14:16  [ТС] 3
JokeR.BY, в 10 строке пишет ошибка времени выполнения bad typed file size
0
CAPITAL OF ROCK!
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
22.09.2015, 14:25 4
AdelleDragonfly, а файл как таковой то существует?
0
Эксперт Pascal/Delphi
6811 / 4568 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
22.09.2015, 14:26 5
AdelleDragonfly, так как Девочка_Летающая_На_Драконе файл input.dat не предоставила, то разговор ниачомваще.
Покажите каким именно образом был вами создан файл.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7785 / 4611 / 2827
Регистрация: 22.11.2013
Сообщений: 13,106
Записей в блоге: 1
22.09.2015, 16:25 6
JokeR.BY,
Pascal
10
    if FileSize(f) > 1

Не по теме:

ZX Spectrum-128, dragonfly -- стрекоза ;-)

0
22.09.2015, 16:25
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.09.2015, 16:25
Помогаю со студенческими работами здесь

Определить, являются ли числа в файле упорядоченными по возрастанию
2. Пусть дан файл целых чисел. Определите, являются ли числа в файле упорядоченными по возрастанию.

Определить, являются ли числа в файле упорядоченными по возрастанию
Пусть дан файл целых чисел. Определите, являются ли числа в файле упорядоченными по возрастанию....

Определить являются ли числа упорядоченными по возрастанию
Здравствуйте ,вот есть такая задачка и ни как не могу с ней разобраться ,может кто то поможет?Надо...

При каком условии числа A,B,C не являются упорядоченными по возрастанию?
При каком условии числа A,B,C не являются упорядоченными по возрастанию: a) (A&lt;=B) AND (B&lt;=C);...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru