![Фотография](https://vse.kz/uploads/av-254.jpg?_r=0)
Вопрос - ОтветЗадал вопрос - получил ответ...
#343
Отправлено 01.11.2009, 20:26:55
![](https://vse.kz/public/style_images/osnovnoi34/post_offline.png)
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
#344
Отправлено 06.11.2009, 10:46:46
![](https://vse.kz/public/style_images/osnovnoi34/post_offline.png)
Организовать хранение в файле записей о музыкальных хитах сезона. Каждая запись должна содержать название песни, фамилиию исполнителя, количество голосов, отданных за хит. Написать программу, которая позволяет пользователю ввести запис в файл, вывести из файла список хитов, найти и вывести самый популярный хит.
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.
у меня не выходит, как сделать?
#354
Отправлено 06.11.2009, 13:13:54
![](https://vse.kz/public/style_images/osnovnoi34/post_offline.png)
Дык, и не будет выводить. Программа сделана так, что выводиться должны только хиты, у которых (hit.more=2) or (hit.average=2) or (hit.few=2). Никакие другие.на 1 место не выводит хит набравший большинство голосов
О первом месте и хите с большинством голосов в программе вообще нигде не говорится.
#355
Отправлено 06.11.2009, 13:15:39
![](https://vse.kz/public/style_images/osnovnoi34/post_offline.png)
Дык, и не будет выводить. Программа сделана так, что выводиться должны только хиты, у которых (hit.more=2) or (hit.average=2) or (hit.few=2). Никакие другие.
на 1 место не выводит хит набравший большинство голосов
О первом месте и хите с большинством голосов в программе вообще нигде не говорится.
а как сделать, чтобы вышло...
#358
Отправлено 06.11.2009, 13:36:45
![](https://vse.kz/public/style_images/osnovnoi34/post_offline.png)
Увы, я в Паскале полный 0. То есть, вообще не знаю этого языка, и программу написать не могу.Visual1
если знаете код программы напишите плиз
/я в этом деле лузер или чайник/
![:rotate:](http://vse.kz/public/style_emoticons/default/frown.gif)
1) Наверное, это из-за того, что файл hit.txt не существует (или может, находится не в той же папке, где программа). Прежде чем что-то писать в файл или из читать из файла, этот файл должен быть создан, и открыт для записи и чтения.1)Вывести файлы на экран, у меня не работает, т.е. не выводит
2)не выводит записи хитов
2) Программа в том виде, в каком она сейчас, выводит только записи, у которых (hit.more=2) or (hit.average=2) or (hit.few=2). Возможно, в файле просто нет таких записей, поэтому ничего и не выводится.
#359
Отправлено 06.11.2009, 14:00:27
![](https://vse.kz/public/style_images/osnovnoi34/post_offline.png)
[/quote]
мне 13 я несмогу нанять а книжку нада искать ну соровно спасибо за совет попробую найти книжку
[/quote]
Учится не когда не рано . А в нете книг валом смотри что тебе надо и бери. Или на курсы ходи там хоть какие нибудь азы получиш. А дальше сам догоняй
#360
Отправлено 06.11.2009, 14:51:57
![](https://vse.kz/public/style_images/osnovnoi34/post_offline.png)
что за лолVisual1
если знаете код программы напишите плиз
/я в этом деле лузер или чайник/
![:rotate:](http://vse.kz/public/style_emoticons/default/smile.gif)
выложите файл Hit.txt(какая там структура)
и почему вы у меня просите скинуть файл я же не автор
to visual1 я то причем я просто попробовал приведенный код скомпилировать
Количество пользователей, читающих эту тему: 1
пользователей: 0, неизвестных прохожих: 1, скрытых пользователей: 0