Содержание
- 2. Строка - это массив символов, т.е. элементов типа char. В Паскале строке соответствует тип данных String.
- 3. Правила: строки равны только при одинаковом наборе символов и одинаковой длине; Например: 'ABC'='ABC' и 'ABC'≠'abc' иначе
- 4. Теория 3 Соединение двух строк. s1:='2011' + ' год'; Writeln(s1); s1:='10'; s2:='класс'; s3:=s1+' '+s2; Writeln(s3);
- 5. Функция Length Функция Length(S) определяет текущую длину строки S. Результат — значение целого типа. Теория 4
- 6. Uses crt; var a,b:string; m,n:Integer; Begin Clrscr; Writeln('ВВеди первую строку ');Readln(a); Writeln('ВВеди вторую строку ');Readln(b); m:=Length(a);
- 7. Функция Сору Функция Сору(S, P, N) выделяет из строки S подстроку длиной N символов, начиная с
- 8. Задача 3. Составить программу осуществляющую вырезку из слова ИНФОРМАТИКА букв так, что бы из них получилось
- 9. Преобразование типов 8 Функция STR Str(x, S) преобразует число x в строковый формат. Где x –
- 10. Процедура val позволяет преобразовать цифровые символы (изображение числа) в число. В общем виде обращение к процедуре
- 11. Преобразование типов 10 BEGIN s1:='123456789'; val(s1,n,code); Writeln(n); END. BEGIN s1:='123456789ABCDE'; val(s1,n,code); Writeln(n); END.
- 12. s1:='ABCDE123456789'; val(s1,n,code); Writeln(n); В PascalABC есть более развитый арсенал преобразований как в DELPHI: S:=IntToStr(N) - преобразует
- 13. Преобразование типов 12 Задача 5. Дано строка символов а1+а2=. Где 1 VAR S: STRING; a,b,c:real; code:INTEGER;
- 14. Символы и их коды 13 Функции ORD и CHR Функция Ord(S) – определяет порядковый номер символа.
- 15. Символы и их коды 14 Задача 6. Составьте программу, которая по символу введенному с клавиатуры, выводит
- 16. Задача 7. Дана строка символов. Определить сколько раз в ней встречается буква А (русская). Program n5;
- 17. Замечание 16 for i:=1 to length(s) do begin if (s[i]=…… if (s[i]=…… end; Замечание. Если требуется
- 18. Подсчет символов в строке 17 Начало Ввод S i,1,length(s) Si ='A' К=К+1 Вывод К Конец Да
- 19. Замена символов в строке 18 Задача 8. Дана строка символов. Заменить в ней все буквы А
- 20. Замена символов в строке 19 Начало Ввод S i,1,length(s) Si ='A' Si ='O' Вывод S Конец
- 21. Задача 9 Удалить из строки введенной с клавиатуры все буквы R (латинские, заглавные). Program n7; Uses
- 22. Удаление символов из строки 21 Начало Ввод A i,1,length(A) Ai 'R' B=B+ Ai Вывод А Конец
- 23. Вложенные условия. 22 begin clRscr; Readln(s); for i:=1 to length(s) do if (s[i]='а') or (s[i]='б') then
- 24. Вложенные условия 23 Начало Ввод S i, 1, length(S) Si ='а' Si ='б' Si ='а' Вывод
- 25. Вложенные циклы 24 begin ClrScr; Write('ВВеди строку '); readln(s); s1:=',.;:"!?-'; for i:=1 to length(s1) do begin
- 27. Скачать презентацию