Предмет: Информатика,
автор: sashavukg
В книге 100 страниц на каждой странице случайное число строк от 35 до 45. на каждой строке буква А встречается случайное число раз от 2 до 5. сколько раз буква А встречается в книге. Написать программу в Паскале. Помогите пожалуйста
Ответы
Автор ответа:
0
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.
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.
Автор ответа:
0
соответственно каждый раз при запуске будет показываться количество букв А в диапазоне, определяемом мультипликативной вероятностью a*b
Автор ответа:
0
сам диапазон можно посчитать, если посмотреть формулу умножения вероятностей из математики, но в задании этого не требуется
Автор ответа:
0
можете объснить что значит clrscr?
Автор ответа:
0
clrscr - это команда очистить экран. Но она может быть актуальная только для чистого паскаля, который запускается из под DOS, в принципе, может быть пропущена.
Автор ответа:
0
можете помочь с еще одной задачей?)
Похожие вопросы
Предмет: Математика,
автор: ryabovol53
Предмет: Русский язык,
автор: hvhchf
Предмет: Қазақ тiлi,
автор: nurhojabalausa
Предмет: Химия,
автор: chrissstina
Предмет: Физика,
автор: outsideee