Программа и к ней задание - Turbo Pascal
Формулировка задачи:
Нужно сделать программу.
К ней есть задания:
1) ввести две параллельные строкового типа
2) найти их длину
3) найти кол-во букв "а" в первой строке
4) получить новую строку, объединив первые две
5) вставить пробел между словами
и это все в одной программе.
Заранее СПАСИБО!!!
Решение задачи: «Программа и к ней задание»
textual
Листинг программы
Var s1,s2 : String; i,k : Byte; Begin Readln(s1); Readln(s2); k:=0; For i:=1 to Length(s1) do Inc(k,Ord(s1[i]='a')); Writeln('a = ',k); Writeln(Length(s1)); Writeln(Length(s2)); Writeln(s1+' '+s2); end.
Объяснение кода листинга программы
- В начале объявляются переменные: s1, s2 типа String; i, k типа Byte.
- Затем происходит чтение двух строк в переменные s1 и s2 с помощью функции Readln.
- Переменная k инициализируется нулем.
- Далее идет цикл For, который проходит по каждому символу в строке s1.
- В каждой итерации цикла значение символа сравнивается со значением 'a' с помощью функции Ord. Если символы равны, то значение переменной k увеличивается на единицу.
- После завершения цикла выводится значение переменной k с помощью функции Writeln.
- Выводятся длины строк s1 и s2 с помощью функции Length.
- Выводится конкатенация строк s1 и s2 с помощью оператора '+' и функции Writeln.