RusFAQ.ru: Программирование на языке Pascal (comp.soft.prog.pasplus) : Рассылка : Subscribe.Ru

RusFAQ.ru: Программирование на языке Pascal

Статистика

Чемпионы рейтинга экспертов в этой рассылке

∙ / КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

подать вопрос экспертам этой рассылки >>

Скажите "спасибо" эксперту, который помог Вам!

RFpro.ru: Программирование на языке Pascal

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.943 RSS

← Июль 2009 →
	1	2	3	4	5
6	7 07.07.2009 02:40:41 19:22:42	8	9	10	11	12
13	14	15	16	17	18	19
20	21	22	23	24	25	26
27	28	29	30	31

За последние 60 дней ни разу не выходила

Сайт рассылки: http://prog.rusfaq.ru/pascal
Открыта: 14-03-2002

Автор

Калашников О.А.

2.943 подписчиков
0 за неделю

← Все выпуски →

Хостинг портала RFpro.ru:
Московский хостер
Профессиональный платный хостинг на базе Windows 2008

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Пупорев Юрий Борисович
Статус: Специалист
Рейтинг: 653
∙ повысить рейтинг >>

_Ayl_
Статус: 8-й класс
Рейтинг: 601
∙ повысить рейтинг >>

Micren
Статус: Практикант
Рейтинг: 416
∙ повысить рейтинг >>

Выпуск № 926 от 03.07.2009, 17:05
Администратор рассылки: Калашников О.А., Руководитель
В рассылке: подписчиков - 339, экспертов - 155
В номере: вопросов - 1, ответов - 1

Нам очень важно Ваше мнение об этом выпуске рассылки. Вы можете оценить этот выпуск по пятибалльной шкале, пройдя по ссылке:
оценить выпуск >>

Вопрос № 169970: пожалуйста помогите решить эти задачки ,срочно надо,заранее спасибо 1)http://vkontakte.ru/photo29771814_132162512,тут просто график а я не знаю как его поставить его сюда

Вопрос № 169970:

пожалуйста помогите решить эти задачки ,срочно надо,заранее спасибо

1)http://vkontakte.ru/photo29771814_132162512,тут просто график а я не знаю как его поставить его сюда

2)Создать базу данных"Зарплата",компоненты записей которой имеют следующую структуру:
табельный номер;
ФИО;
оклад.

Составить программу,имеющую текстовое меню и позволяющую:
1. Создавать типизированный файл;вводить в файл данные о нескольких работниках (количество должно задаваться с клавиатуры).
2. Выводить данные обо всех работниках на экран и в другой файл.
3. Производить поиск работника по фамилии и выводить результаты на экран и в другой файл. В случае отсутствия работника с заданной фамилией выводить соответствующее сообщение .
4. Выводить на экран и в другой файл данные о работнике,имеющем максимальный оклад.
5. В ыводить на экран и в другой файл данные о сотрудниках, имеющих оклад ниже среднего.
6. Корректировать данные.
Отдельные пункты работы программы оформить в виде процедур.

Отправлен: 28.06.2009, 14:48
Вопрос задал: pel-mel, Посетитель
Всего ответов: 1
Страница вопроса >>

Отвечает leonid59, 4-й класс :
Здравствуйте, pel-mel. Пока вывод только на экран. Есть, конечно, "пенки".

Приложение:
{ Создать базу данных"Зарплата",компоненты записей которой имеют следующую структуру: табельный номер; ФИО; оклад. } { Составить программу,имеющую текстовое меню и позволяющую: 1. Создавать типизированный файл;вводить в файл данные о нескольких работниках (количество должно задаваться с клавиатуры). 2. Выводить данные обо всех работниках на экран и в другой файл. 3. Производить поиск работника по фамилии и выводить результаты на экран и в другой файл. В случае отсутствия работника с заданной фамилией выводить соответствующее сообщение . 4. Выводить на экран и в другой файл данные о работнике,имеющем максимальный оклад. 5. Выводить на экран и в другой файл данные о сотрудниках, имеющих оклад ниже среднего. 6. Корректировать данные. Отдельные пункты работы программы оформить в виде процедур. } program Main; { 169970 } uses crt; const MinInt = -MaxInt-1; type Tfm = string[15]; Tfio = string[30]; Ttabn = integer; Toklad = real; TPerson = record tabn: Ttabn; fio: Tfio; oklad: Toklad; end; TPersonFile = file of TPerson; var iChoice : integer; fH: TPersonFile; IsOpen: boolean; procedure Correct( var fH: TPersonFile ); forward; { Корректировка данных } procedure Create( var fH: TPersonFile ); forward; { Создание файла } procedure Input( var fH: TPersonFile ); forward; { Ввод данных } procedure LowSalary( var fH: TPersonFile ); forward; { Сотрудники, имеющие оклад ниже среднего } procedure MaxSalary( var fH: TPersonFile ); forward; { Работник с максимальным окладом } procedure Menu; forward; procedure Open( var fH: TPersonFile ); forward; { Открытие файла } procedure Print( var fH: TPersonFile ); forward; { Вывод данных } procedure SayGoodBye; forward; { Выход } procedure Search( var fH: TPersonFile ); forward; { Поиск работника по фамилии } procedure Correct( var fH: TPersonFile ); var recno: integer; p : TPerson; begin write( \'nomer zapisi\' ); readln( recno ); seek( fH, recno ); read( fH, p ); writeln(\'tabelny nomer:\', p.tabn); writeln(\'fio :\', p.fio); writeln(\'oklad :\', p.oklad); writeln(\' novye znachenia\'); write(\'tabelny nomer:\'); readln( p.tabn ); write(\'fio:\'); readln( p.fio ); write(\'oklad:\'); readln( p.oklad ); seek( fH, filepos( fH )-1); { skip-1} write( fH, p ); readln; end; { Correct } procedure Create( var fH: TPersonFile ); var fName: string; { имя файла } begin { если открыт, закроем } if IsOpen then begin Close( fH ); IsOpen := false; end; write(\'imya faila:\'); readln(fName); {$I-} Assign(fH, fName); Rewrite(fH); {$I+} if (IOResult <> 0) then Writeln(\'File uge sushestvuet\') else begin IsOpen := true; Writeln(\'File uspeshno sozdan\'); end; readln; end; { Create } procedure Input( var fH: TPersonFile ); var p: TPerson; count: integer; i: integer; begin GotoXY(1,11); write( \'chislo sotrudnikov\' ); GotoXY(20,11); read( count ); for i:= 1 to count do begin GotoXY(10,12); write(\'tabelny nomer:\'); GotoXY(10,13); write(\'fio:\'); GotoXY(10,14); write(\'oklad:\'); GotoXY( 30, 12); readln( p.tabn ); GotoXY( 30, 13); readln( p.fio ); GotoXY( 30, 14); readln( p.oklad ); seek( fH, FileSize( fH ) ); write( fH, p ); end; readln; end; { Input } procedure LowSalary( var fH: TPersonFile ); { Считаем, что файл большой, хотя 2 прохода - это плохо } var sum, mediana: Toklad; i, n: integer; p: TPerson; begin sum := 0; n:= 0; { I проход } seek( fH, 0 ); while not( eof( fH ) ) do begin read( fH, p ); inc( n ); sum := sum + p.oklad; end; { while } mediana := sum / n; { II проход } i := 0; writeln( \'----------------------------------------------\' ); writeln( \'NN tabn fio oklad \' ); writeln( \'----------------------------------------------\' ); seek( fH, 0 ); while not( eof( fH ) ) do begin read( fH, p ); inc( i ); if p.oklad < mediana then writeln( \' \', p.tabn:2, \' \', p.fio, \' \':30-length(p.fio), p.oklad: 6: 3 ); if i mod 5 = 0 then readln; { по 5 строк в экране } end; { while } readln; end; { LowSalary } procedure MaxSalary( var fH: TPersonFile ); { Принимаем допущение, что только один сотрудник с максимальным окладом. В противном случае надо создавать динамическую структуру } var p, MaxP: TPerson; i: integer; begin with MaxP do begin tabn := -1; oklad := -1; fio := \'\'; end; { with } seek( fH, 0 ); while not( eof( fH ) ) do begin read( fH, p ); if p.oklad > MaxP.oklad then MaxP := p; end; { while } writeln( \'Sotrudnik s maximalnym okladom.\'); with MaxP do writeln( \'tabn:\', tabn, \' fio:\', fio, \' oklad:\', oklad:6:3 ); readln; end; { MaxSalary } procedure Menu; begin clrscr; Writeln( \' 0.Exit\' ); Writeln( \' 1: Sozdanie faila\' ); Writeln( \' 2: Otkrytie faila\' ); Writeln( \' 3: Vvod dannyh\' ); Writeln( \' 4: Vyvod dannyh\' ); Writeln( \' 5: Poisk rabotnika\' ); Writeln( \' 6: Rabotnik s maximalnym okladom\' ); Writeln( \' 7: Sotrudniki s okladom nige srednego\' ); Writeln( \' 8: Korrektirovka\' ); Write( \' Vybran punkt:\'); end; { Menu } procedure Open( var fH: TPersonFile ); var fName: string; { имя файла } begin { если открыт, закроем } if IsOpen then begin Close( fH ); IsOpen := false; end; write(\'imya faila:\'); readln(fName); {$I-} Assign(fH, fName); Reset(fH); {$I+} if ((IOResult <> 0) or (fName = \'\')) then Writeln(\'File ne sushestvuet\') else begin IsOpen := true; Writeln(\'File uspeshno otkryt\'); end; readln; end; { Open } procedure Print( var fH: TPersonFile ); var p: TPerson; i: integer; begin writeln( \'----------------------------------------------\' ); writeln( \'NN tabn fio oklad \' ); writeln( \'----------------------------------------------\' ); i := 0; while not( eof( fH ) ) do begin read( fH, p ); inc( i ); writeln( i:2, \' \', p.tabn:2, \' \', p.fio, \' \':30-length(p.fio), p.oklad: 6: 3 ); if i mod 10 = 0 then readln; { 10 v spiske } end; { while } readln; end; { Print } procedure SayGoodBye; begin writeln( \'Udachi!\' ); readln; end; { SayGoodBye } procedure Search( var fH: TPersonFile ); var p: TPerson; i: integer; fm: Tfm; begin write( \'familia: \'); readln( fm ); writeln( \'resultaty poiska familii \', fm ); writeln( \'-------------------------------------------\' ); writeln( \'tabn fio oklad \' ); writeln( \'-------------------------------------------\' ); i := 0; seek( fH, 0 ); while not( eof( fH ) ) do begin read( fH, p ); if pos( fm, p.fio ) <> 0 then begin inc( i ); writeln( \' \', p.tabn:2, \' \', p.fio, \' \':30-length(p.fio), p.oklad: 6: 3 ); if i mod 5 = 0 then readln; { по 5 строк в экране } end; end; { while } if i = 0 then writeln( \'net v spiske\' ); readln; end; { Search } begin { Main } iChoice := 0; IsOpen := false; while true do begin Menu; Readln( iChoice ); case iChoice of 0: begin if IsOpen then Close( fH ); SayGoodBye; exit end; 1: Create( fH ); { Создание файла } 2: Open( fH ); { Открытие файла } 3: Input( fH ); { Ввод данных } 4: Print( fH ); { Вывод данных } 5: Search( fH ); { Поиск работника по фамилии } 6: MaxSalary( fH ); { Работник с максимальным окладом } 7: LowSalary( fH ); { Сотрудники, имеющие оклад ниже среднего } 8: Correct( fH ); { Корректировка данных } end; { case } end; { while } end.

Ответ отправил: leonid59, 4-й класс
Ответ отправлен: 02.07.2009, 18:25

Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 251769 на номер 1151 (Россия) | Еще номера >>

Отправить WebMoney:

Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
на короткий номер 1151 (Россия)
Номер ответа и конкретный текст СМС указан внизу каждого ответа.

Полный список номеров >>

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

© 2001-2009, Портал RFpro.ru, Россия
Авторское право: ООО "Мастер-Эксперт Про"
Автор: Калашников О.А. | Программирование: Гладенюк А.Г.
Хостинг: Компания "Московский хостер"
Версия системы: 2009.6.3 от 20.06.2009

В избранное

{#template MAIN} <div id="loginForm" style="display:none;" class="subscriberu_popup"> <div class="popup_register"> {#include js_tmpl_auth_reg_tab} {#if $P.login_register_tab == 1} <form class="authentication-form" method="post" action="/MEMBERLOGIN_authen_cred"> <dl class="rg_block_options"> <dt id="js_tap_panel_auth"> <h1>Войти на сайт</h1> {* {#include js_tmpl_auth_reg_button} *} {#include js_tmpl_auth_reg_action} <hr class="logreg_line noPhones"> <div class="logreg_descr noPhones"><p>{#include js_tmpl_auth_reg_descr} </p></div> <div class="logreg_advice noPhones"> Если вы еще не с нами, то начните с <a href="#" onclick="rgNav('js_tab_reg');return false;" class="dashed" data-func="registr">регистрации</a> </div> <br><br> <a class="dashed auth-enter" href="/manage/author/"><b>Вход для авторов</b></a> </dt> </dl> </form> {#/if} {#if $P.login_register_tab == 2} <div class="rg_block_options"> <div id="js_tap_panel_auth"> <h1>Регистрация</h1> <div class="social_reg"> {* <div class="rg_description">{#include js_tmpl_soc_auth_reg_descr}</div> *} {#include js_tmpl_auth_reg_soc} <div class="rg_soc_auth_agree">{#include js_tmpl_auth_reg_agree}</div> </div> <div class="subscribe_reg"> {* <div class="rg_description"> #include js_tmpl_auth_reg_descr </div> *} {#include js_tmpl_auth_reg_action} </div> {* {#include js_tmpl_auth_reg_button} *} <div class="clr"> </div> <hr class="logreg_line noPhones"> <div class="logreg_descr noPhones">{#include js_tmpl_auth_reg_descr} {#include js_tmpl_soc_auth_reg_descr} </div> </div> </div> {#/if} </div> {* <div class="gray_bg register_shadow"></div> *} </div> {#/template MAIN} {#template js_tmpl_auth_reg_tab} <ul class="rg_nav"> <li id="js_tab_auth" class="{#if $P.login_register_tab == 1} rg_active_nav {#/if} rg_first_nav"><a onclick="rgNav('js_tab_auth');return false;" href="">Вход на сайт</a></li> <li id="js_tab_reg" class="{#if $P.login_register_tab == 2} rg_active_nav {#/if}"><a onclick="rgNav('js_tab_reg');return false;" href="">Регистрация </a></li> </ul> <span onclick="hidebo();" class="rg_closed"> </span> {#/template js_tmpl_auth_reg_tab} {#template js_tmpl_auth_reg_action} {#if $P.login_register_tab == 1} {#include js_tmpl_auth_reg_soc} {#/if} <div class="rg_forms"> <input type="hidden" id="login_register_destination" value="{$P.login_register_destination}"/> {#if $P.login_register_tab == 1} <div class="rg_for_input"> <span class="rg_text_inner">E-mail или код подписчика</span> <input id="credential_0" class="js_keydown_selector rg_input_text" data-js_submit="no" data-js_next_input_name="credential_1" name="" type="text" /> </div> <div class="rg_for_input"> <span class="rg_text_inner">Пароль</span> <input id="credential_1" class="js_keydown_selector rg_input_text" data-js_submit="yes" data-js_action="js_loginFormBut" name="" type="password" onkeyup="showAttention(this,!!window.event.shiftKey)" /> <span class="pswd_attention" id="attention_pswd"> <span class="icon_attention"></span> <span class="pswd_attention-text" id="attention-text_pswd1">Русская раскладка клавиатуры!</span> <span class="pswd_attention-text" id="attention-text_pswd2">У вас включен Caps Lock!</span> <span class="pswd_attention-text" id="attention-text_pswd3">У вас включен Caps Lock и русская раскладка клавиатуры!</span> </span> </div> <div class="rg_for_input input-alien"> <span class="chk noPhones"><input id="chk_alien" name="" type="checkbox" /></span><label for="chk_alien" class="noPhones"> Чужой компьютер</label> <a class="forgot_pass" href="/member/totalrecall">Забыли пароль?</a> </div> <div class="rg_for_input"> <em id="auth_msg" class="reg_error"></em> <input id="lf_typeauthid" value="email" type="hidden"> <input type="submit" class="button button-red logreg_submit" id="js_loginFormBut" value="Войти">  <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> </div> {#/if} {#if $P.login_register_tab == 2} <div class="rg_for_input"> <span class="rg_text_inner">E-mail</span> <input id="arfemail" class="js_keydown_selector rg_input_text" name="" type="text" data-js_submit="yes" data-js_action="js_regFormBut"/> </div> <div class="rg_for_input rg_set_lineh rg_for_input_wide"> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_terms' type="checkbox" data-js_submit="yes" /></span> Я ознакомился и согласен с <a class="link_txd logreg_accLink" href="/faq/vereinbarung.html">условиями сервиса Subscribe.ru</a> </label> <br /> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_personal' type="checkbox" data-js_submit="yes" /></span> Нажимая на кнопку "Готово!", я даю <a class="link_txd logreg_accLink" href="/faq/persverordnung.html">согласие на обработку персональных данных</a> </label> </div> {* <div style="float: left;position: absolute;left: 11em;"> <img src="http://www.kupivip.ru/images/vip/logo.png?1604" style="width: 86px; vertical-align: middle;display: block;"> </div> <div class="rg_for_input rg_set_lineh"> <label class="js_tap_panel_checkbox"><input name="" id="js_tap_panel_checkbox_kupivip" type="checkbox" data-js_submit="yes"> Я хочу получать новости о скидках на одежду</label> </div> *} <div class="rg_for_input"> <em id="reg_msg" class="reg_error rg_for_input_wide"></em> <em id="reg_msg2" class="reg_error rg_for_input_wide"></em> <input id="rf_typeauthid" value="email" type="hidden"> <a class="button button-red logreg_submit" id="js_regFormBut" href="#">Готово!</a> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> </div> {#/if} </div> {#/template js_tmpl_auth_reg_action} {#template js_tmpl_auth_reg_agree} <div class="rg_for_input rg_set_lineh rg_for_input_wide"> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_terms_reg' type="checkbox" data-js_submit="yes" /></span> Я ознакомился и согласен с <a class="link_txd logreg_accLink" href="/faq/vereinbarung.html">условиями сервиса Subscribe.ru</a></label> <em id="reg_msg_soc" class="reg_error rg_for_input_wide"></em> </div> {#/template js_tmpl_auth_reg_agree} {#template js_tmpl_auth_reg_button} <div class="rg_butons_socials"> {#if $P.login_register_tab == 1} <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="auth_email" href="#"><span><i></i>Email</span></a> <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="auth_openid" href="#"><span><i></i>OpenID</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="auth_vkontakte" href="#"><span><i></i>Вконтакте</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="auth_mailru" href="#"><span><i></i>Mail.Ru</span></a> {#/if} {#if $P.login_register_tab == 2} <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="reg_email" href="#"><span><i></i>Email</span></a> <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="reg_openid" href="#"><span><i></i>OpenID</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="reg_vkontakte" href="#"><span><i></i>Вконтакте</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="reg_mailru" href="#"><span><i></i>Mail.Ru</span></a> {#/if} </div> {#/template js_tmpl_auth_reg_button} {#template js_tmpl_auth_reg_descr} {#if $P.login_register_tab == 1} Для оформления подписки на выбранную рассылку, работы с интересующей вас группой или доступа в нужный вам раздел, просим авторизоваться на Subscribe.ru {#/if} {#if $P.login_register_tab == 2} Для регистрации укажите ваш e-mail адрес. Адрес должен быть действующим, на него сразу после регистрации будет отправлено письмо с инструкциями и кодом подтверждения. {#/if} {#/template js_tmpl_auth_reg_descr} {#template js_tmpl_soc_auth_reg_descr} Или зарегистрируйтесь через социальную сеть. {#/template js_tmpl_soc_auth_reg_descr} {#template js_tmpl_auth_reg_soc} <div class="rg_soc"> {#if $P.login_register_tab == 1} <a onclick="return _checkSocConfirm(event)" href="https://oauth.vk.com/authorize?client_id=3954260&scope=wall,offline,photos,groups,video,audio,email&redirect_uri={location.protocol+'//'+location.host}/member/login/vk/&response_type=code&v=5.15" class="login_register_vk_button"> <span class="login_register_vk_icon"></span> </a> {#/if} {#if $P.login_register_tab == 2} <a onclick="return _checkSocConfirm(event)" href="https://oauth.vk.com/authorize?client_id=3954260&scope=wall,offline,photos,groups,video,audio,email&redirect_uri={location.protocol+'//'+location.host}/member/join/vk&response_type=code&v=5.15" class="login_register_vk_button"> <span class="login_register_vk_icon"></span> </a> {#/if} </div> {#/template js_tmpl_auth_reg_soc}

{#template MAIN} <div id="loginForm" style="display:none;" class="subscriberu_popup"> <div class="popup_register"> {#include js_tmpl_auth_reg_tab} <dl class="rg_block_options"> <dt id="js_tap_panel_auth"> <p class="rg_description">{#include js_tmpl_auth_reg_descr}</p> <div class="clr"> </div> {#include js_tmpl_auth_reg_action} <div class="clr"> </div> </dt> </dl> </div>  </div> {#/template MAIN} {#template js_tmpl_auth_reg_tab} <ul class="rg_nav"> <li id="js_tab_reg" class="rg_active_nav rg_first_nav"><a href="" onclick="return false;" >Регистрация</a></li> </ul> <span onclick="hidebo();" class="rg_closed"> </span> {#/template js_tmpl_auth_reg_tab} {#template js_tmpl_auth_reg_descr} <strong>Пожалуйста, подтвердите ваш адрес.</strong><br><br>Вам отправлено письмо для подтверждения вашего адреса {$P.register_confirm_mail}.<br>Для подтверждения адреса перейдите по ссылке из этого письма. {#/template js_tmpl_auth_reg_descr} {#template js_tmpl_auth_reg_action} <div class="rg_forms confirm_code_from_letter"> <div class="rg_for_input"> <span class="rg_inp_descr" style="width:15em;">Или введите код из письма:</span> <input type="text" value="" id="confirm_code" name="" data-js_submit="yes" data-js_action="js_confirmFormBut" class="js_keydown_selector rg_input_text_conf" > </div> <div class="rg_for_input"><label>Не пришло письмо? <b>Пожалуйста, проверьте папку Спам</b><br /> (папку для нежелательной почты).</label><br /> <a href="" onclick="ajax_recall_code();return false" >Вышлите мне письмо еще раз!</a></div> <div class="rg_for_input"> <em class="reg_error" id="confirm_msg"></em> <a href="#" class="button button-red" id="js_confirmFormBut">Готово</a> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> <br> </div> </div> {#/template js_tmpl_auth_reg_action}

← Июль 2009 →

7 07.07.2009 02:40:41 19:22:42