QBasic & Pascal

[Андрюха_ЕШКО]

1. Имеется массив строк, каждая из которых содержит по два слова, разделенных одним пробелом - профессия и фамилия, например:

ИНЖЕНЕР ИВАНОВ
КОНСТРУКТОР КОЗЛОВ
и т.д.

Нужно составить программу на Бейсике для выделения фамилий в отдельный массив....

2. Задана строка: St:='ВЖИ!УСФЕБ!ОЖ!ГЬУБЪЙЩЭ///';
Надо составить программу для ее расшифровки, с применением к каждому символу разные функции Пасакаля...

[Stilet]

для ее расшифровки

А ключ какой?

[Андрюха_ЕШКО]

Сообщение от Stilet

А ключ какой?

Ключ не задан....

[Qaliti]

CLS

INPUT "Введите кол. строк:", h

DIM stroki(h) AS STRING
DIM sename(h) AS STRING

FOR i = 1 TO h
        PRINT "Введите значение "; i; "-ой записи:";
        INPUT stroki(i)
NEXT i

FOR p = 1 TO h
        a = INSTR(1, stroki(p), " ")
        b = LEN(stroki(p))
        b = b - a + 1
        sename(p) = MID$(stroki(p), a, b)
NEXT p

CLS

FOR f = 1 TO h
        PRINT f; "работник:"; sename(f)
NEXT f

END

[Vaigard]

Задача 1. Строки считываются из файла или вводятся с клавиатуры?

Задача 2. Во-первых, что значит расшифровать? Во-вторых, в Паскале не хватит функций для всех этих символов Но я так подозреваю, что надо из St сделать нормальное предложение Надо подумать, подожди немного

В общем, в лоб вторая задача не решилась, там наверно нужен какой-то ключ А первая задача решенная уже есть для ввода с клавы. Если тебе нужны файлы, то вот ссылка http://solidbase.karelia.ru/edu/zonna/4_basic_8.htm Если нужен массив как переменная, то почитай вот это и подставь http://solidbase.karelia.ru/edu/zonna/4_basic_6.htm Писать весь код не буду, потому что это долго и я не могу проверить за неимением рабочего Бэйсика

[Андрюха_ЕШКО]

Сообщение от Vaigard

Задача 1. Строки считываются из файла или вводятся с клавиатуры?

Там не написано, с файла или с клавы.... Да так пойдет, это я ЕШКО "Введение в программирование" взял, но уже пожалел... Там объяснения такие, одному фиг разберешься... если бы препод объяснял, то получше мож было, а один я вообще в тему не вхожу.....

Ещё раз спасибо вам за помощь, очень благодарен


___________________________________ _____________________
лучше бы "Операционную систему Windows" взял, и урок вдвое меньше, да и по легче....

[Скарам]

А строка из второй задачи : БЕЗ.ТРУДА.НЕ.ВЫТАЩИШЬ...
Шифровка-смещение на один символ вправо,расшифровка-смещение влево. Догадался по /// в конце предложения,подумал,что это троеточие...))

[Mad_Cat]

ну тогда вторая

const s='ВЖИ!УСФЕБ!ОЖ!ГЬУБЪЙЩЭ///';
var i:integer;
begin
for i:=1 to length(s) do
write(chr(ord(s[i])-1))
end.

[Vaigard]

Я тоже брал на один символ назад, по аналогии ! - пробел, но я перед Ж брал Ё, поэтому получалась ерунда

[Андрюха_ЕШКО]

Вчера отослал на проверку 11-12 уроки... Через недельки две скажу результаты!!!