Строчные переменные - Pascal
Формулировка задачи:
Заполнить строчную переменную цифрами с помощью генератора
случайных значений. В конец срочного поля добавить строчное изменение, которое будет
содержать число, а именно среднее арифметическое всех цифр.
То-есть мне нужно вывести сразу просто строку из цыфр и ещё такую же, только чтобы в конце этой строки добавилось среднее арифметическое этих цыфр. Помогите пожалуйста, уже перелопатил всё что только можна.
Решение задачи: «Строчные переменные»
textual
Листинг программы
const n=10; var i,j:integer; s,s1:string; sr:real; begin s:=''; sr:=0; randomize; for i:=1 to n do begin j:=random(10); s:=s+chr(j+48); sr:=sr+j end; str(sr/n,s1); writeln('Исходная строка: ',s); writeln('Строка с добавлением среднего арифметического: ',s+s1); end.
Объяснение кода листинга программы
- Объявляются строчные переменные s, s1 и sr типа string и integer соответственно.
- Переменным s и sr присваиваются начальные значения пустой строки и 0 соответственно.
- Задается случайное начальное значение для цикла, используя функцию randomize.
- Цикл for выполняется 10 раз, в каждой итерации выполняются следующие действия: a. Внутри цикла создается переменная j типа integer со случайным значением от 0 до 9. b. Значение переменной j добавляется к строке s в виде символа, используя функцию chr. c. Значение переменной j добавляется к переменной sr.
- Переменной sr вычисляется среднее арифметическое и результат сохраняется в переменной s1 с помощью функции str.
- Выводятся исходная строка s и строка с добавлением среднего арифметического s+s1.