Сообщений в теме: 764

[Камея]

Visual1

если знаете код программы напишите плиз

/я в этом деле лузер или чайник/

что за лол а код который вы привели это что за код?
выложите файл Hit.txt(какая там структура)

и почему вы у меня просите скинуть файл я же не автор

to visual1 я то причем я просто попробовал приведенный код скомпилировать

я вас не поняла, про какой hit.txt писали, в начале, а потом поняла что вы мою прогу проверяли скомпелировав, а у меня она hit.txt не называется 1000000.pas)))

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

[Visual1]

to visual1 я то причем я просто попробовал приведенный код скомпилировать

Да понятно, что ни причем. А после компиляции программку запускать не пробовали? Пишет ли она в файл /читает ли из файла?

[Камея]

to visual1 я то причем я просто попробовал приведенный код скомпилировать

Да понятно, что ни причем. А после компиляции программку запускать не пробовали? Пишет ли она в файл /читает ли из файла?

пишет и читает, вот только не выводит результаты, код где-то нужно дописать, 2 -действие выбираю, а она мне меню только выводить (см ссылку)

http://foto.mail.ru/...myphoto/27.html

[Big Joe]

сейчас скачаю Паскаль

[Камея]

сейчас скачаю Паскаль

ой спасибо, хоть кто-то отозвался!

[Visual1]

пишет и читает, вот только не выводит результаты, код где-то нужно дописать, 2 -действие выбираю, а она мне меню только выводить (см ссылку)

http://foto.mail.ru/...myphoto/27.html

Вот хорошо, что снимок экрана дали. Так более наглядно. На снимке видно, что при выборе 2-го действия ничего не делается, только заново выводится главное меню программы.

Попробуйте делать так. Выберите в главном меню действие 1, и когда отвечаете на вопрос "Введите количество голосов", хотя бы для одного исполнителя ответьте 2. Затем в главном меню программы вновь выберите 2-е действие ("Вывести записи на экран"). Изменилось ли поведение программы? Что теперь у вас получается?

[Камея]

сейчас попробую

[Камея]

http://foto.mail.ru/...myphoto/28.html

ничего не вышло

[Камея]

я некоторые списала с методички, а сейчас думаю "почему я написала в меню 1 -и ввести новую запись и уничтожит предварительный запись", а далее 2- меню она не выводит даже первую запись, темный лес для меня этот паскаль

[Big Joe]

smug дело говорит, какая должна быть структура у файла Hit.txt ? Как данные должны в нем хранится?

[Камея]

smug дело говорит, какая должна быть структура у файла Hit.txt ? Как данные должны в нем хранится?

я сама не понимаю задачку

[Камея]

и поэтому прошу помощи, я из примера какого-то взяла.
вначале была цель, чтобы хоть черный экран вышел.
а задачку свою незнаю как решить, hit.txt не выходит

[Big Joe]

Что бы решить задачу, нужно хотя бы ее придумать. А писать весь код с нуля, вряд ли кто возьмется.

[Visual1]

Камея

Попробуйте сделать пару записей в вашей программе, затем выйдите из нее (действие <4>). Проверьте, существует ли файл Hit.txt в текущей директории (там же, где находится .exe файл вашей программы). Для этого в окне командной строки введите команду:

dir

Если файл с именем Hit.txt есть, то это имя будет показано в списке файлов на экране. Тогда из этой же командной строки введите команду

type Hit.txt

На экран будет выведено содержимое файла Hit.txt. Это позволяет посмотреть, остаются ли в этом файле хоть какие-то записи при работе вашей программы.

[smug]

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

Не дуйся детка все там работает
Когда пишет вот это 'Budut li e6e zapisi (da - 1)' если хочеш добавить жми 1 если нет Enter просто

пропиши полный путь к файлу

форум меняет (с) на ©

Сообщение отредактировал smug: 06.11.2009, 16:54:21

[Vit_Nik]

Вот так примерно должна выглядеть программка, согласно заданию:

program lab8;
uses crt;
type
rec = record
nazv: string[20];
fam: string[20];
kol_gol: integer;
end;
var
hit, hit1 : rec;
f: file of rec;
c: char;

procedure WriteToFile;
begin
c:='1';
rewrite(f);
writeln('Zapis dannyh v fail');
repeat
write('Vvedite nazvanie pesni:'); readln(hit.nazv);
write('Vvedite familiu ispolnitelya :'); readln(hit.fam);
write('Vvedite koli4estvo golosov :'); readln(hit.kol_gol);
write(f, hit);
writeln('Budut li e6e zapisi (da - 1)');
readln©;
until c<>'1';
close (f);
end;

Procedure PrintFromFile;
begin
reset(f);
writeln('Spisok hitov:');
while not(eof(f)) do
begin
read(f, hit);
writeln(hit.nazv:20, hit.fam:5, hit.kol_gol);
end;
readln;
end;

Procedure SearchInFile;
var max:integer;
begin
reset(f);
writeln('Pesnya c naibol6im koli4estvom golosov');
max:=1;
while not(eof(f)) do
begin
read(f, hit);
if hit.kol_gol>max then begin
max:=hit.kol_gol;
hit1.nazv:=hit.nazv;
hit1.fam:=hit.fam;
hit1.kol_gol:=hit.kol_gol
end;
end;
writeln(hit1.nazv:20,hit1.fam:20,hit1.kol_gol);
readln;
end;

BEGIN
ClrScr;
assign(f, 'hit.txt');
while (c <>'4') do begin
writeln('Menu programmy:');
writeln('1 - Vvesti zapisi v file s uni4tozheniem pred.zapisei');
writeln('2 - Vyvesti zapisi iz faila na ekran');
writeln('3 - vyvesti zapisi hitov, imejushih naibol6ee kol golosov');
writeln('4 - vyiti iz programmy');
write('Vash vybor:');
readln©;
case c of
'1' : WriteToFile;
'2' : PrintFromFile;
'3' : SearchInFile;
end;
end
END.

Работать буит....

[Visual1]

Вот так примерно должна выглядеть программка, согласно заданию:
...
Procedure SearchInFile;
var max:integer;
begin
reset(f);
writeln('Pesnya c naibol6im koli4estvom golosov');
max:=1;
while not(eof(f)) do
begin
read(f, hit);
if hit.kol_gol>max then begin
max:=hit.kol_gol;
hit1.nazv:=hit.nazv;
hit1.fam:=hit.fam;
hit1.kol_gol:=hit.kol_gol
end;
end;
writeln(hit1.nazv:20,hit1.fam:20,hit1.kol_gol);
readln;
end;
...
...Работать буит....

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

Препод, который дал это задание, оказался не так прост! (Подсказка: здесь от студента требуется реализация алгоритма сортировки массива чисел.)

[Vit_Nik]

Так она и выводит одну единственную запись из всех. Смотрите внимательней. Осуществлен поиск макс значения поля KOL_GOL. А упорядочивание или сортировка здесь не требуется. Задача тривиальная...

[Visual1]

Стараюсь смотреть внимательней. Выводится не единственная запись с максимальным kol_gol, а каждая, у которой kol_gol будет больше, чем у предыдущей.

Например, записи расположены в строго возрастающем порядке:

Киркоров - 3 голоса
Орбакайте - 5 голосов
Пугачева - 7 голосов

Будет выведена каждая из этих записей, потому что при чтении каждой следующей записи значение hit.kol_gol будет больше, чем текущее значение переменной max.

[Vit_Nik]

выводится одна запись hit1.... у кот kol_gol = max