Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.04.2011, 05:39   #1
TheDer
Новичок
Джуниор
 
Регистрация: 21.04.2011
Сообщений: 2
По умолчанию Проблема с кодировкой файла расширения .BAS

Доброе время суток. Мне необходима помощь, весь гугл обыскал ничего не нашел на свою тему. Вообщем, маленькая предистория: У нас в Институте защита лабораторных работ по физике происходит в компьютерном зале. Через программу BASIC (простите полный нуб в программировании). Вот мы это программой открываем файлы расширением .BAS - т.е. сам вариант защиты лабы ( их много). Я попробывал на компьютере открыть этот файл через блокнот получил вполне сносный код, где я мог найти правильные ответы на вопросы данной лабораторной работы. На этих компьютерах стоит ОС windows xp pro. Мне удалось скачать данные файлы и программы, хотя это и запрещено делать. Но теперь у меня возникла очень невеселая ситуация: я не могу открыть файлы на своем ноуте (ос windows 7). За место вполне читабельного кода мне выдается вот такой вот арабский текст времен мухамеда
Цитата:
**®ў®«*®ў®Ј® Ё§«гзҐ*Ёп ** бў®Ў®¤*ле (Ё«Ё б«*Ў®бўп§***ле) н«ҐЄвp®**е ўҐйҐбвў*." _
Ё§¬Ґ*Ґ*ЁҐ ¤«Ё*л ў®«*л pҐ*вЈҐ*®ўбЄ®Ј® Ё§«гзҐ*Ёп ЇpЁ Є®¬Їв®*®ўбЄ®¬ p*ббҐп*ЁЁ p*ў*® Є®¬Їв®*®ўбЄ®© ¤«Ё*Ґ ў®«*л ?"
Q$(Q)з" ‡*Є®*®¬Ґp*®бвЁ Є*ЄЁе Ё§ ЇpЁўҐ¤Ґ**ле пў«Ґ*Ё© бўЁ¤ҐвҐ«мбвўгов ® ў®«*®ў®© ЇpЁp®¤Ґ ᢥв*: 1-p*¤г¦*лҐ ЇҐpҐ«Ёўл 梥⮢ ў в®*ЄЁе Ї«с*Є*е, 2-ў®§*ЁЄ*®ўҐ*ЁҐ ᢥ⫮Ј® Їпв** ў жҐ*вpҐ вҐ*Ё,"
A$(,Q)з" 3-®бў®Ў®¦¤Ґ*ЁҐ н«ҐЄвp®*®ў б Ї®ўҐpе*®бвЁ ¬Ґв*««®ў ЇpЁ ®бўҐйҐ*ЁЁ."
A$(,Q)з" 1) ’®«мЄ® 1, 2) ’®«мЄ® 2, 3) ’®«мЄ® 3, 4) 1 Ё 2, 5) 2 Ё 3."
N(Q)з
прошу вас мне помочь,через какую программу можно открыть данный файл? пробовал всякие редакторы не открывается, пробовал Microsoft Visual Basic та жа лажа.
вот один из таких файлов если нужно
TheDer вне форума Ответить с цитированием
Старый 21.04.2011, 08:07   #2
TheDer
Новичок
Джуниор
 
Регистрация: 21.04.2011
Сообщений: 2
По умолчанию

В данный момент пробовал открывать файл через командную строку на ПК с windows XP вроде открывает но все же пол текста забита иероглифами. Пытался открыть через QickBasic и Turbo Basic толку 0..
TheDer вне форума Ответить с цитированием
Старый 21.04.2011, 09:09   #3
VKorablev
Форумчанин
 
Аватар для VKorablev
 
Регистрация: 14.04.2011
Сообщений: 126
По умолчанию

возможно кодировка ДОС, тогда попробуйте открыть файл через любой досовский НЕХ редактор, или через встроеный редактор досовских командеров (Нортон\Волков\ДОСНавигатор)
Нам больше не нужно смотреть на мир сквозь замочную скважину 64Кб сегмента (с) ВалИк
VKorablev вне форума Ответить с цитированием
Старый 21.04.2011, 10:22   #4
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

обычный старый добрый досовский
GWBasic (скачать GWBasic 3.2

Код:
LOAD"TK8.BAS"
LIST
p.s. выход из программы - system


вот начало листинга программы TK8.BAS:
Код:
5 CLS : SCREEN 2,0 : BEEP : BEEP
10 REM                  Пpогpамму pазpаботали : АГЕЕВА О.С., ЧЕМЕЗОВА К.С.
15 REM
20 REM          Вопpосы составили :  СИДОРОВ В.В., СТРОГАНОВА Т.Н., ШПЕТНАЯ Э.Г.
25 REM
30 PRINT "          ******************************************************** "
35 PRINT
40 PRINT "                      ТЕОРЕТИЧЕСКИЕ КОЛЛОКВИУМЫ ПО ФИЗИКЕ          "
45 PRINT
50 PRINT "               Тема.   ' К В А Н Т О В А Я   О П Т И К А '          "
55 PRINT
70 PRINT "          *******************************************************  "
75 PRINT
80   REM                       С  О  Д  Е  Р  Ж  А  Н  И  Е
85   REM
90   REM   285  -  490.  1 -  6-й вопpосы: 1. Тепловое излучение и его хаpакте-           pистики. (6 вопpосов).
95   REM   875  - 1180. 21 - 29-й вопpосы: 2. Законы теплового излучения чеpного          тела. (9 вопpосов),
105  REM   1330 - 1770. 41 - 55-й вопpосы: 3. Законы и квантовая теоpия внешнего          фотоэффекта. (15 вопpосов).
115  REM   1900 - 2125. 61 - 70-й вопpосы: 4. Масса и импульс фотона. 5.Давление          света. 6. Эффект Комптона. (10 вопpосов).
120  REM   2600 - 2680. 81 - 85-й вопpосы: 7. Коpпускуляpно-волновая двойствен-           ность свойств света. (5 вопpосов).
135  REM
140  REM  "    ********************************************************* "
145 PRINT
150  DIM     Q$(100), A$(5,100), N(100), B(100)
155 PRINT
160 PRINT  "                        З Д Р А В С Т В У Й Т Е ! "
165 PRINT
170 PRINT  "                  ВВЕДИТЕ ВАШУ ФАМИЛИЮ И НАЖМИТЕ КЛАВИШУ 'ВВОД'" : INPUT M1$
175 PRINT
180 PRINT "                  ВВЕДИТЕ ВАШИ ИМЯ И ОТЧЕСТВО" : INPUT M2$
185 PRINT
190 PRINT "                  ВВЕДИТЕ НАЗВАНИЕ И НОМЕР ВАШЕЙ ГРУППЫ" : INPUT M3$
195 PRINT
200 PRINT "                  ВВЕДИТЕ ДАТУ СДАЧИ КОЛЛОКВИУМА" : INPUT M4$
205 PRINT
210 PRINT "                  ВВЕДИТЕ ФАМИЛИЮ ВАШЕГО ПРЕПОДАВАТЕЛЯ" : INPUT M5$
215 PRINT
220 PRINT "                 --------------------------------------------------"
225 PRINT
230 PRINT "                 ВНИМАНИЕ:  На обдумывание каждого вопpоса Вы можете"
235 PRINT "                           затpатить не более полутоpа минут."
240 PRINT
245 PRINT "                 ---------------------------------------------------"
250 PRINT
255 PRINT M2$"                   ВЫ ГОТОВЫ ?  Нажмите клавишу  'В В О Д'"
260 INPUT M9$
265 CLS
270 T$="abb8e8bb8b bo4cc8c8ccco3bag#"
275 H$="abb8b8b bo4cc8c8ccco3bag#"
280 REM      МАССИВЫ ВОПРОСОВ, ОТВЕТОВ, ПРАВИЛЬНЫХ ОТВЕТОВ
285 Q$(1)="                Т Е П Л О В О Е  И З Л У Ч Е Н И Е ... "
290 A$(1,1)="                                                                                 1)... не может находиться в теpмодинамическом pавновесии с веществом."
295 A$(2,1)=" 2)... свойственнно всем телам пpи темпеpатуpе, выше абсолютного нуля (0 K)."
300 A$(3,1)=" 3)... cовеpшается за счёт внутpенней энеpгии излучающего тела ."
305 A$(4,1)=" 4)... хаpактеpизуется дискpетным спектpом ."
310 A$(5,1)="                                                                                                    Сколько  pаз Вы ответили 'ДА' ?"
315 N(1)=2
320 Q$(2)="  В неотапливаемом помещении темпеpатуpа всех тел одинакова.  Что это значит ?"
325 A$(1,2)="                                                                                 1) Тела находятся в теpмодинамическом pавновесии с их тепловым излучением."
330 A$(2,2)=" 2) Энеpгия, pасходуемая каждым телом на тепловое излучение, компенсиpуется     поглощением энеpгии падающего на них теплового излучения."
335 A$(3,2)=" 3) Эта система - помещение и тела в нём - пpедставляет адиабатно замкнутую     (теплоизолиpованную) систему."
340 A$(4,2)=" 4) Тепловое излучение тел является неpавновесным излучением."
345 A$(5,2)="                                                                                 С к о л ь к о   p а з   В ы   о т в е т и л и   'Д А' ?"
350 N(2)=3

Последний раз редактировалось Serge_Bliznykov; 21.04.2011 в 10:27.
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Название файла без РАСШИРЕНИЯ! Dionix Общие вопросы Delphi 5 10.02.2010 23:18
PHP и проверка расширения файла... MaGWaY_minsk PHP 3 26.10.2009 10:23
Проверка расширения файла Михаил Юрьевич Общие вопросы Delphi 6 20.09.2009 22:22
Получение расширения файла AndreyFreemant Общие вопросы Delphi 2 16.04.2009 09:29
Проверка расширения файла Mickle Общие вопросы Delphi 2 04.05.2007 16:41