Question

В книге 100 страниц на каждой странице случайное число строк от 35 до 45. на каждой строке буква А встречается случайное число раз от 2 до 5. сколько раз буква А встречается в книге. Написать программу в Паскале. Помогите пожалуйста

Answer 1

program massiv4;
uses crt;
var a, b, c:integer;
begin
clrscr;
randomize;
a:=random(3)+2;
b:=random(35)+10; 
c:=a*b*100;
writeln(c);
readln;
end.

вариант 2: показывает более плавную кривую распределения символов A по странице, поскольку генерирует случайное значение встречаемости символа в каждой новой строке:

program massiv4;
uses crt;
var i, a, b, c:integer;
begin
for i := 0 to 99 do
begin
randomize; 
b:=random(35)+10; 
for i := 1 to b do
begin
randomize; 
a:=random(3)+2; 
for i := 1 to a do
begin
c:=c+a*b;
end;
end;
end;
writeln(c); 
readln;
end.

Answer 2

Конечно! Вот пример программы на языке Паскаль, которая решает данную задачу:

pascalCopy code
program CountLetterA;

const
  MinLines = 35;
  MaxLines = 45;
  MinOccurrences = 2;
  MaxOccurrences = 5;
  NumPages = 100;

var
  totalPages: Integer;
  totalOccurrences: Integer;
  page, line, occurrences: Integer;

begin
  Randomize; // Инициализация генератора случайных чисел

  totalOccurrences := 0;

  for page := 1 to NumPages do
  begin
    // Генерация случайного числа строк на странице
    totalPages := Random(MaxLines - MinLines + 1) + MinLines;

    for line := 1 to totalPages do
    begin
      // Генерация случайного числа вхождений буквы А в строке
      occurrences := Random(MaxOccurrences - MinOccurrences + 1) + MinOccurrences;

      totalOccurrences := totalOccurrences + occurrences;
    end;
  end;

  writeln('Общее количество вхождений буквы А в книге: ', totalOccurrences);
end.

В данной программе используется генератор случайных чисел для определения числа строк на каждой странице и числа вхождений буквы А в каждой строке. Затем программа выполняет итерацию по всем страницам и строкам, суммируя общее количество вхождений буквы А. Результат выводится на экран.

Обратите внимание, что в приведенной программе используется функция Random, которая генерирует случайное число в заданном диапазоне. Также важно помнить, что в языке Паскаль нумерация начинается с 1, поэтому в циклах используются значения от 1 до N включительно.