Дана программа на Бейсике. Нужно перевести ее на Паскаль

@Марлена · Регистрация: 13.11.2010

Студворк — интернет-сервис помощи студентам

Дана программа на Бейсике, которая создает двоичный файл "66-838" с участком таблицы FAT. Нужно перевести эту программу на Паскаль. И желательно,чтобы этот файл был не двоичным,а текстовым.Но и двоичному буду благодарна. И,пожалуйста,напишите программу с комментариями.Помогите пожалуйста.

QBasic/QuickBASIC
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
NameFile$ = "66-838"
Claster = &H1B6380 + 1      'Значение 1-го байта*
 
'Запсиь в двоичный файл по 3 байта с разделителем "00";
'размер файла* - 1 сектор = 512 байт
 
CLS
CONST Separator = &H0, Sector = 512
DIM M(Sector - 1) AS INTEGER
DIM Bufer AS LONG
 
i = 0                    'Счет общего числа байт (512)
j = 0                    'Увеличение стратового байта
DO
  Bufer = Claster
  LB = &HFF
  Byte = Claster AND LB         'Анализ и выделение младшего байта*
  M(i) = Byte
 
  MB = &HFF00
  Byte = Claster AND MB         'Анализ "среднего" байта
                                          'выделение "среднего" байта
  'сдвиг на байт влево (&H100=256) и анализ младшего байта
  Byte = Byte \ &H100 AND LB
  i = i + 1
  M(i) = Byte
 
  HB = &HFF0000
  Byte = Claster AND HB                 'Анализ старшего байта
  Byte = Claster \ &H10000 AND LB  'сдвиг на** 2 байта влево (&H10000=256^2=65536)
  i = i + 1
  M(i) = Byte
 
  'Каждый 4-й байт - сепаратор &H00
  i = i + 1
  M(i) = Separator
 
  i = i + 1
  Claster = Bufer + 1
LOOP UNTIL i = Sector
 
OPEN NameFile$ FOR BINARY AS #1 LEN = 1
 
FOR i = 1 TO Sector
  Rec$ = CHR$(M(i - 1) MOD (&HFF + 1))  'В двоичный файл только ASCII-символы
  PUT #1, i, Rec$
NEXT i
 
CLOSE #1

@Аленчик216 · 08.12.2010, 20:56

Sorry, что влезаю

, но можно и мне перевести??

Pascal
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
const
  n = 3;
 
function CaesarEncipher(toCode: string): string;
var i, T: integer;
begin
  for i := 1 to length(toCode) do begin
  T := (Ord(toCode[ i ]) + n);
  if T >= 256 then dec(T, 256);
  toCode[ i ] := Chr(T);
  end;
  CaesarEncipher := toCode;
end;
 
function CaesarDecipher(toDecode: string): string;
var i, T: integer;
begin
  for i := 1 to length(toDecode) do begin
  T := (Ord(toDecode[ i ]) - n);
  if T < 0 then Inc(T, 256);
  toDecode[ i ] := Chr(T);
  end;
  CaesarDecipher := toDecode;
end;
 
{ применение: }
var
  s: string;
 
begin
  s := CaesarEncipher('just a Caesar');
  writeln(s);
  writeln('s = ', CaesarDecipher(s));
end.

просто очень похоже на паскаль но мы не учили CaesarDecipher и function ((

чем их можно заменить
P.S.

Pascal
1
2
 if T >= 256 then dec(T, 256);
  toCode[ i ] := Chr(T);

dec и Chr не знаю такого((

Короче: я-чайник

, ну не понимаю я программирование

@SuPeR XaKer · 08.12.2010, 21:15

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
const
n = 3;
var
s:string;
i, T: integer;
 
begin
s:='just a Caesar';
for i := 1 to length(s) do
begin
T := (Ord(s[ i ]) + n);
if T >= 256 then dec(T, 256);
s[ i ] := Chr(T);
end;
writeln(s);
for i := 1 to length(s) do
begin
T := (Ord(s[ i ]) - n);
if T < 0 then Inc(T, 256);
s[ i ] := Chr(T);
end;
writeln(s);
end.

Да и программы по шифрованию ни кто без функций не делает.Это убого как то.

Функция Chr(X) возвращает символ с порядковым номером X (в таблице ASCII).

Функция ord в Pascal возвращает число, соответствующее символу

Значение X уменьшается на 1, если параметр N не определен, или на N, если праметр N определен, то есть Dec(X) соответствует X:=X-1, а Dec(X, N) соответствует X:=X-N.

Во как...

@Аленчик216 · 08.12.2010, 21:22

Спасибо большое)))пойду писать)

Новые блоги и статьи Все статьи Все блоги /
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

@Аленчик216 0 / 0 / 0 Регистрация: 05.12.2010 Сообщений: 8
	08.12.2010, 21:22
	Спасибо большое)))пойду писать) 0