Notice: Undefined offset: 0 in /var/www/referat.ru/public/skins/default/application/item/index.phtml on line 15

Notice: Undefined offset: 0 in /var/www/referat.ru/public/skins/default/application/item/index.phtml on line 16

Краткий курс лекций по программированию на Паскале — страница 7

  • Категория
  • Раздел
  • Просмотров 3430
  • Скачиваний 374
  • Размер файла 37
    Кб

числа". Используя только числовые переменные, решить ее можно, но предлагаемое здесь решение, по-моему, проще. Program Str5; Var S : String; I,X,A,C : Integer; Begin Writeln('Введите натуральное число'); Readln(S); {Число вводится в строковую переменную} A:=0; For I:=1 To Length(S) Do Begin Val(S[I],X,C); {Цифровой символ превращается в число} A:=A+X {Цифры суммируются} End; Writeln('Сумма цифр равна ',A) End. Теперь рассмотрим еще несколько действий над строками: оператор DELETE(S,I,C) из строковой

переменной S удаляет C символов, начиная с I-того; оператор INSERT(SN,S,I) вставляет подстроку SN в строковую переменную S перед символом с номером I; функция COPY(S,I,C) возвращает подстроку строки S из C символов, начиная с символа с номером I; функция Pos(SN,S) возвращает номер символа, с которого в строке S начинается подстрока SN (позицию первого вхождения подстроки в строку). Если такой подстроки нет, то возвращается ноль. Пример их использования:

"Во введенной строке заменить все вхождения подстроки 'ABC' на подстроки 'KLMNO'". Program Str6; Var S : String; A : Byte; Begin Writeln('Введите строку'); Readln(S); While Pos('ABC',S)<>0 Do Begin A:= Pos('ABC',S); Delete(S,A,3); Insert('KLMNO',S,A) End; Writeln(S) End. Определение типов Как было упомянуто ранее, в изучаемом языке возможно определять новые типы переменных. После определения этот тип становится доступным для описания переменных, также как и стандартные типы. Новый тип перед первым его

использованием должен быть описан в соответствующем разделе описаний. Его заголовок - служебное слово Type. Type <Имя типа> = <Описание типа>; Есть несколько способов описания. Иногда говорят даже о видах типов (как бы это странно ни звучало). Итак, первым рассмотрим так называемый перечисляемый тип. Перечисляемый тип используется для повышения наглядности программ, позволяя записывать в переменные этого типа названия

разнообразных объектов, исследуемых программой. Этот тип представляет собой набор идентификаторов, с которыми могут совпадать значения параметров. Формат описания следующий: <Имя типа> = (<Ид.1>, <Ид.2>,? <Ид.n>); Далее можно определить любое число переменных уже описанного типа. Обратите внимание на то, что каждый идентификатор может участвовать в описании только одного перечисляемого типа. Этим переменным можно

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