Программа и к ней задание - 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.

Объяснение кода листинга программы

  1. В начале объявляются переменные: s1, s2 типа String; i, k типа Byte.
  2. Затем происходит чтение двух строк в переменные s1 и s2 с помощью функции Readln.
  3. Переменная k инициализируется нулем.
  4. Далее идет цикл For, который проходит по каждому символу в строке s1.
  5. В каждой итерации цикла значение символа сравнивается со значением 'a' с помощью функции Ord. Если символы равны, то значение переменной k увеличивается на единицу.
  6. После завершения цикла выводится значение переменной k с помощью функции Writeln.
  7. Выводятся длины строк s1 и s2 с помощью функции Length.
  8. Выводится конкатенация строк s1 и s2 с помощью оператора '+' и функции Writeln.

Оцени полезность:

6   голосов , оценка 3.5 из 5
Похожие ответы