Составить программу по которой компьютер генерирует последовательность из 10 случайных чисел
Обновлено: 03.07.2024
1. Составьте программу, которая генерирует и выводит на экран случайное целое чисел из диапазона положительных двузначных чисел.
( вывод: любое положительное двузначное число; например, 78)
2. Составьте программу, которая генерирует и выводит на экран 2 случайных однозначных целых числа (включая и положительные, и отрицательные). После этого в отдельной строке программа должна вывести наибольшее из этих двух чисел, и в еще одной строке – наименьшее из этих двух чисел.
( вывод в 1 строке, например: случайные числа: 4, -9; вывод во 2 строке: наибольшее из двух чисел 4; вывод в 3 строке: наименьшее из двух чисел -9)
3. Составьте программу, которая принимает с клавиатуры целое положительное двузначное число, а затем генерирует три целых положительных двузначных числа, не больших первого.
( ввод: 47 ⇒ вывод, например: 43, 12, 26)
4. Составьте программу, которая генерирует и выводит на экран случайное положительное двузначное число, а затем генерирует три целых двузначных числа, не меньших первого.
( вывод в 1 строке, например: случайное число: 77; вывод во 2 строке: 92, 83, 87)
5. Составьте программу, которая генерирует и выводит на экран два случайных положительных двузначных числа, обозначающих границы некоторого интервала, а затем генерирует три целых положительных числа внутри данного интервала.
( вывод в 1 строке, например: 24, 58; вывод во 2 строке: 49, 34, 41)
6. Составьте программу, которая генерирует и выводит на экран длины сторон катетов прямоугольного треугольника, не превышающих 10 см. Программа должна подсчитать длину гипотенузы этого треугольника, его площадь и периметр и вывести их на экран. Затем эти вычисленные значения следует округлить и вывести результат на экран в отдельной строке.
( вывод в 1 строке, например: 4.2, 5.7; вывод во 2 строке: 7.08, 11.97, 16.98; вывод в 3 строке: 7, 12, 17)
7. Составьте программу, которая генерирует и выводит на экран последовательность из 5 случайных целых чисел из диапазона от -10 до 10. Программа должна определить, сколько раз в этой последовательности меняется знак.
( вывод в 1 строке, например: 4, -2, 7, 9, -8; вывод во 2 строке: знак меняется 3 раза)
нужно составить программу. Вот условие:
Написать програму которая генерирует три последовательности из десяти случайных чисел от 1 до 10, выводит каждую последовательность на экран и вычисляет среднее арифмитическое каждой последовательности . на экране должно быть (при выводе на экран):
** случайные числа***
(например)
6 10 4 2 5 8 1 7 7 3 сред.арифм. 5,30
10 3 6 1 10 1 3 8 7 6 сред.арифм. 5,50
5 2 2 5 4 2 2 1 6 10 сред.арифм. 3,90
вообще я ее сделал но учитель сказал надо через оператор цикла.
вот как я написал:
program created_by_RaW_WaR;
uses crt;
var a,b,c,d,e,f,g,h,i,j:integer;
y:real;
begin
randomize;
clrscr;
textcolor(lightgreen);
writeln ('***sluchainie chisla***');
writeln;
textcolor(yellow);
a:=random(10);b:=random(10);c:=random(10);d:=random(10);e:=random(10);f:=random(10);
g:=random(10);h:=random(10);i:=random(10);j:=random(10);
y:=(a+b+c+d+e+f+g+h+i+j)/10;
write(a,' ',b,' ',c,' ',d,' ',e,' ',f,' ',g,' ',h,' ',i,' ',j);write (' srednee arifmiticheskoe ',y:2:2);
writeln;
textcolor(lightred);
a:=random(10);b:=random(10);c:=random(10);d:=random(10);e:=random(10);f:=random(10);
g:=random(10);h:=random(10);i:=random(10);j:=random(10);
y:=(a+b+c+d+e+f+g+h+i+j)/10;
write(a,' ',b,' ',c,' ',d,' ',e,' ',f,' ',g,' ',h,' ',i,' ',j);write(' srednee arifmiticheskoe ',y:2:2);
writeln;
textcolor(lightblue);
a:=random(10);b:=random(10);c:=random(10);d:=random(10);e:=random(10);f:=random(10);
g:=random(10);h:=random(10);i:=random(10);j:=random(10);
y:=(a+b+c+d+e+f+g+h+i+j)/10;
write(a,' ',b,' ',c,' ',d,' ',e,' ',f,' ',g,' ',h,' ',i,' ',j);write(' srednee arifmiticheskoe ',y:2:2);
writeln;
textcolor(11);
writeln;
writeln ('dlya zaversheniya nazhmite <enter>');
readln;
end.
uses crt;
var i,j,a:integer;
k:real;
Меняешь на:
b:=0;
for i:=1 to 10 do
begin
a:=random(10);
write (a,' ');
b:=b+a;
end;
write (' сред. фрифм ',b/10);
Вроде ничего не наврал.
если нужно, то можно это еще раз поставить на цикл от 1 до 3 чтобы было три последовательности.
Если есть вопросы, пиши.
Читайте также: