Помогите с програмой...не могу понять в чем ошибка

[Dante93]

вот текст программы написаной на турбо паскале

Program TSM6234,

uses

crt,dos,

{$I c\loexp\tplib1.pas}

begin

write_modem_status(RS232_address,1,0);

write_modem_status(RS232_address,1,1);

write_modem_status(RS232_address,1,0);

end,

procedure load_bit(bitx byte),

begin

write_modem_status(RS232_addres,bitx,0),

write_modem_status(RS232_addres,bitx,1);

write_modem_status(RS232_addres,bitx,0),

end,

function segment_data(charx:char)'byte;

begin

if charx='0' then segment_data:=$3F;

if charx='1' then segment_data:=$06;

if charx='2' then segment_data:=$5B;

if charx='3' then segment_data:=$4F;

if charx='4' then segment_data:=$66;

if charx='5' then segment_data:=$6D;

if charx='6' then segment_data:=$7D;

if charx='7' then segment_data:=$07;

if charx='8' then segment_data:=$7F;

if charx='9' then segment_data:=$6F;

if upcase(charx)='A' then segment_data:=$77;

if upcase(charx)='A' then segment_data:=$7C;

if upcase(charx)='A' then segment_data:=$39;

if upcase(charx)='A' then segment_data:=$5E;

if upcase(charx)='A' then segment_data:=$79;

if upcase(charx)='A' then segment_data:=$71;

if upcase(charx)='A' then segment_data:=$00;

end;

procedure load_digits(strix'string);

var

i,j.integer,

bitvalue:byte;

begin

for j:1 to 4 do

for j:1 to 8 do

begin

load_bit(round(segment)data(srtx[j]) and bit welght(1)/bit_welght(1)));

end;

for 1:=1 to 2 do load_bit(0);

load_bit(0);

end;

procedure loaddata_test;

var

i:integer;

didit_string:string;

begin

write_transmit_buffer(RS232_addres,0);

repeat

clrscr;

start;

writeln('Input q or q to quit the program');

write('input four degits (0,1,2...9,a,b...f): '); reading(digit_string);

load_digits(digit_string);

until upcase(digit_string[1])='Q';

end;

begin

COM_addres;

Loaddata_test:

end;

[прохожий]

что говорит?

в тексте отпечатки.

или "ошибка в 17 строке" =)

[Dante93]

Может из за таво что у меня нету библиотеки: c\loexp\tplib1.pas

[0xDEADBEEF]

С такими вопросами, товарищь, вам не сюда, а к гадалке или к медиуму.

А простые люди никогда не поймут, где же у вас "что-то не так".

[Dante93]

0xDEADBEEF

Вопрос впринцепи нормальный...просто я в паскале не шарю не могу понять что за ошибки...

[0xDEADBEEF]

Dante93

Попытайтесь описать проблему, привести текст сообщения об ошибке, расскажите что за программа, что она должна делать, откуда код и т.д.

Ясновидцев тут нет.

Может сначала стоит подучить русский?

[coder]

Dante93

сообщение компайлера в студию!

телепаты ушли за водкой.

[Dante93]

Незнаю что за ошибка поэтому и спрашиваю...чтобы узнать что за ошибка скомпилируйте в паскале, программа для управления светодиодным дисплеем через порт типо "папа" она из книги "соприжение пк с внешним устройством"

Добавлено спустя 3 минуты 14 секунд:

каму интерестно модель дисплея TSM6234

[0xDEADBEEF]

Dante93

Уж увольте.

Прежде чем вопросы задавать, потрудитесь хотябы чуть-чуть разобраться в проблеме. А если не выходит, так хоть не ленитесь описать ее в полной мере, и не надейтесь что вам все принесут на блюдечке.

Всего доброго.

[coder]

тобы узнать что за ошибка скомпилируйте в паскале,

спасибо за предложение, но вы сами. ошибок в тексте достаточно и так, сверьте для начала.

Может из за таво что у меня нету библиотеки: c\loexp\tplib1.pas

если у вас её нет, смотрите в источнике может там есть листинг или на носителе, если это книга. иначе вероятность что кто то вам поможет стремиться к нулю.

порт типо "папа"

мда, специалист. считаете что использовать сленг придает вашим словам вес? нужно не только знать слова, но и то к чему и где их употребляют.

ps

не сочтите за труд ознакомьтесь с "How to Ask Questions the Smart Way" (rus), там есть ваш вариант вопроса. подумайте об этом.

удачи.

[martinges]

злые вы дяди)) взяли опустили парня

по теме: почитайте внимательней книжку откуда скопировали.... если списывали сами, то переписали вы явно не правильно покрайней мере в нескольких местах(сигнатура функций процедур, оформление операторов и процедурки некоторые непонятны... видимо из пресловутой библиотеки...).

[Dante93]

Мне удобно так его называть!!! я в програмирование не разбераюсь поэтому и спросил тут!

А если не можите не чем помочь так и скажите...все правельно списал...прежде чем создать тему проверял несколько раз...и нестройте из себя програмистов раз сами не че незнаете!

[coder]

end,

for j:1

{$I c\l

_bit(bitx byte),

i,j.integer,

(charx:char)'byte;

as}

begin

отчепятки продолжать?

ссылку прочитали?

сами не че незнаете!

ну вам, уважаемый, виднее.

всего доброго.

[Po$amax@]

c\loexp\tplib1.pas

а разве не

c:\loexp\tplib1.pas

[The_Ice]

for 1:=1 to 2 do load_bit(0); 

чувак, а программулина эта, случаем, не воспроизводит ли особое сочетание световых сигналов, вводящих человека в транс?

Паходу она работает... Либо, работала в момент написания книги... ну, или как минимум - этого примера (:

ЗЫ: стесняюсь спросить логический смысл этих строк(не for, а load_bit в for'е и после него О_о):

for 1:=1 to 2 do load_bit(0);
load_bit(0); 

или единица у нас может быть максимум двойкой: тройкой уже от лукавого.... (:

в остальной код не вглядывался, от греха - похоже на происки сектантов...

ЗЗЫ:

или "ошибка в 17 строке" =)

ну, она, наверняка, говорит, что ошибка в 1ой строке (:

может это просто особая нотация паскаля? типо для электронщиков.... ну или владельцев светодиодных дисплеев...

ЗЗЗЫ: а как звали того индуса, который писал книгу?

[VampiRUS]

да я подозреваю, что это просто распознанный текст отсканированной книги, скачаной с интернетов.

[прохожий]

ошибка в 17 строке

это из фольклора фидо.

VampiRUS

судя по отчепяткам, таки да

[The_Ice]

хм, VampiRUS сохранил хладнокровное мышление при виде этого)

...тем не менее, сканер не мог добавить лишний вызов load_bit(0) =)

[X-tender]

Такую лабуду даже донцова кажется не написала бы, не говоря уже об индусах...

[coder]

а под какой операционкой автор сего "кода" мог бы рассчитывать на хэпи енд ?