За один просмотр файла вывести сначала все числа, меньшие а

@Fake_Man · Регистрация: 08.12.2009

Товарищи, помогите написать программу. С меня вознаграждение в размере 100-150 рублей.
Условие таково:
Дано: type fr = file of real; f:fr; var a,b:real. За один просмотр файла f вывести сначала все числа, меньшие а, затем все числа, принадлежащие отрезку [a,b], затем все числа, большие b, сохраняя их взаимный порядок в каждой из указанных групп.
Обращаюсь так, потому что время поджимает. Зачетная неделя

Также необходима блок-схема.

@WolfCF · 22.12.2009, 19:33

вам тогда сразу в раздел фриланс.

@Fake_Man · 22.12.2009, 19:48 **[ТС]**

Спасибо. Не знал про существование данного раздела.

@Aye Aye · 22.12.2009, 20:09

Pascal

program prg;
uses crt;
var
    output: file of real;
    input: TEXT;
    a,b: real;
    filename: string;
    x: real;
    greterB,inAB:array[1..50] of real;
    i,j,k: integer;
    ansver: char;
 
begin
     writeln('Rewrite/create file.rl from test.txt? y/n');
     readln(ansver);
 
     writeln('Input a, b');
     write('a=');readln(a);
     write('b=');readln(b);
 
     assign(output,'test.rl');
     assign(input,'test.txt');
 
     if ansver ='y' then begin
 
        rewrite(output);
        reset(input);
 
        while not eof(input) do begin
              readln(input,x);
              write(output,x);
        end;
        close(input);
     end;
     reset(output);
     i:=0;{index for greterB }
     j:=0;{index for inAB}
     writeln('x < a');
     while not eof(output) do begin
           read(output,x);
           if x < a then writeln(x);
           if (x >= a) and (x <= b) then begin
              inAB[j]:=x;
              j:=j+1;
           end;
           if x > b then begin
              greterB[i]:=x;
              i:=i+1;
           end;
     end;
     writeln('x in [a..b]');
     for k:=1 to j do writeln(inAB[k]);
     writeln('x > b');
     for k:=1 to i do writeln(greterB[k]);
     close(output);
     readkey;
end.

test.txt

Код

@Fake_Man · 22.12.2009, 20:19 **[ТС]**

Елки-палки, я так скоро и в Деда Мороза поверю

Aye Aye, спасибо огромное. Осталось разобраться, как это работает.

@Aye Aye · 22.12.2009, 20:38

output: file of real; выходной файл где числа записаны в виде real
input: TEXT; входной текстовый файл, где записаны числа в виде текста.
a,b: real; границы интервала
filename: string; это не надо, зыбыл удалить
x: real; считываемое из файла очередное значение
greterB,inAB:array[1..50] of real; массивы со считанными числами
i,j,k: integer;просто счетчики для массивов.
ansver: char;выбор пользователя. насчет перезаписи файла.

алгоритм такой:
сначал узнаем у пользовател надо ли создать/переписать файл с real.
если надо то открывем файл файл с текстом и переписываем из него числа в файл с real

проходим по файлу считывая чило:
если оно меньше, а то можно его вывести прямо сейчас не занося ни в какой массив.
если оно принадлежин интервалу от а до b, то запишим его в массив_числе_в_интревале.
если оно больше b, то записываем его в массив_чисел_больше_b.

выводим массивы на экран.

@Fake_Man · 22.12.2009, 22:34 **[ТС]**

Блин, не могу понять. Он создает новый файл в директории паскаля, но ничего в него не вписывает и ничего не выводит на экран. Вернее выводит следующее:
x < a
x in [a..b]
x > b
Кстати, на предложение создать новый файл, программа что на да, что на нет реагирует одинаково.

@Aye Aye · 23.12.2009, 18:18

Cам этот test.txt файл делал? Сдается мне что ты пустой файл проге подсунул.
Мой файл test.txt, тот что прикреплен к посту с прогой, пробовал?

в файле действительне числа длжны быть встолбик записаны.

@Fake_Man · 23.12.2009, 22:53 **[ТС]**

Aye Aye, все, разобрался. Замечательно работает.
Не могли бы Вы мне подсказать, в каком месте нужно добавить формат вывода (0:2 к примеру), что не могу понять.
И подскажите еще, это нормально, что в выходном файле цифры записаны в виде таких иероглифов: †
ЧЈрґ…й&1Iѓљ™™™i‚I.я!©Љ
ЧЈP=† p Љ Р6„…лQЋѓ…лQё&…333і№ЃГх(\ѓ ` ?

@Aye Aye · 24.12.2009, 09:14

формат вывода чисел в Паскале:
writeln(переменная:число_знаком_до_запятой:число_з наков_после_запятой);
пример:
X=151451.12411612;
writeln(X:4:2);
на экране будет:
1451.12

а насчет белеберды в выходном фйле: у тебя же выходной файл не текстовый, а файл действительных! чисел (по заданию так)!! сответственно там не символы (буквы) хранятся а числа типа real (действительные).

в тесктовомфайле на один символ - один байт.
а на одно real число надо 6 байт.
в файле real чисел находятся группы по 6 байт, каждая из которых - real число.
когда блокнот или еще какой нибудь редактор открывает такой файл он пытается прочитать его как текстовый файл т. е. файл где один байт - один элемент (буква). но у нас то там 6 байт - один элемент (действительное число).

@Dnnn · 24.12.2009, 10:51

Сообщение от Aye Aye

writeln(переменная:число_знаком_до_запятой:число_з наков_после_запятой);
пример:
X=151451.12411612;
writeln(X:4:2);
на экране будет:
1451.12

одна мелкая поправка
write(переменная: ЧислоЗнаковВсего (на целую и дробную часть, включая десятичную точку): число знаков после запятой);
если числаЗнаковВсего мало на вывод переменной, то это число проигнорируется и напечатается сколько надо.

@Fake_Man · 24.12.2009, 20:42 **[ТС]**

Большое спасибо вам, господа. Во всем разобрался, программа работает корректно.

Добавлено через 1 час 48 минут

Pascal

program prg;
label cv;
var
    output: file of real;
    input: TEXT;
    a,b: real;
    filename: string;
    x: real;
    greterB,inAB:array[1..50] of real;
    i,j,k: integer;
    ansver,y,n: char;
 
begin
     assign(output,'test.rl');
     assign(input,'test.txt');
     writeln('Rewrite/create file.rl from test.txt? y/n');
     readln(ansver);
     if ansver ='n' then writeln('Press Enter for exit') and goto cv else
     if ansver ='y' then begin
        writeln('Input a, b');
     write('a=');readln(a);
     write('b=');readln(b);
 
        rewrite(output);
        reset(input);
 
        while not eof(input) do begin
              readln(input,x);
              write(output,x);
        end;
        close(input);
     end;
     reset(output);
     i:=0;{index for greterB }
     j:=0;{index for inAB}
     writeln('x < a');
     while not eof(output) do begin
           read(output,x);
           if x < a then writeln(x:0:2);
           if (x >= a) and (x <= b) then begin
              inAB[j]:=x;
              j:=j+1;
           end;
           if x > b then begin
              greterB[i]:=x;
              i:=i+1;
           end;
     end;
     writeln('x in [a..b]');
     for k:=1 to j do writeln(inAB[k]:0:2);
     writeln('x > b');
     for k:=1 to i do writeln(greterB[k]:0:2);
     close(output);
     cv:
     readln
     end.

Товарищи, я решил тут еще немного поизвращаться над этой программкой. Дело в том, что в начале, когда она запрашивает переписать файл? y/n, на n не предусмотрено ничего, и программа все равно выполняет всю работу.
В общем попытался с помощью меток и if это исправить, а компилятор настоятельно ругается на and. Прошу, объясните мне несведущему, как это правильно сделать.

@Fake_Man · 25.12.2009, 23:13 **[ТС]**

[QUOTE=Fake_Man;439504]Большое спасибо вам, господа. Во всем разобрался, программа работает корректно.

Добавлено через 1 час 48 минут

Pascal

program prg;
label cv;
var
    output: file of real;
    input: TEXT;
    a,b: real;
    filename: string;
    x: real;
    greterB,inAB:array[1..50] of real;
    i,j,k: integer;
    ansver,y,n: char;
 
begin
     assign(output,'test.rl');
     assign(input,'test.txt');
     writeln('Rewrite/create file.rl from test.txt? y/n');
     readln(ansver);
     if ansver ='n' then writeln('Press Enter for exit') and goto cv else
     if ansver ='y' then begin
        writeln('Input a, b');
     write('a=');readln(a);
     write('b=');readln(b);
 
        rewrite(output);
        reset(input);
 
        while not eof(input) do begin
              readln(input,x);
              write(output,x);
        end;
        close(input);
     end;
     reset(output);
     i:=0;{index for greterB }
     j:=0;{index for inAB}
     writeln('x < a');
     while not eof(output) do begin
           read(output,x);
           if x < a then writeln(x:0:2);
           if (x >= a) and (x <= b) then begin
              inAB[j]:=x;
              j:=j+1;
           end;
           if x > b then begin
              greterB[i]:=x;
              i:=i+1;
           end;
     end;
     writeln('x in [a..b]');
     for k:=1 to j do writeln(inAB[k]:0:2);
     writeln('x > b');
     for k:=1 to i do writeln(greterB[k]:0:2);
     close(output);
     cv:
     readln
     end.

Добавлено через 3 минуты
Помогите пожалуйста разобраться с одним нюансом. Мне забраковали эту лабу, сославшись на то, что в программе не используются ссылки(лаба на ссылочные типы). Может кто-нибудь объяснить принцип действия программы в таком случае? Ибо мне совсем непонятно каким образом и вообще зачем здесь нужны динамические структуры.

@Aye Aye · 25.12.2009, 23:18

а что конкретно спросил препод? Что он сказал сделать? Дословно пожалуйста

. А то так совсем не очевидно что имеется ввиду.

@Fake_Man · 26.12.2009, 10:38 **[ТС]**

"Задача решена верно, но необходимо (по заданию лабы) использовать динамические структуры, в данном случае списки."
Ну как я понимаю, после считывания информации из первого файла, каждому числу нужно присвоить свое место(ссылку) и потом, ориентируясь на ссылки, вывести информацию на экран. Но это как я понял, поправьте меня, если я не прав.

@Aye Aye · 26.12.2009, 11:58

что же ты раньше не сказал? Или мне должно быть очевидно что от тебя преод требует? Налицо полная безолаберность. Берись за ум! разбираться в проге сам будешь.

Pascal

program prg;
uses crt;
type
    ptrnode=^node;
    node=record
               info: real;
               next: ptrnode;
    end;
 
procedure push(var l:ptrnode;x:real);
begin
     if l=nil then begin
        new (l);
        l^.info:=x;
        l^.next:=nil;
     end else push(l^.next,x);
end;
 
procedure print(l:ptrnode);
begin
     if l <> nil  then begin
        writeln(l^.info);
        print(l^.next);
     end;
end;
 
procedure delete(l:ptrnode);
begin
     if l<>nil then begin
        delete(l^.next);
        dispose(l);
     end;
end;
 
function get(l:ptrnode;i:integer):real;
begin
     if (l <> nil) and (i=1) then begin
        get:=l^.info;
     end else
     if l <> nil then get:=get(l^.next,i-1);
end;
 
var
    output: file of real;
    input: TEXT;
    a,b: real;
    filename: string;
    x: real;
    greterB,inAB:array[1..50] of real;
    i,j,k: integer;
    ansver: char;
    list: ptrnode;
begin
     clrscr;
     writeln('Rewrite/create file.rl from test.txt? y/n');
     readln(ansver);
 
     writeln('Input a, b');
     write('a=');readln(a);
     write('b=');readln(b);
 
     assign(output,'test.rl');
     assign(input,'test.txt');
 
     if ansver ='y' then begin
 
        rewrite(output);
        reset(input);
 
        while not eof(input) do begin
              readln(input,x);
              write(output,x);
        end;
        close(input);
     end;
     reset(output);
     i:=0;{index for greterB }
     j:=0;{index for inAB}
     while not eof(output) do begin
           read(output,x);
           push(list,x);
           i:=i+1;
     end;
     close(output);
     print(list);
     writeln('----------------------');
     writeln('x <= a');
     for j:=1 to i do begin
         x:=get(list,j);
         if x < a then writeln(x);
     end;
 
     writeln('x in [a..b]');
     for j:=1 to i do begin
         x:=get(list,j);
         if (x >= a) and (x<=b)then writeln(x);
     end;
 
     writeln('x >= b');
     for j:=1 to i do begin
         x:=get(list,j);
         if x >= b then writeln(x);
     end;
 
     delete(list);
     readkey;
end.

@Fake_Man 0 / 0 / 0 Регистрация: 08.12.2009 Сообщений: 32
		1
	За один просмотр файла вывести сначала все числа, меньшие а 22.12.2009, 19:22. Показов 1791. Ответов 15 Метки нет (Все метки) Товарищи, помогите написать программу. С меня вознаграждение в размере 100-150 рублей. Условие таково: Дано: type fr = file of real; f:fr; var a,b:real. За один просмотр файла f вывести сначала все числа, меньшие а, затем все числа, принадлежащие отрезку [a,b], затем все числа, большие b, сохраняя их взаимный порядок в каждой из указанных групп. Обращаюсь так, потому что время поджимает. Зачетная неделя Также необходима блок-схема. 0

@WolfCF 3309 / 1371 / 110 Регистрация: 28.04.2009 Сообщений: 4,822
	22.12.2009, 19:33	2
	вам тогда сразу в раздел фриланс. 0

@Fake_Man 0 / 0 / 0 Регистрация: 08.12.2009 Сообщений: 32
	22.12.2009, 19:48 [ТС]	3
	Спасибо. Не знал про существование данного раздела. 0

@Fake_Man 0 / 0 / 0 Регистрация: 08.12.2009 Сообщений: 32
	22.12.2009, 20:19 [ТС]	5
	Елки-палки, я так скоро и в Деда Мороза поверю Aye Aye, спасибо огромное. Осталось разобраться, как это работает. 0

@Aye Aye 372 / 286 / 97 Регистрация: 17.12.2009 Сообщений: 567
	22.12.2009, 20:38	6
	output: file of real; выходной файл где числа записаны в виде real input: TEXT; входной текстовый файл, где записаны числа в виде текста. a,b: real; границы интервала filename: string; это не надо, зыбыл удалить x: real; считываемое из файла очередное значение greterB,inAB:array[1..50] of real; массивы со считанными числами i,j,k: integer;просто счетчики для массивов. ansver: char;выбор пользователя. насчет перезаписи файла. алгоритм такой: сначал узнаем у пользовател надо ли создать/переписать файл с real. если надо то открывем файл файл с текстом и переписываем из него числа в файл с real проходим по файлу считывая чило: если оно меньше, а то можно его вывести прямо сейчас не занося ни в какой массив. если оно принадлежин интервалу от а до b, то запишим его в массив_числе_в_интревале. если оно больше b, то записываем его в массив_чисел_больше_b. выводим массивы на экран. 0

@Fake_Man 0 / 0 / 0 Регистрация: 08.12.2009 Сообщений: 32
	22.12.2009, 22:34 [ТС]	7
	Блин, не могу понять. Он создает новый файл в директории паскаля, но ничего в него не вписывает и ничего не выводит на экран. Вернее выводит следующее: x < a x in [a..b] x > b Кстати, на предложение создать новый файл, программа что на да, что на нет реагирует одинаково. 0

@Aye Aye 372 / 286 / 97 Регистрация: 17.12.2009 Сообщений: 567
	23.12.2009, 18:18	8
	Cам этот test.txt файл делал? Сдается мне что ты пустой файл проге подсунул. Мой файл test.txt, тот что прикреплен к посту с прогой, пробовал? в файле действительне числа длжны быть встолбик записаны. 0

@Fake_Man 0 / 0 / 0 Регистрация: 08.12.2009 Сообщений: 32
	23.12.2009, 22:53 [ТС]	9
	Aye Aye, все, разобрался. Замечательно работает. Не могли бы Вы мне подсказать, в каком месте нужно добавить формат вывода (0:2 к примеру), что не могу понять. И подскажите еще, это нормально, что в выходном файле цифры записаны в виде таких иероглифов: † ЧЈрґ…й&1Iѓљ™™™i‚I.я!©Љ ЧЈP=† p Љ Р6„…лQЋѓ…лQё&…333і№ЃГх(\ѓ ` ? 0

@Aye Aye 372 / 286 / 97 Регистрация: 17.12.2009 Сообщений: 567
	24.12.2009, 09:14	10
	формат вывода чисел в Паскале: writeln(переменная:число_знаком_до_запятой:число_з наков_после_запятой); пример: X=151451.12411612; writeln(X:4:2); на экране будет: 1451.12 а насчет белеберды в выходном фйле: у тебя же выходной файл не текстовый, а файл действительных! чисел (по заданию так)!! сответственно там не символы (буквы) хранятся а числа типа real (действительные). в тесктовомфайле на один символ - один байт. а на одно real число надо 6 байт. в файле real чисел находятся группы по 6 байт, каждая из которых - real число. когда блокнот или еще какой нибудь редактор открывает такой файл он пытается прочитать его как текстовый файл т. е. файл где один байт - один элемент (буква). но у нас то там 6 байт - один элемент (действительное число). 0

@Dnnn 1063 / 130 / 34 Регистрация: 09.10.2009 Сообщений: 271
	24.12.2009, 10:51	11
	Сообщение от Aye Aye writeln(переменная:число_знаком_до_запятой:число_з наков_после_запятой); пример: X=151451.12411612; writeln(X:4:2); на экране будет: 1451.12 одна мелкая поправка write(переменная: ЧислоЗнаковВсего (на целую и дробную часть, включая десятичную точку): число знаков после запятой); если числаЗнаковВсего мало на вывод переменной, то это число проигнорируется и напечатается сколько надо. 0

Опции темы

@Aye Aye 372 / 286 / 97 Регистрация: 17.12.2009 Сообщений: 567
	25.12.2009, 23:18	14
	а что конкретно спросил препод? Что он сказал сделать? Дословно пожалуйста . А то так совсем не очевидно что имеется ввиду. 0

@Fake_Man 0 / 0 / 0 Регистрация: 08.12.2009 Сообщений: 32
	26.12.2009, 10:38 [ТС]	15
	"Задача решена верно, но необходимо (по заданию лабы) использовать динамические структуры, в данном случае списки." Ну как я понимаю, после считывания информации из первого файла, каждому числу нужно присвоить свое место(ссылку) и потом, ориентируясь на ссылки, вывести информацию на экран. Но это как я понял, поправьте меня, если я не прав. 0