Презентация на тему мировое хозяйство

массив символов:
каждый символ – отдельный объект;
массив имеет длину N,

Что нужно:
обрабатывать последовательность символов как единое целое
строка должна иметь переменную длину

строк
Максимальная длина строки - 255 символов.

Нумеруются ее

var <имя_строки>: string[<длина>];

строки:
n := length ( s );
var n: integer;

символов, заключенная в апострофы, воспринимается как символ или строка.

Символ-константа и строка-константа: неименованные константы

c:='z'; {c: char}
s:='abc'; {s: string}

ее представления:
char или string[k].
Поэтому попытка написать
Символ-константа и строка-константа:

вызовет ошибку уже на этапе компиляции.

c:='zzz'; {c: char}

неименованные константы
st:=''; { пустая строка }
Если же необходимо

Если теперь вывести на экран эту строку, то получится следующее:

Don't worry about the apostrophe!

s:='Don''t worry about the apostrophe!';

все буквы «а» на буквы «б».
program qq;
var s: string;

readln(s);

writeln(s);

Length(s)

ввод строки

длина строки

вывод строки

«а» на буквы «б», как заглавные, так и строчные.

она палиндромом (палиндром читается одинаково в обоих направлениях).

которой исходные строки-операнды соединены в порядке их следования в

Операция конкатенации

X:='Пример'; Y:='сложения'; Z:='строк';
Writeln(X + Y + Z);
Writeln(Y + ' ' + Z + ' ' + X);

На экран будут выведены строки:
Примерсложениястрок
сложения строк Пример

'Кро'+' 'код'+ 'ил'
позволит получить новую строку
'Крокодил'

другой.
Запись нового значения:
var s, s1, s2: string;
s := 'Вася';
s1

'Привет, Вася!'

Подстрока: выделить часть строки в другую строку.

s := '123456789';

s1 := Copy ( s, 3, 6 );
s2 := Copy ( s1, 2, 3 );

'345678'

'456'

с 3-его символа

6 штук

'123456789';
Delete ( s, 3, 6 );
с 3-его символа
6

строка
меняется!

'123456789'

'129'

s := '123456789';
Insert ( 'ABC', s, 3 );
Insert ( 'Q', s, 5 );

куда вставляем

что вставляем

начиная с 3-его символа

'12ABC3456789'

'12ABQC3456789'

Вася.';
n := Pos ( 'е', s );
if n >

s[3]

3

n = 11

Особенности:
функция возвращает номер символа, с которого начинается образец в строке
если слова нет, возвращается 0
поиск с начала (находится первое слово)

var n: integer;

'Петя', s );
Delete ( s, n, 4 );
Insert (

'Вася Лена Митя'

s := 'Вася Петя Митя';
n := length ( s );
s1 := Copy ( s, 1, 4 );
s2 := Copy ( s, 11, 4 );
s3 := Copy ( s, 6, 4 );
s := s3 + s1 + s2;
n := length ( s );

'Вася Митя'

14

'Вася'

'Митя'

'Петя'

'ПетяВасяМитя'

12

6

Преобразовать их к формату «фамилия-инициалы».
Пример:
Введите имя,

Алгоритм:
найти первый пробел и выделить имя
удалить имя с пробелом из основной строки
найти первый пробел и выделить отчество
удалить отчество с пробелом из основной строки
«сцепить» фамилию, первые буквы имени и фамилии, точки, пробелы…

integer;
begin
writeln('Введите имя, отчество и фамилию');
readln(s);

отчество, разделив их пробелом. Вывести инициалы и фамилию.

выводя каждую вложенную папку с новой строки
Пример:

строка, представляющая собой сумму двух целых чисел, например:
12+35
Вычислить эту

Алгоритм:
найти знак «+»
выделить числа слева и справа в отдельные строки
перевести строки в числа
сложить
вывести результат

s, N, r ); { N = 123 }

Из числа в строку:

N := 123;
Str ( N, s ); { '123' }
X := 123.456;
Str ( X, s ); { '1.234560E+002' }
Str ( X:10:3, s ); { ' 123.456' }

var N, r: integer;
X: real;
s: string;

n, n1, n2, sum: integer;
begin
writeln('Введите выражение (сумму чисел):');

слагаемые-строки

слагаемые-числа

сумма

слагаемые-строки

слагаемые-числа

эту разность.
Пример:
25-12
Ответ: 13
«4»: Ввести арифметическое

котором можно использовать сложение и вычитание. Вычислить это выражение.

котором можно использовать сложение, вычитание и умножение. Вычислить это

количество футболистов команды «Шайба», а затем – N строк,

Алгоритм:

for i:=1 to N do begin
{ пропускаем фамилию и имя }
{ читаем год рождения Year и число голов Gol }
if (1988 <= Year) and (Year <=1990) and
(Gol = 0) then { увеличиваем счетчик }
end;

{ пока не встретим пробел }
var c: char;
Пропуск имени:
repeat

Ввод года рождения:

read(Year); { из той же введенной строки }

var Year: integer;

Ввод числа голов и переход к следующей строке:

readln(Gol); { читать все до конца строки }

var Gol: integer;

Year, Gol: integer;
begin
writeln('Количество футболистов');
readln(N);
count := 0;

repeat read(c); until c = ' ';
repeat read(c); until c = ' ';
read(Year);
readln(Gol);

строка }
repeat
read(c); {

Вместо read(Year):

s := ''; { пустая строка }
repeat
read(c); { прочитать символ }
s := s + c; { прицепить к году }
until c = ' ';
Val(s, Year, r); { строку – в число }

var fam: string;

var s: string;

100;
var fam: array[1..MAX] of string;
...
fam[i] := ''; { пустая

массив символьных строк

забили больше двух голов.
Пример:
Иванов Василий
Семёнов

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