«Одноклассники» — фамилия — месяц и год рождения — номер телефона Составить типизированный файл. Данные вводить в файл. Производить поиск по фамилии, а также именинников одного месяц рождения и выводить результаты на экран и в другой файл. В случае отсутствия человека с заданной фамилией выводить соответствующее сообщение. Добавлять записи в файл. Сортировать данные по фамилии.
Незнаю вобще как это делать.Помогите кто знает ПЖ!
Код к задаче: «Создать базу данных «Одноклассники»»
Листинг программы
program Zadanie6; uses crt; type odnoklassniki=record fam:string[30]; mec:iteger; nom:integer; end; type fil=file of odnoklassniki; mas=array[1..5] of odnoklassniki; var f,od,q:fil; d,y,:plan; a:mas; f1:string; i,n,m,k,l:integer; flag:boolean; procedure sozd(var f:fil); begin clrscr; assign(f,’odnoklassniki.txt’); rewrite(f); write(‘Введите количество фамилий: ‘); readln(k); writeln; for m:=1 to k do begin with d do write(‘Введите фамилию: ‘); readln(fam); write(‘Введите месяц и год рождения: ‘); readln(mec); write(‘Введите номер телефона: ‘); readln(nom); writeln; end; write(f,d); end; close(f); writeln(‘Для выхода нажмите ENTER’); readkey; end; procedure mk (var f:fil); begin clrscr; flag:=false; assign(od,’odnaklassniki2.txt’); write(‘Введите фамилию: ‘); readln(f1); writeln; reset(f); rewrite(od); while not eof(f) do begin read(f,d); with d do begin if f1=fam then begin flaf:=true; write(‘Фамилия: ‘); writeln(fam); write(‘Месяц и год рождения: ‘); writeln(mec); write(‘Номер телефона: ‘); writeln(nom); write(od,d); writeln; end; end; end; if flag=false then writeln(‘Такой фамилии нет!’); close(od); close(f); writeln(‘Для выхода нажмите ENTER’); readkey; end; procedure dob(var f:fil); begin clrscr; write(‘Введите количество новых данных которые вы хотите добавить:’); readln(n); writeln; assign(f,’odnoklassniki.txt’); reset(f); seek(f,filesize(f)); for i:=1 to n do begin with d do begin write(‘Введите фамилию: ‘); readln(fam); write(‘Введите месяц и год рождения: ‘); readln(mec); write(‘Введите номер телефона: ‘); readln(nom); writeln; write(f,d); end; end; close(f); writeln(‘Для выхода нажмите ENTER’); readkey; end; procedure prm (var f:fil); begin clrscr; flag:=false; write(‘Введите месяц и год рождения: ‘); readln(f1); assign(q,’odnoklassniki.txt’); writeln; reset(f); rewrite(q); while not eof(f) do begin read(f,d); with d do begin if (f1=mec) then begin flag:=true; writeln; write(‘Фамилия: ‘); writeln(fam); write(‘Месяц и год рождения: ‘); writeln(mec); write(‘Номер телефона: ‘); writeln(nom); write(q,d); end; end; end; if flag=false then writeln(‘Таких фамилий нет!’); close(q); close(f); writeln(‘Для выхода нажмите ENTER’); readkey; end; procedure mash(var f:fil); begin assign(f,’odnoklassniki.txt’); reset(f); k:=filesize(f); for i:=1 to k do with d do begin clrscr; read(f,d); a[i].fam=fam; a[i].mec=mec; a[i].nom=nom; end; for l:=k downto 2 do for i:=1 to l-1 do if a[i].
Источник: studassistent.ru
Учим Базы Данных за 1 час! #От Профессионала
Одноклассники для сферы услуг. Как привлекать клиентов с помощью Одноклассников? Павел Борисов
БД odnoklassniki 2014
Ссылка на скачивание будет доступна через сек. Если Вы не хотите ждать, Вы можете скачать файл через торрент!
Данные сайта одноклассники представлена для ознакомительного просмотра. После того, как Вы скачаете архив на свой ПК и ноутбук Вы сможете отыскать абсолютно любого посетителя, который зарегистрирован на сайте одноклассники. Также получите возможность читать переписку, логин и пароль!! Благодаря данной базе Вы завладеете всеми личными данными зарегистрированных пользователей.
База данных пользователей социальной сети odnoklassniki позволяет получить полный доступ к странице. Вам будет показана информация содержащая в себе секретные пароли, электронные адреса, а также другие важные данные.
Сведения о файле:
Оригинальное имя: База данных одноклассники
Разрядность: x86 and x64
Язык меню: только русский
Дата создания: 2014
Medical: присутствует
Размер: 6.56 гб
Скачать БД odnoklassniki 2014
Заказ лендинга положительно отразился на деятельности многих компаний различных отраслей. Благодаря наличию собственного веб-ресурса постоянно поддерживается связь с потребителями, и тем самым качественно стимулируется спрос. В отличие от других видов маркетинга в интернете пользователь сам находит нужную ему информацию и важно сделать так, чтобы именно ваш сайт было легко найти и на нём была вся необходимая посетителю информация.
Для того, чтобы люди быстро и просто находили лендинг делается SEO оптимизация и продвижение в поисковых системах, запускается контекстная реклама, сайт можно продвигать в популярных социальных сетях. Данные инструменты позволят обеспечить хорошую посещаемость и привлечь потенциальных потребителей.
- Взлом замков для воинов для Dragon Age: Origins
- Профессиональный взлом Lockpick Pro для TES V: Skyrim
- VKbreaker 5.7 Final RePack 2014 (RUS/ENG)
- Улучшенный взлом / Lockpicking Overhaul для TES V: Skyrim
- Wi-fi Crack + активация
- VKbreaker 5.7 RePack 2014 (RUS/MUL)
- Тройной взлом Карта для Minecraft 1.8.2/1.8.1/1.7.10/1.7.2
- Тройной взлом Карта для Minecraft 1.8.3/1.8.2/1.8.1/1.7.10/1.7.2
- Wi-fi Crack + лицензия
- Wi-fi Crack + кряк
Источник: modfast.ru
«Одноклассники», как база данных для работы сыскных служб
Необычным образом раскрыли разбойное нападение сотрудники уголовного розыска ОМ№5 УВД по г.Красноярску. Четыре дня назад в подъезде дома по улице Николаева в Советском районе краевого центра 19-летний учащийся профессионального лицея попытался совершить разбойное нападение. Угрожая ножом молодому человеку 1987 г.р., злоумышленник потребовал деньги.
Однако нападавшего спугнули,после чего тот скрылся. Как рассказали в пресс-службе ГУВД по Красноярскому краю, возмездие настигло его через… социальную сеть. Пострадавший молодой человек спустя несколько дней увидел злоумышленника в «Одноклассниках». Потерпевший обратился с заявлением в милицию, рассказав о нападении.
Благодаря сети Интернет подозреваемого в разбойном нападении удалось задержать в течение нескольких часов. Возбуждено уголовное дело, ведется расследование.
Подписывайтесь на самые интересные новости «Байкал24» на этой странице
Источник: baikal24.ru