Строчные переменные - 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.

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

  1. Объявляются строчные переменные s, s1 и sr типа string и integer соответственно.
  2. Переменным s и sr присваиваются начальные значения пустой строки и 0 соответственно.
  3. Задается случайное начальное значение для цикла, используя функцию randomize.
  4. Цикл for выполняется 10 раз, в каждой итерации выполняются следующие действия: a. Внутри цикла создается переменная j типа integer со случайным значением от 0 до 9. b. Значение переменной j добавляется к строке s в виде символа, используя функцию chr. c. Значение переменной j добавляется к переменной sr.
  5. Переменной sr вычисляется среднее арифметическое и результат сохраняется в переменной s1 с помощью функции str.
  6. Выводятся исходная строка s и строка с добавлением среднего арифметического s+s1.

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

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