пользователей: 21228
предметов: 10455
вопросов: 177496
Конспект-online
зарегистрируйся или войди через vk.com чтобы оставить конспект.
РЕГИСТРАЦИЯ ЭКСКУРСИЯ

Язык программирования Pascal. Составные типы данных. Строки. Операции и функции для работы со строками. Пример использования.

 

Паскаль (Pascal) разрабатывался, как учебный язык выского уровня, структурного программирования. Относится к 3-му поколению языков программирования.  На основе ALGOL.

 

Для обработки текстовой информации используется строковый тип данных string (не более 255 симв)

Строка- цепочка символов

Пример. Задача убрать все пробелы

var st1,st2:string;

    n,i,k:integer;

 begin

  write('Enter string: '); readln(st1); k:=0;

  n:=ord(st1[0]);  // вычисляем количество  элементов строки

  for i:=1 to n do

    if st1[i]<>' ' then begin

      k:=k+1;  // k – количество элементов новой строки

      st2[k]:=st1[i]; // записываем элементы новой строки

     end;

  st2[0]:=chr(k); // указываем длину новой строки

  write('String bez probeloff: ',st2); readln;

 end.

Доп процедуры и функции

ord(st[0]),  length(st) - текущ длина строки

"+" - сцепление строк

"=","<>","<",">","<=",">=" - операции отношения

concat(s1,s2,...,sn) - вывести строку, сцепленную из параметров;

copy(st, index, count) - копировать из st count символов, начиная с номера index

delete(st, index, count) - удалить из st count символов, начиная с номера index

insert(subst, st, index) - вставить в строку st подстроку subst, начиная с номера index

pos(subst, st) - отыскать в строке st первое вхождение subst и возвратить номер позиции, с которой она начинается, если ее нет, то 0

str(x:width:decimals, st) - преобразовать число x любого веществ или целого типа в строку st

val(st, x, code) - преобразовать строку st в целую или веществ переменную x

IntToStr, FloatToStr, StrToInt, FormatFloat

Пример. Задача перевернуть строку

var st:string;

    i,j,n:integer;

    c:char;

 begin

  write('Enter string: '); readln(st);

  n:=length(st);

  for i:=1 to (n div 2) do begin

    c:=st[i]; st[i]:=st[n-i+1]; st[n-i+1]:=c;

   end;

  writeln('Naoborot budet: ',st); readln;

 end.

 

8.


22.01.2015; 17:37
хиты: 33
рейтинг:0
Точные науки
информатика
Языки программирования
для добавления комментариев необходимо авторизироваться.
  Copyright © 2013-2016. All Rights Reserved. помощь