Роздрукувати сторінку
Главная \ Методичні вказівки \ Методичні вказівки \ 1601 Приклад розв’язування економічної задачі

Приклад розв’язування економічної задачі

« Назад

Приклад  розв’язування  економічної  задачі

Завдання.  Визначити середній вік студентів.

Факультет

Курс

Вік

Стать

Сімейний стан

Середній прибуток сі-

м’ї

Час на дорогу до інституту

Правознав.

1

16

ж

хол.

150

10

фін. і кредит

2

17

ж

заміж.

300

30

подат. поліц.

4

20

ж

заміж.

450

20

бух. облік

3

19

м

хол.

500

5

банк. справа

3

18

м

хол.

380

15

Для створення таблиці  бази даних  в командному вікні набираємо команду СREATE  EKONOM. Внаслідок  цього  з’явиться: 

Field name  Type      width      dec

Вводимо  свої  дані:

FAC           C       10     0

KURS        N       1       0

VOZ           N       2       0

POL           C       1       0

SEM`         C       4       0      

SRED         N       3       0

CHAS        N       2       0

Після вводу даних операційна система робить запит: Input date record now? (Y/N), якщо  відповідаємо «Y»,  то  з’являється наступна структура:

FAC

 

KURS

 

 

VOZ

 

 

POL

 

 

SEM

 

 

SRED

 

 

CHAS

 

 

       

Для того, щоб увійти в редактор тексту, необхідно в командному вікні набрати команду Modifycommand або натиснути клавішу ALT. У верхньому меню вибрати File, New, Program,  натиснути ОК і ввести текст програми.

*1 програма (прог. меню) EKONOM.PRG

SET TALK OFF

SET STATUS OFF

USE EKONOM

CLEAR

@ 1,1 TO 24,78  DOUBLE

DO WHILE.T.

SET COLOR TO W/B, N/RB

@ 5,10 say «підрахунок середнього віку»

@ 10,10 PROMT  «введення даних»

@ 12,10 PROMT  «розрахунок»

@ 14,10 PROMT  «перегляд»

@ 16,10 PROMT  «вихід»

MENU TO A

DO CASE

CASE A=1

EKON1

CASE A=2

EKON2

CASE A=3

EKON3

CASE A=4

QUIT

ENDCASE

ENDDO

Записати  програму: ALT, File, Close, Yes  під  іменем  EKONOM. PRG.

Таким же чином вводимо тексти  інших програм.

*2 програма EKON1. PRG

CLEAR

@ 1,1 TO 24,78 Double

COUNT ALL TO E

C=0

Do while C=0

SET COLOR TO W/R

CLEAR

SET COLOR TO W/R, N/BG

@ 2,15 say «Введення»

@ 4,5  say  «Факультет»

@ 6,5  say  «Курс»

@ 8,5  say  «Вік»

@ 10,5 say «Стать»

@ 12,5 say «Сімейний стан»

@ 14,5 say «Середній прибуток сім’ї »

@ 16,5 say «Час на дорогу до інституту»

 Insert Blank   

@ 4,15 GET FAС

@ 6,15 GET KURS

@ 8,15 GET VOZ

@ 10,15 GET POL

@ 12,15 GET SEM

@ 14,15 GET SRED

@ 16,15 GET CHAS

 READ

@ 20,1 say «Продовжити введення»

@ 21,1 PROMPT «Так»

@ 21,10 PROMPT«Ні»

  MENU TO K

  DO CASE

  CASE k=1

     C=0

  CASE k=2

   C=1

ENDCASE

ENDDO

DO EKONOM

Записати  програму: ALT, File, Close, Yes  під  іменем  EKON1. PRG.

*3 програма EKON2. PRG

GO TOP

CLEAR

@10.15 say «Йде розрахунок середнього віку»

W=0

K=0

DO While. NOT.EOF ( )

W=W+voz

K=K+1

SKIP

Clear

@9,15 say «Йде розрахунок середнього віку»

@10.15 say W/K

wait

DO EKONOM

Записати  програму: ALT, File, Close, Yes  під  іменем  EKON2. PRG.

*4 програма EKON3. PRG

CLEAR

SET COLOR to W/B, N/BG

GO TOP

c=0

DO While c=0

CLEАR

@6.15 say «Факультет»

@8.15 say «Курс»

@10.15 say «Вік»

@12.15 say «Стать»

@14.15 say «Сімейний стан»

@16.15 say «Середній прибуток сім’ї»

@18.15 say «Час на дорогу до інституту»

@6.15 say FAС

@8.15 say Kurs

@10.15 say Voz

@12.15 say Pol

@14.15 say SEM

@16.15 say SRED

@18.15 say Chas

@20.15 say Svoz

READ

@20.1 say «Продовжити перегляд»

@21.1 PROMPT «Так»

@21.10 PROMPT «Ні»

MENU TO K

DO CASE

CASE K=1

c=0

CASE K=2

c=1

ENDCASE

ENDDO

DO ECONOM

Записати  програму: ALT, File, Close, Yes  під  іменем  EKON3. PRG.

Після вводу зазначених програм  (ekonом.prg;  ekon1.prg,  ekon2.prg,  ekon3.prg), перевіряємо їх,  і  якщо  є  помилки,  -  виправляємо.

В результаті  вводу  на екрані  дисплея  з’явиться розрахунок середнього віку студентів.

З повагою ІЦ "KURSOVIKS"!