Курсовая: По решению прикладных задач на языке FRED - текст курсовой. Скачать бесплатно.
Банк рефератов, курсовых и дипломных работ. Много и бесплатно. # | Правила оформления работ | Добавить в избранное
 
 
   
Меню Меню Меню Меню Меню
   
Napishem.com Napishem.com Napishem.com

Курсовая

По решению прикладных задач на языке FRED

Банк рефератов / Программирование

Рубрики  Рубрики реферат банка

закрыть
Категория: Курсовая работа
Язык курсовой: Русский
Дата добавления:   
 
Скачать
Архив Zip, 18 kb, скачать бесплатно
Заказать
Узнать стоимость написания уникальной курсовой работы

Узнайте стоимость написания уникальной работы

10 ГО СУДАРСТВЕННАЯ АКАДЕМ ?ИЯ УПРАВЛЕНИЯ им . С . ОРДЖОН ?ИКИДЗЕ КАФ ?ЕДРА програм ирования и компьютерной техники КУ РСОВАЯ РАБОТА по дисциплине " Компьютерная практика " ( бригада N 1 ) ВЫП ?ОЛНИЛИ : студенты группы МЭО -I-1 Грибков С. А. Кутузов А. А. ПРО ?ВЕРИЛ : доцент кафедры В. В . Евтеев "...".................1994 г. Мо сква , 1994 г. СОДЕРЖАНИЕ : 1.) Задание . 2 2.) Распечатка пр ?ограммы 3 3.) Инструкция по ? пользованию 8 4.) Образцы выдав ?аемых справок 8 5.) Исходная база ? данных 10 ЗАД ?АНИЕ на курсовую работ у по дисциплине : " Компьютерная практика " студентам группы МЭО -I-1 Грибкову С. А. Кутузову А. А. Тем ?а курсовой раб ?оты : Пр именение интегрирова ?нных прикладных систем для решения экономич еских задач. Исх ?одные данные : 1. Использование ИП С- РАДУГА (FRAMEWO RK III). 2. Исходная база ? данных - совок упность инвертарных карточек учет а основных сре дств ( по форме ОС -7 ) 3. Количество за ?писей - 20. ( см . табл ?ицу исходных д ?анных ). 4. Количество по ?лей - 11. 5. Наименование полей : - но мер карточки (N); - название сред ства ( название ); - место хранения - отдел ( Отд .); - норма амортизаци онных отчислений в % ( А . О .); - дата оприходыван ия ( N акт. опр .); - дата выбытия ( Дата выб .); - инвертарный номе р ( Инв . N ); - номер акта выбывания (N акт . выб .); - фамилии материал ьно ответств енно го лица ( A ам . мат . отв .); 6. Тип выдаваемой справки -1 ( Налич ?ие средств в заданном отде ле и их суммарная стоимость ). РАЗРАБАТЫВАЕ МЫЕ ВОПРО C Ы : 1. Освоение используемой ИПС. 2. Создание исхо ?дной базы данн ?ых и пустой таблицы. 3. Разработка прогр а ммы на язы ?ке ИПС для создания и распечатки справ ки заданного т ипа. Спр ?авка должна со ?держать не мен ?ее пяти полей (N, Название , Инв .N, Перв . ст ., Фам . мат . отв ? .). СОДЕРЖАНИЕ ОТЧЕТА ПО РАБОТЕ : 1. Титульный лист. 2. Задание ( с конкретными данн ыми по своему варианту ). 3. Содержание от ?чета с номерам ?и страниц. 4. Исходная база ? данных ( БД ). 5. Краткие пояснени я по порядку создания БД табличного ти па. 6. Распечатка пр ?ограммы на язы ?ке ИПС. 7. Инструкция по ? использованию программы для решения поставле нной задачи. 8. Распечатка сп ?равок заданного типа ( не мен ?ее трех распеч ?аток ). 9. Выводы ( заключ ?ения ) по работ е. 10. Список литера ?туры. Ра спечатка программы : MAINMENU.FW3 @menu(mainmenu) MAINMENU.[ Начальна я установка .]: ;--- Загрузка фрейма [resume] с командой @resume--- @local(p),p:=@frametype, @if(@and(p<>1,p<>2),@pk(" scroll-lock ")), @setdrive("a:"), @pk(" in "), @setselection("resume.fw3"), @pk(" return scroll-lock out return scroll-lock "), ;--- Установка а меню операции Новое : Пустой / Текст- Фрейм--- @prompt(" Нажмите INS, уста ?новите "" Новое : Пустой / Текст- Фрей м "", нажмите ESC и F5"), @suspend, ;--- Завершение на ?чальной установки--- @delete("resume") MAINMENU.[ Загрузка БД ]: ;--- Загрузка базы данных [base]--- @pk(" scroll-lock "), @setdri ve("a:"), @pk(" in "), @setselection("base.fw3"), @pk(" return scroll-lock out return scroll-lock "), @position("base",1,1,80,10), @reset(base,1) MAINMENU.[ Коррекци я БД ]: ;*** Коррекция базы данных : Вставка , Измен ?ение , Удаление записей *** MAINMENU.[ Коррекци я БД ].[ Вставка Записи ]: ;--- Подготовк а операции Вст авка--- @local(a,p,q,r),p:=7, @pk(" ins home "), @while(p>0, @list(@pk(" dnarrow "),p:=p-1)), @pk(" esc "), ;--- Вход в базу данных--- @setselection("base"), @pk(" in "), r:=@get(base,5), ;--- Вставка новых ? записей--- p:="y",r:=0, @integer(r), @while(@not(p<>"y"), @list(@pk(" ins return return "), r:=r+1, q:=@value(@inputline(" Введит ?е N")), @put(base,1,q), q:=@inputline(" Введите НА ЗВАНИЕ "), @put(base,2,q), q:=@value(@inputline(" Введите О ТДЕЛ ")), @put(base,3,q), q:=@value(@inputline(" Введите И НВ .N")), @put(base,4,q), q:=@value(@inputline(" Введите первонач. стоимость ")), @put(base,5,q), q:=@value(@inputline(" Введите а морт . отчисл .")), @put(base,6,q), q:=@inputline(" Введите да ту оприход ."), @put(base,7,q), q:=@value(@inputline(" Введите N а кта оприход .")), @put(base,8,q), a:=@inputline(" Ресурс выб ыл ? Да (y)/ Нет (n)"), @if(a="y", @list(q:=@inputline(" Вв едите дату выбытия "), @put(base,9,q), q:=@value(@inputline(" Введите N а ?кта выбытия ")), @put(base,10,q))), q:=@inputline(" Введите фа ?м . мат . отв ."), @put(base,11,q ), p:=@inputline(" Вставлять еще ? ДА (y)/ НЕТ (n)"))), ;--- Сортировка ба ?зы данных--- @setformula(base,@sort(base.[ N],#ascend)),@base, ;--- Завершение вс ?тавки записей--- @reset(base,1), @put(base,5,r), @pk(" out return "), @pk(" ins h ome dnarrow esc ") MAINMENU.[ Коррекци я БД ].[ Удаление Записи ]: ;--- Подготовк а операции Уда ление--- @local(p,q,r), @pk(" ins rightarrow home dnarrow dnarrow esc "), ;--- Вход в базу данных--- @setselection("base"),@pk(" return "),r:=@get(base,5), ;--- Удаление запи ?сей--- p:="y", @while(@not(p<>"y"), @list(q:=@value(@inputline(" Введите н омер удаляемой записи ")), @reset(base,q), @pk(" in ins return y esc out "),r:=r-1, p:=@inputline(" Удалять еще ? ? ДА (y)/ НЕТ (n)"))), ;--- Завершение уд ?аления записей в базе данн ?ых--- @reset(base,1), @put(base,5,r), @pk(" return ins leftarrow esc ") MAINMENU.[ Коррекци я БД ].[ Изменение ? Записи ]: ;--- Вход в базу данн ?ых --- @local(p,q,r,s), @setselection("base"), @pk( " in "), ;--- Изменение зап ?исей в базе данных --- p:="y", @while(@not(p<>"y"), @list(q:=@value(@inputline(" Вв едите номер за писи ")), r:=@value(@inputline(" Введите но мер поля ")), @reset(base,q),s:=@get(base,r), @if(@i snumeric(s), @list(s:=@value(@inputline(" Введите з начение ")), @put(base,r,s)), @list(s:=@inputline(" Введите за ?пись "), @put(base,r,s))), p:=@inputline(" Изменять ещ ?е ? ДА ( у )\ Н ?ЕТ (n)"))), ;--- Завершение из ?менения записей --- @setselection("base"),@setformula(base,@sort(base.[ N],#ascend)),@base, @reset(base,1), @pk(" out return ") MAINMENU.[ Коррекци я БД ].[ Сохранени ?е БД ]: ;--- Запись базы данных на диск А --- @setselection("base"), @pk(" scroll-lock "), @setdrive("a:"), @pk(" in scroll-lock f8 scroll-lock return y out return scroll-lock ") MAINMENU.[ Документ ]: ;*** Формирова ние выходного документа в та блице [tabl]*** ;--- Загрузка фрей ?мов [tabl],[pr intdoc]--- @local(p,q,r,m), @pk(" scroll-lock "), @setdrive("a:"),@pk(" in "), @setselection("tabl.fw3"),@pk(" return scroll-lock "), @setselection("printdoc.fw3"),@pk(" return scroll-lock "), @pk(" out return scroll-lock "), ;--- Фильтрация ба ?зы данных--- q:="@not(@isnumeric([N АВ ]))",@setformula(base,q), @setselection("base"),@pk(" F5 "),@beep, p:=@inputline(" Введите ном ер интересующего вас отдела "),m:=p, q:="@not([ Отдел ]<>"&p&")",@setformula(base,q), @setselection("base"),@pk(" F 5 "), ;--- Определение к ?оличества записей в отфильтрова ной БД--- p:=7,@pk(" ins home "), @while(p>0, @list(@pk(" dnarrow "),p:=p-1)), @pk(" esc "), @setselection("base"),@pk(" in "), @pk(" ins return return "),p:=99,@put(base,1,p), @setformula(base,@sort(base.[ N],#ascend)),@base, @pk(" out return "),@pk(" ins home dnarrow esc "), @setselection("base"),@reset(base,1),p:=@get(base,1), q:=0, @while(@not(p=99), @list(q:=q+1,@next(base),p:=@get(base,1))), @reset( base,1),@put(base,12,q),@reset(base,2), @put(base,12,m), p:=@get(base,1), @while(@not(p=99), @list(@next(base),p:=@get(base,1))), @pk(" in del out return "), ;--- Переход к программе формирования выходного документа- @printdoc, PRINTD OC.FW3 ;*** Программа фор ?мирования выходного документа в таблице [tabl]*** @local(p,q,n,i,r,f,m), ;--- Ввод из [base] в [tabl] номера о тдела--- @reset(base,2),m:=@get(base,12),@reset(tabl,5,3), @put(tabl,m), ;--- Ввод из [base] в [tabl] исходных данных--- ; N, Название , Инв .N, Перв. ст ., Фа м. мат. отв. @reset(base,1),p:=@get(base,12),q:=7, @while(p>0, @list(n:=@get(base,2),i:=@get(base,4), r:=@get(base,5),f:=@get(base,11), @reset(tabl,1,q),@put(tabl,q-6), @reset(tabl,2,q),@put(tabl,n), @reset(tabl,3,q),@put(tabl,i), @reset(tabl,4,q),@put(tabl,r), @reset(tabl,5,q),@put(tabl,f), @next(base),q:=q+1,p:=p-1)), ;--- Вывод на экран таблицы [tabl]--- @setselection("tabl "),@position("tabl",1,1,60,15), @pk(" return "), ;--- Ввод в таблицу [tabl] значения Итого :--- @reset(base,1),p:=@get(base,12),n:=q+1, q:=p+7,r:=" Итого :",@reset(tabl,1,q),@put(tabl,r), p:=@integer(p+6),r:="@sum(tabl.d7:tabl.d"&p&")", q:=@integer(q ),i:="@setformula(tabl.d"&q&","&r&")", @setformula(tabl,i),@tabl,@pk(" in F5 "), ;--- Ввод в таблицу даты--- @reset(tabl,1,n),p:=" Дата : ",@put(tabl,p), @reset(tabl,3,n),p:=@inputline(" Введите да ?ту "), @put(tabl,p),@pk(" out "), ;--- Возврат в меню : [ Документ ]--- @return(p) ;--- Завершение фо ?рмирования выходног о документа--- @pk(" ins leftarrow esc "), @beep, @prompt(" Справка сфор мирована ",30), @nextkey(5), @eraseprompt MAINMENU.[ Печать ]: ;--- Подготовк а принтера к печати--- @prompt(" По дготовте принтер , нажмите RETURN.") @nextkey, @eraseprompt, ;--- Печать выходн ?ого документа--- @local(p), @pk(" ins "),p:=7, @while(p>0, @list(@pk(" rightarrow "),p:=p-1)), @pk(" home return "), ;--- Завершение пе ?чати выходного документа--- @pk(" ins "),p:=7, @while(p>0, @list(@pk(" leftarrow "),p:=p-1)), @pk(" esc ") MAINMENU.[ Выход ]: ;--- Удаление фреймов [base], [tabl], [printdoc]--- @delete("base"), @delete("tabl"), @delete("printdoc"), ;--- Выход из меню--- @eraseprom pt, @prompt(" Спасибо за работу !",30), @beep, @nextkey(5), @quitmenu, @eraseprompt RESUME.FW3 @resume TABL.FW3 С П Р А В К А ------------------ О наличии с ?редств , в отдел ?е N ------------------------------------------------------ N Наз вание Инв .N Перв. ст . Фам. мат. отв. ------------------------------------------------------ Инструкция по пользовани ю программой : READ.ME mainmenu.fw3 - Файл с меню пользователя. base.fw3 - Исходная баз а данных. printdoc.fw3 - Программа фо рмирования выход ного документа. tabl.fw3 - Шаблон выход ного документа в таблице. resume.fw3 - Служебный фа йл. read.me - Данная инстру ?кция. Для выполнения задачи необхо димо войти в пакет Радуга , установить ди скету с курсов ой работой в дисковод А , загрузить фре йм с именем a:\mainmenu.fw3 и нажать F5. Образцы выдаваемых справ ок : С П Р А В К А ------------------ О наличии с ?редств , в отдел ?е N 4 ------------------------------------------------------ N Название Инв .N Перв. ст . Фа м. мат. отв. ------------------------------------------------------ 1 Принтер 1748 34000 Кутузо в А. А 2 Компьютер 2458 507000 М ?едведев Д. В. Итого : 541000 Дата : 17.05.94 С П Р А В К А ------------------ О наличии с ?редств , в отдел ?е N 8 ------------------------------------------------------ N Название Инв .N Перв. ст . Фа м. мат. отв. ------------------------------------------------------ 1 АТС 22587 898800 Шамин С. В. 2 Телекс 1109 500000 Петр ?ов Н. О. Итого : 1398800 Дата : 17.05.94 С П Р А В К А ------------------ О наличии с ?редств , в отдел ?е N 3 ------------------------------------------------------ N Название Инв .N Пе рв. ст . Фам. мат. отв. ------------------------------------------------------ 1 Компьютер 1007 900300 Разум ?овский О. Р. 2 Ксерокс 2367 431000 Гр игорьева С. В. 3 Телефоны 4376 95680 На ?гария А. С. 4 Ксерокс 4643 98 7999 Аганин Ю. В. 5 Плоттер 6350 289700 По ганин М. Д. Итого : 2704679 Дата : 17.05.94 ЛИТЕРАТУРА : В. В. Евтеев , А. М. М ?ахонько " Методически е указания к самостоятельной работе студентов по дисциплине " ЭВМ и п рограм мирование ". Раздел " Алгоритмическ ?ий язык ФРЕД "." Исходная база данных : N Название Отд ел Инв .N Перв. ст АО % Дата ? опр . N АО Дата выб . N АВ Фам. мат. отв ========================================================== 1 Принтер 4 1748 34000 13 12.10.89 3424 Кутузов А. А 2 Компьютер 4 2458 507000 20 10.04.91 3645 Медведев Д. М. 3 Телекс 8 11237 362000 56 02.09.85 4322 06.07.89 576 Гри бков С. А. 4 Принтер 6 34600 678900 27 13.07.89 9780 04.12.93 564 Завалишин С. Е. 5 АТС 8 22587 898800 12 31.07.70 7584 Шамин С. В. 6 Компьютер 6 342 856320 63 06 .05.74 7463 04.12.84 361 Конкс Ю. В. 7 Телефоны 6 575 87765 47 19.09.86 9706 Потятынник Т. Н. 8 Сервер 5 3346 940000 42 05.02.89 3424 Житникова Е .E. 9 Те летайп 2 5473 50000 51 20.04.76 479 01.12.85 563 Родионов Д. К. 10 Компьютер 5 118 780000 11 01.01.85 2344 Коваленко Д. П. 11 Компьютер 5 3380 596900 87 12.05.87 4 650 23.04.91 453 Афанасьев Д. И. 12 Принтер 5 4597 135000 90 23.04.87 9005 27.09.90 574 Шанина Н. О. 13 Компьютер 3 1007 900300 12 14.06.89 3645 Разумовский О. Д. 14 Ксерокс 3 2367 431000 41 26.07.78 9090 Григорьева С. С. 15 Телекс 8 1109 500000 21 23.06.76 4354 Статникова Н. А. 16 Телефоны 3 4376 95680 12 14.08.90 3645 Нагария А. В. 17 Ксерокс 3 4643 987999 18 17.09.80 2536 Аганин Ю. В. 18 Плоттер 3 6350 289700 15 19.10.92 5315 Поганин М. Д. 19 Компьютер 2 8451 854000 19 20.09.93 6123 Иванов П. Д. 20 Принтер 2 5305 900500 21 31.10.93 7330 Петров В. В.
1Архитектура и строительство
2Астрономия, авиация, космонавтика
 
3Безопасность жизнедеятельности
4Биология
 
5Военная кафедра, гражданская оборона
 
6География, экономическая география
7Геология и геодезия
8Государственное регулирование и налоги
 
9Естествознание
 
10Журналистика
 
11Законодательство и право
12Адвокатура
13Административное право
14Арбитражное процессуальное право
15Банковское право
16Государство и право
17Гражданское право и процесс
18Жилищное право
19Законодательство зарубежных стран
20Земельное право
21Конституционное право
22Конституционное право зарубежных стран
23Международное право
24Муниципальное право
25Налоговое право
26Римское право
27Семейное право
28Таможенное право
29Трудовое право
30Уголовное право и процесс
31Финансовое право
32Хозяйственное право
33Экологическое право
34Юриспруденция
 
35Иностранные языки
36Информатика, информационные технологии
37Базы данных
38Компьютерные сети
39Программирование
40Искусство и культура
41Краеведение
42Культурология
43Музыка
44История
45Биографии
46Историческая личность
47Литература
 
48Маркетинг и реклама
49Математика
50Медицина и здоровье
51Менеджмент
52Антикризисное управление
53Делопроизводство и документооборот
54Логистика
 
55Педагогика
56Политология
57Правоохранительные органы
58Криминалистика и криминология
59Прочее
60Психология
61Юридическая психология
 
62Радиоэлектроника
63Религия
 
64Сельское хозяйство и землепользование
65Социология
66Страхование
 
67Технологии
68Материаловедение
69Машиностроение
70Металлургия
71Транспорт
72Туризм
 
73Физика
74Физкультура и спорт
75Философия
 
76Химия
 
77Экология, охрана природы
78Экономика и финансы
79Анализ хозяйственной деятельности
80Банковское дело и кредитование
81Биржевое дело
82Бухгалтерский учет и аудит
83История экономических учений
84Международные отношения
85Предпринимательство, бизнес, микроэкономика
86Финансы
87Ценные бумаги и фондовый рынок
88Экономика предприятия
89Экономико-математическое моделирование
90Экономическая теория

 Анекдоты - это почти как рефераты, только короткие и смешные Следующий
Только на дорогах России можно услышать: "О! Кусок хорошего асфальта!".
Anekdot.ru

Узнайте стоимость курсовой, диплома, реферата на заказ.

Обратите внимание, курсовая по программированию "По решению прикладных задач на языке FRED", также как и все другие рефераты, курсовые, дипломные и другие работы вы можете скачать бесплатно.

Смотрите также:


Банк рефератов - РефератБанк.ру
© РефератБанк, 2002 - 2016
Рейтинг@Mail.ru