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

[Игорь™]

у меня вопрос кто поможет мне с програмированем или хоть чемнибуть

[Visual1]

у меня вопрос кто поможет мне с програмированем или хоть чемнибуть

А у меня встречный вопрос. Кто поможет мне с деньгами хоть с какиминибуть.

[demerung]

8888888888888
888888888888888888888888
8888:::8888888888888888888888888
8888::::::8888888888888888888888888888
88::::::::888:::8888888888888888888888888
88888888::::8:::::::::::88888888888888888888
888 8::888888::::::::::::::::::88888888888 888
88::::88888888::::m::::::::::88888888888 8
888888888888888888:M:::::::::::8888888888888
88888888888888888888::::::::::::M88888888888888
8888888888888888888888:::::::::M8888888888888888
8888888888888888888888:::::::M888888888888888888
8888888888888888::88888::::::M88888888888888888888
88888888888888888:::88888:::::M888888888888888 8888
88888888888888888:::88888::::M::;o*M*o;888888888 88
88888888888888888:::8888:::::M:::::::::::88888888 8
88888888888888888::::88::::::M:;:::::::::::888888888
8888888888888888888:::8::::::M::aAa::::::::M8888888888 8
88 8888888888::88::::8::::M:::::::::::::888888888888888 8888
88 88888888888:::8:::::::::M::::::::::;::88:88888888888888888
8 8888888888888:::::::::::M::"@@@@@@@"::::8w8888888888888888
88888888888:888::::::::::M:::::"@a@":::::M8i888888888888888
8888888888::::88:::::::::M88:::::::::::::M88z88888888888888888
8888888888:::::8:::::::::M88888:::::::::MM888!888888888888888888
888888888:::::8:::::::::M8888888MAmmmAMVMM888*88888888 88888888
888888 M:::::::::::::::M888888888:::::::MM88888888888888 8888888
8888 M::::::::::::::M88888888888::::::MM888888888888888 88888
888 M:::::::::::::M8888888888888M:::::mM888888888888888 8888
888 M::::::::::::M8888:888888888888::::m::Mm88888 888888 8888
88 M::::::::::::8888:88888888888888888::::::Mm8 88888 888
88 M::::::::::8888M::88888::888888888888:::::::Mm88888 88
8 MM::::::::8888M:::8888:::::888888888888::::::::Mm8 4
8M:::::::8888M:::::888:::::::88:::8888888::::::::Mm 2
88MM:::::8888M:::::::88::::::::8:::::888888:::M:::::M
8888M:::::888MM::::::::8:::::::::::M::::8888::::M::::M
88888M:::::88:M::::::::::8:::::::::::M:::8888::::::M::M
88 888MM:::888:M:::::::::::::::::::::::M:8888:::::::::M:
8 88888M:::88::M:::::::::::::::::::::::MM:88::::::::::::M
88888M:::88::M::::::::::*88*::::::::::M:88::::::::::::::M
888888M:::88::M:::::::::88@@88:::::::::M::88::::::::::::::M
888888MM::88::MM::::::::88@@88:::::::::M:::8::::::::::::::*8
88888 M:::8::MM:::::::::*88*::::::::::M:::::::::::::::::88@@
8888 MM::::::MM:::::::::::::::::::::MM:::::::::::::::::88@@
888 M:::::::MM:::::::::::::::::::MM::M::::::::::::::::*8
888 MM:::::::MMM::::::::::::::::MM:::MM:::::::::::::::M
88 M::::::::MMMM:::::::::::MMMM:::::MM::::::::::::MM
88 MM:::::::::MMMMMMMMMMMMMMM::::::::MMM::::::::MMM
88 MM::::::::::::MMMMMMM::::::::::::::MMMMMMMMMM
88 8MM::::::::::::::::::::::::::::::::::MMMMMM
8 88MM::::::::::::::::::::::M:::M::::::::MM
888MM::::::::::::::::::MM::::::MM::::::MM
88888MM:::::::::::::::MMM:::::::mM:::::MM
888888MM:::::::::::::MMM:::::::::MMM:::M
88888888MM:::::::::::MMM:::::::::::MM:::M
88 8888888M:::::::::MMM::::::::::::::M:::M
8 888888 M:::::::MM:::::::::::::::::M:::M:
888888 M::::::M:::::::::::::::::::M:::MM
888888 M:::::M::::::::::::::::::::::::M:M
888888 M:::::M:::::::::@::::::::::::::M::M
88888 M::::::::::::::@@:::::::::::::::M::M
88888 M::::::::::::::@@@::::::::::::::::M::M
88888 M:::::::::::::::@@::::::::::::::::::M::M
88888 M:::::m::::::::::@::::::::::Mm:::::::M:::M
8888 M:::::M:::::::::::::::::::::::MM:::::::M:::M
8888 M:::::M:::::::::::::::::::::::MMM::::::::M:::M
888 M:::::Mm::::::::::::::::::::::MMM:::::::::M::::M
8888 MM::::Mm:::::::::::::::::::::MMMM:::::::::m::m:::M
888 M:::::M::::::::::::::::::::MMM::::::::::::M::mm:::M
8888 MM:::::::::::::::::::::::::MM:::::::::::::mM::MM:::M:
M:::::::::::::::::::::::::M:::::::::::::::mM::MM:::Mm
MM::::::m:::::::::::::::::::::::::::::::::::M::MM:::MM
M::::::::M:::::::::::::::::::::::::::::::::::M::M:::MM
MM:::::::::M:::::::::::::M:::::::::::::::::::::M:M:::MM
M:::::::::::M88:::::::::M:::::::::::::::::::::::MM::MMM
M::::::::::::8888888888M::::::::::::::::::::::::MM::MM
M:::::::::::::88888888M:::::::::::::::::::::::::M::MM
M::::::::::::::888888M:::::::::::::::::::::::::M::MM
M:::::::::::::::88888M:::::::::::::::::::::::::M:MM
M:::::::::::::::::88M::::::::::::::::::::::::::MMM
M:::::::::::::::::::M::::::::::::::::::::::::::MMM

[Камея]

Задача в Турбо Паскале.

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

program lab8;
type
rec = record
name: string[20];
more: integer;
average: integer;
few: integer;
end;
var
hit : rec;
f: file of rec;
c: char;
Procedure WriteToFile;
begin
rewrite(f);
writeln('Zapis dannyh v fail');
repeat
write('Vvedite familiju:'); readln(hit.name);
write('Vvedite koli4estvo golosov :'); readln(hit.more);
write('Vvedite koli4estvo golosov :'); readln(hit.average);
write('Vvedite koli4estvo golosov :'); readln(hit.few);
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.name:20, hit.more:5, hit.average:5, hit.few:5);
end;
readln;
end;
Procedure SearchInFile;
begin
reset(f);
writeln('Spisok hitov, imejushih 2:');
while not(eof(f)) do
begin
read(f, hit);
if (hit.more=2) or (hit.average=2) or (hit.few=2) then
writeln(hit.name:20);
end;
readln;
end;

BEGIN
assign(f, 'hit.txt');
repeat
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 2 i bolee golosa');
writeln('4 - vyiti iz programmy');
write('Vash vybor:'); readln©;
case c of
'1' : WriteToFile;
'2' : PrintFromFile;
'3' : SearchInFile;
end;
until c='4';
END.

у меня не выходит, как сделать?

[Камея]

или отдельно нужно тему вынести, тут никто не смотрит?

[Big Joe]

Было бы в Дельфи помог бы. И хранить лучше в XML или в БД наверное, так удобнее.

Сообщение отредактировал Big Joe: 06.11.2009, 11:04:06

[Камея]

Было бы в Дельфи помог бы. И хранить лучше в XML или в БД наверное, так удобнее.

жаль, но мне нужен паскаль

[Visual1]

у меня не выходит, как сделать?

Что именно не выходит? Какие появляются сообщения об ошибках?

[smug]

слушай и филе есть (файл hit.txt)
попробовал скомпилировать вроде ошибок не выдавал

[Visual1]

попробовал скомпилировать вроде ошибок не выдавал

Так что же не выходит-то?

[Камея]

попробовал скомпилировать вроде ошибок не выдавал

Так что же не выходит-то?

на 1 место не выводит хит набравший большинство голосов

[Камея]

слушай и филе есть (файл hit.txt)
попробовал скомпилировать вроде ошибок не выдавал

может скинешь

[Камея]

слушай и филе есть (файл hit.txt)
попробовал скомпилировать вроде ошибок не выдавал

может скинешь

дело не в ошибке, дело в результатах

[Visual1]

на 1 место не выводит хит набравший большинство голосов

Дык, и не будет выводить. Программа сделана так, что выводиться должны только хиты, у которых (hit.more=2) or (hit.average=2) or (hit.few=2). Никакие другие.

О первом месте и хите с большинством голосов в программе вообще нигде не говорится.

[Камея]

на 1 место не выводит хит набравший большинство голосов

Дык, и не будет выводить. Программа сделана так, что выводиться должны только хиты, у которых (hit.more=2) or (hit.average=2) or (hit.few=2). Никакие другие.

О первом месте и хите с большинством голосов в программе вообще нигде не говорится.

а как сделать, чтобы вышло...

[Камея]

Visual1

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

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

Сообщение отредактировал Камея: 06.11.2009, 13:17:46

[Камея]

1)Вывести файлы на экран, у меня не работает, т.е. не выводит
2)не выводит записи хитов

[Visual1]

Visual1

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

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

Увы, я в Паскале полный 0. То есть, вообще не знаю этого языка, и программу написать не могу.

1)Вывести файлы на экран, у меня не работает, т.е. не выводит
2)не выводит записи хитов

1) Наверное, это из-за того, что файл hit.txt не существует (или может, находится не в той же папке, где программа). Прежде чем что-то писать в файл или из читать из файла, этот файл должен быть создан, и открыт для записи и чтения.
2) Программа в том виде, в каком она сейчас, выводит только записи, у которых (hit.more=2) or (hit.average=2) or (hit.few=2). Возможно, в файле просто нет таких записей, поэтому ничего и не выводится.

[Артвал]

Купи хорошую книжку, "для начинающих", внимательно читай, пробуй отрабатывать примеры, решать задачи из книги по пройденным темам. Если по книгам ничего не понимаешь, а учиться очень хочется, найми репетитора с педагогическим опытом.
[/quote]
мне 13 я несмогу нанять а книжку нада искать ну соровно спасибо за совет попробую найти книжку
[/quote]


Учится не когда не рано . А в нете книг валом смотри что тебе надо и бери. Или на курсы ходи там хоть какие нибудь азы получиш. А дальше сам догоняй

[smug]

Visual1

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

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

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

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

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