Содержание
- 2. Char - String - Типы величин один произвольный символ в кавычках. Примеры: ‘с’, ‘и’, ‘м’, ‘в’,
- 3. Объявление строковых и символьных величин Var a:string; b:char; В этом фрагменте программы описываются: величина а строкового
- 4. Соответствие типов Var a:string; b:char; begin ************ a:=b; так можно! b:=a; так нельзя!
- 5. Склеивание строк Для склеивания строк используется операция сложения, знаком которой служит математический символ «+». writeln(a+b); или
- 6. Процедуры и функции функции length(a) - длина литерной величины (количество символов). cору(a,b,c) - копирование фрагмента из
- 7. length(a) При выполнении команды writeln(length(a)); на экране печатается число, равное количеству символов в строке. Длина строки
- 8. copy(a, b, c); Результат копирования может быть выведен на экран или присвоен другой строковой переменной. Пример:
- 9. delete(a, b, c) Процедура удаления является самостоятельной командой и не может быть присвоена другой переменной или
- 10. insert(b, a, c) Пример: var a: string; begin a:=‘око’; insert(‘мол’,a,1); writeln(a); end. Результат: слово молоко
- 11. Решение задач 1. Дана литерная величина A. Подсчитать количество букв ‘b’ в этой величине. Решение 2.
- 12. Program exp1; Var A:string; k,i:integer; Begin writeln ('Введите строку'); readln (A); k:=0; for i:=1 to length(A)
- 13. Задача 2 Program exp2; Var A:string; i:integer; Begin writeln ('Введите строку'); readln (A); i:=1; while i
- 14. Задача 3 Program exp3; Var A:string; i:integer; Begin writeln ('Введите строку'); readln (A); i:=1; while i
- 15. Задача 4 Program exp4; Var А:string; i:integer; Begin writeln ('Введите строку'); readln (А); i:=1; while i
- 16. Задача 5 Program exp5; Var А:string; i:integer; begin writeln ('Введите строку'); readln (А); i:=1; while i
- 17. Задача 6 Program exp6; Var a:string; i:integer; Begin writeln ('Введите строку'); readln (a); i:=1; while i
- 18. Задача 7 Program exp7; Var a:string; i:integer; begin writeln ('Введите строку'); readln (a); i:=1; while i
- 19. Задача 8 Program exp8; Var a:string; i,k:integer; begin writeln ('Введите строку'); readln (a); insert (' ',a,1);
- 20. Задача 9 Program exp9; Var a:string; i:integer; begin writeln ('Введите строку'); readln (a); a:=‘ ‘+a+’ ‘;
- 21. Задача 10 Program exp10; Var a:string; i:integer; begin writeln ('Введите строку'); Readln(a); a:=‘ ‘+a+’ ‘; i:=1;
- 22. Задача 11 Program exp11; Var a:string; i,k,b:integer; begin writeln ('Введите строку'); readln(a); insert(' ',a,1); insert(' ',a,length(a)+1);
- 24. Скачать презентацию