Определить сумму ASCII-кодов символов, составляющих строку - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Добрый день! Дана задача: Определить сумму ASCII-кодов символов,составляющих строку a$. Вывести полученное значение и строку b$,состоящую из символов,ASCII-коды которых на заданное число n больше соответствующих символов строки a$. Буду безмерно благодарен за любую помощь!

Решение задачи: «Определить сумму ASCII-кодов символов, составляющих строку»

textual
Листинг программы
uses crt;
var a,b:string;
    n,i,s:integer;
begin
clrscr;
writeln('Введите строку a');
readln(a);
write('Введите n=');
readln(n);
s:=0;
b:='';
for i:=1 to length(a) do
 begin
  s:=s+ord(a[i]);
  b:=b+chr((ord(a[i])+n)mod 256);
 end;
writeln('Сумма кодов=',s);
writeln('Строка b');
write(b);
readln
end.

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

  1. В первой строке кода используется библиотека crt, которая является стандартной для языка Turbo Pascal и используется для ввода-вывода данных.
  2. Далее объявляются переменные a, b, n и i. Переменная a является строкой, переменная b также является строкой, переменная n - целым числом, а переменная i - целым числом.
  3. Строка clrscr используется для очистки экрана перед вводом данных.
  4. Затем выводится сообщение Введите строку a, после чего происходит чтение строки a с помощью функции readln.
  5. Выводится сообщение Введите n= и происходит чтение значения n с помощью функции readln.
  6. Инициализируется переменная s значением 0 и переменной b значением пустой строки.
  7. Запускается цикл for, который выполняется от 1 до длины строки a.
  8. Внутри цикла переменная s увеличивается на сумму ASCII-кода текущего символа строки a с помощью функции ord и переменной n.
  9. Переменная b увеличивается на сумму ASCII-кода текущего символа строки a с помощью функции ord и оператора mod 256, чтобы получить символ, который будет добавлен в конец строки b.
  10. После завершения цикла выводится сообщение Сумма кодов= и значение переменной s.
  11. Выводится сообщение Строка b и значение переменной b.
  12. Код завершается с помощью оператора readln.

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

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