Set talk off set cursor off

clear

set wrap on

set talk off

set cursor off

set message to 23 center

do GLAV

proc GLAV

DO WHILE .T.

clear screen

set color to n/w

@0,0,2,80 box"░░░░░░░░░░"

@3,0,25,80 box"╔═╗║╝═╚║░"

@1,4 clear to 1,17

set color to gr+/b,w+/rb

@1,4 prompt ' ВЫБОР ТЕСТОВ '

@1,68 prompt ' ВЫХОД '

menu to choice

do case

case choice=1

case choice=2

Restore Screen from ekran

exit

enddo

***************

proc PODMEN1

do while .t.

@4,1 to 10,45 double

@5,2 clear to 9,44

set color to n/n

@11,4 clear to 11,47

@5,46 clear to 11,47

set color to gr+/b,w+/rb

@5,2 say ' ВЫБОР ТЕСТА ПО ТЕМАМ: '

@7,5 prompt ' Тест по экономике '

@9,2 prompt ' ВЫХОД '

menu to w

if w = 0

exit

do case

Save Screen to SaveScr1

k=1

do FKvar1 with k

set color to gr+/b,w+/rb

Restore Screen from SaveScr1

case w=2

endcase

return

proc ot

@23,0 clear to 23,79

@23,15 say ' ОТВЕТ '+A+', ДЛЯ ПРОДОЛЖЕНИЯ НАЖМИТЕ '

inkey(0)

retu

proc FKvar1

clear

pr=0

FOR i=1 to 5

set color to n/w

@6,24 clear to 6,55

@0,0,21,80 box"░░░░░░░░░░"

@9,12,19,67 box"╔═╗║╝═╚║"

@10,13 clear to 18,66

set color to bg/w,w+/rb

@0,0 say ' ТЕМА: " Тест по теме: Банки " '

set color to gr+/b

@1,45,4,72 box"╔═╗║╝═╚║"

@1,48 say ' Хочешь получить "5"? '

@2,46 say " Hа пять вопросов дай "

@3,46 say " правильных пять ответов. "

set color to gr+/b

@22,0 to 22,79 double

@23,0 clear to 23,79

@24,0 to 24,79 double

set color to n/w,w+/b

ss='-Прервать тест ВЫБЕРИТЕ ПРАВИЛЬНЫЙ ВАРИАНТ ОТВЕТА И НАЖМИТЕ '

DO CASE

case i=1

@7,28 say ' что обладает правом:'

@11,13 prompt ' - покупать и продавать ценные бумаги ' message ss

@13,13 prompt ' - выпускать в обращение денежные единицы ' message ss

@15,13 prompt ' - предоставлять ссуды ' message ss

@17,13 prompt ' - принимать вклады от физических и юридических лиц ' message ss

case i=2

@6,18 say ' ВОПРОС 2: Владелец сбережений нуждается в: '

@11,26 prompt ' - деньгах ' message ss

@13,26 prompt ' - доходе на деньги ' message ss

@15,26 prompt ' - доходе на сбережения ' message ss

@17,26 prompt ' - услугах предпринимателя' message ss

case i=3

@6,8 say ' ВОПРОС 3: Что не является банковской услугой коммерческих банков '

@11,13 prompt ' - сбор сбережений граждан ' message ss

@13,13 prompt ' - предоставление кредитов ' message ss

@15,13 prompt ' - выпуск наличных денег ' message ss

@17,13 prompt ' - помощь в организации платежей за товары и услуги ' message ss

case i=4

@6,12 say ' ВОПРОС 4: Для получения банком прибыли необходимо, чтобы: '

@11,18 prompt ' - % по кредитам был больше % по вкладам ' message ss

@13,18 prompt ' - % по вкладам был больше % по кредитам ' message ss

@15,18 prompt ' - у него было много клиентов ' message ss

@17,18 prompt ' - он не занимался валютными операциями ' message ss

case i=5

@6,24 say ' ВОПРОС 5: Прибыль банка - это '

@11,15 prompt ' - процент по вкладам ' message ss

@13,15 prompt ' - процент по кредитам ' message ss

@15,15 prompt ' - разница между ставками % по кредитам и вкладам ' message ss

@17,15 prompt ' - разница всех доходов и расходов ' message ss

ENDCASE

do MMM

if ch=0

endif

@8,15,10,60 box"╔═╗║╝═╚║"

@9,16 clear to 9,59

@9,16 say " ВАШ ОТВЕТ ОЦЕНЕН НА "+STR(PR)

WAIT''

retu

proc MMM

if ch=0

@8,15,10,60 box"╔═╗║╝═╚║"

@9,16 clear to 9,59

OTV="N"

read

do nach

pr=0

i=5

endif

do case

do case

(ch=3.and.(i=2.or.i=3)) .or. (ch=4.and.i=5)

pr=pr+1

A='ПРАВИЛЬНЫЙ'

othe

do ot with a

endcase

endcase

Retu