Прграммы имитирующие операции над строками - Pascal
Формулировка задачи:
Помогите найти ошибки:
Программа, должна имитировать функцию операции над строками (Position).
И если не сложно, помогите написать еще 2 аналогичные задачи на copy и concat. С остальными справился вроде, эти вызвали затруднение.
Решение задачи: «Прграммы имитирующие операции над строками»
textual
Листинг программы
uses crt; function MyConcat(s1,s2:string):string; var i:byte; s:string; begin s:=''; for i:=1 to length(s1) do s:=s+s1[i]; for i:=1 to length(s2) do s:=s+s2[i]; MyConcat:=s; end; var s1,s2:string; begin clrscr; writeln('Строка 1:'); readln(s1); writeln('Строка 2:'); readln(s2); write(MyConcat(s1,s2)); readln end.
Объяснение кода листинга программы
- Объявлены две функции: MyConcat и основная функция программы.
- В функции MyConcat объявлены три переменные: i, s1, s2.
- Переменная i инициализируется значением 1, а переменные s1 и s2 пустыми строками.
- Переменная s инициализируется пустой строкой.
- Два вложенных цикла выполняют следующие действия:
- В первой итерации первого вложенного цикла значение переменной s1[i] добавляется к переменной s.
- Во второй итерации второго вложенного цикла значение переменной s2[i] добавляется к переменной s.
- Значение переменной s присваивается результат выполнения функции MyConcat.
- В основной функции программы объявлены две переменные: s1 и s2.
- На экран выводится приглашение для ввода строки 1.
- Введенное значение сохраняется в переменной s1.
- На экран выводится приглашение для ввода строки 2.
- Введенное значение сохраняется в переменной s2.
- Результат выполнения функции MyConcat выводится на экран.
- Программа ожидает ввода с клавиатуры, чтобы завершить работу.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д