Системы счисления

END.

END

BEGIN

THEN begin

BEGIN

BEGIN

BEGIN

VAR

Then begin

kol_sl:= kol_sl+1;

if wrd = inv_wrd

then begin { найден палиндром }

writeln(‘найден палиндром ’, wrd,

‘ его порядковый номер = ‘,kol_sl); kol_pal:= kol_pal + 1; {кол-во палинд.}

end;

i:=i+1; {переход к очередному символу строки }

end;

readln;

end.

{Дана строка символов. Распечатать характеристики слова }

PROGRAM STR1;

S, WRD, INV:STRING;

DL_SL,I,KOL_SL,N_SL, KOL_PAL:INTEGER;

WRITELN('ВВЕДИТЕ СТРОКУ');

READLN (S);

{простейший разделитель слов - пробел }

KOL_SL:=0; { количество слов }

KOL_PAL:= 0; { количество палиндромов }

I:=1; {начало обработки с первого символа строки }

{цикл перебора букв строки }

WHILE (I<=LENGTH (S)) DO {пока не конец строки }

WRD:=''; {инициализация поля для текущего слова }

INV:=''; {инициализация поля для инвертированного слова }

N_SL:= I;{инициализация поля для начала текущего слова }

DL_SL:= 0;{инициализация поля для длины текущего слова }

{цикл перебора букв слова }

{пока не конец строки и пока символ не разделитель }

WHILE (S[I]<>' ') AND (I<=LENGTH (S)) DO

DL_SL:=DL_SL+1;

WRD:=WRD+S[I]; {формирование текущего слова}

INV:= S[I]+INV; {формирование инвертированного слова}

I:=I+1;

END;

IF DL_SL > 0 { было слово }

KOL_SL:=KOL_SL+1;

WRITELN;

WRITE (KOL_SL,' ',WRD, ' ДЛИНА= ',DL_SL,

' НАЧАЛО С БАЙТА № ',N_SL);

IF WRD = INV { слово совпадает с инвертированным }

THEN {ПАЛИНДРОМ }

KOL_PAL:= KOL_PAL + 1;

WRITE (' ПАЛИНДРОМ ',

' № СРЕДИ ПАЛИНДРОМОВ = ',KOL_PAL);

ELSE WRITE (' НЕПАЛИНДРОМ ');

WRITELN;

END;

I:=i+1;

end;

READLN;

Системы счисления - одна из традиционных тем курса информатики, восходящих к программированию ЭВМ первых поколений в машинных кодах. В настоящее время данная тема сохраняет свое значение как весьма типичный случай кодирования информации, а также в связи с широким использованием шестнадцатеричных обозначений в машинно-ориентированных разделах программирования. Знание систем счисления полезно для понимания представления данных в памяти ЭВМ и операций над ними. Системы счисления (особенно по основанию 10) достаточно подробно изучаются в курсах математики и информатики средней общеобразовательной школы. В данном курсе эта тема предполагает повторение уже известных сведений, специализацию в отношении систем счисления по основанию 16, 8 и 2, а также обобщение в плане кодирования информации.

Целесообразно проведение семинарского занятия, подготовка рефератов, посвященных истории и значению позиционных систем счисления. Особое внимание следует уделить формированию стабильных навыков чтения и записи чисел в шестнадцатеричной системе. Полезным является и знакомство с различными приемами перевода чисел в системы счисления по основанию 2, 8 и 16, в том числе с помощью калькулятора или компьютера.

Дата добавления: 2017-02-01