import random #Для обьявления функций заполнения массива#
import math #Библиотека math для считывания корня числа#
from random import randint #Библиотека randint для заполнения массива случайным ЦЕЛЫМИ числами#
import numpy #Библиотека numpy для нахождения средней арифметической#
import array
#Обьявление кортежа, заполнение рандомыми действительными числами(для действительных чисел используется метод math.uniform) количеством в 20 элементов, в диапазоне ниже написанного#
aTuple = [random.uniform(-50.555, 30.333) for x in range(0, 20)]
#Заполнение массива уже только ЦЕЛЫМИ числами, для целых чисел используется randint#
numbers = [randint(0, 1000) for x in range(0, 100)]
print("\nRandom numbers in the range from 1 to 1000, whose root is greater than the arithmetic mean of the tuple numbers: ")
#len — длина массива#
for i in range (len(numbers)):
#math.sqrt — метод извлечения квадратного корня#, "numpy.mean" — метод, вычисляющий среднюю арифметическую#
if math.sqrt(numbers[i])>numpy.mean(aTuple):
print(numbers[i])
program Struna;
uses crt;
var F, p, l, S, nu:real;
begin
clrscr();
writeln('Данная программа рассчитывает частоту колебаний струны в зависимости от её физических параметров и силы натяжения') ;
write('Укажите длину струны в метрах: ');
readln(l);
while l<0 do begin
write('Длина струны не может быть отрицательным числом, повторите ввод: ');
readln(l) end;
write('Укажите укажите силу натяжения струны в Ньютонах: ');
readln(F);
while F<0 do begin
write('Сила натяжения струны не может быть отрицательным числом, повторите ввод: ');
readln(F) end;
write('Укажите площадь поперечного сечения струны в квадратных метрах: ');
readln(S);
while S<0 do begin
write('Площадь поперечного сечения струны не может быть отрицательным числом, повторите ввод: ');
readln(S) end;
write('Укажите плотность струны в кг/м³: ');
readln(p);
while p<0 do begin
write('Плотность струны не может быть отрицательным числом, повторите ввод: ');
readln(p) end;
nu:=1/2/l*sqrt(F/p/S);
write('На основе введенных данных частота колебания струны составляет ',nu,' Гц');
readln;
end.
Объяснение:
Программа на языке Паскаль
1) 1
2) 2
3) 4
4) 4
5) килобайт - 1024
мегабайт - 1048576
гигабайт - 1073741824
терабайт - 1099511627776