сервис вопросов и ответовВычислить
10-11 класс|
|
(1+sin0.1)(1+sin0.2) ... (1+sin10) для Free Pascal. Помогите!!!!
SaBiNkA262002
27 окт. 2016 г., 6:17:26 (7 лет назад)
Larisovka72
27 окт. 2016 г., 7:35:19 (7 лет назад)
var i,p:real;
begin
i:=0.1;
p:=1;
while (i<=10) do
begin
p:=p*(1+sin(pi*i/180));
i:=i+0.1;
end;
writeln ('Rezultat: ',p);
readln;
end.
Ответить
Другие вопросы из категории
В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] – данные за первый день, Dat[2] – за второй и т. д.).
Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования. алг
нач
целтаб Dat[1:10]
цел k, m
Dat[1] := 12
Dat[2] := 15
Dat[3] := 17
Dat[4] := 15
Dat[5] := 14
Dat[6] := 12
Dat[7] := 10
Dat[8] := 13
Dat[9] := 14
Dat[10] := 15
m := 0
нц для k от 1 до 10
если Dat[k]>m то
m := Dat[k]
все
кц
вывод m
кон
DIM Dat(10) AS INTEGER
DIM k,m AS INTEGER
Dat(1) = 12: Dat(2) = 15
Dat(3) = 17: Dat(4) = 15
Dat(5) = 14: Dat(6) = 12
Dat(7) = 10: Dat(8) = 13
Dat(9) = 14:Dat(10) = 15
m = 0
FOR k = 1 TO 10
IF Dat(k)>m THEN
m = Dat(k)
ENDIF
NEXT k
PRINT m
Var k, m: integer;
Dat: array[1..10] of integer;
Begin
Dat[1] := 12; Dat[2] := 15;
Dat[3] := 17; Dat[4] := 15;
Dat[5] := 14; Dat[6] := 12;
Dat[7] := 10; Dat[8] := 13;
Dat[9] := 14; Dat[10] := 15;
m := 0;
for k := 1 to 10 do
if Dat[k]>m then
begin
m := Dat[k]
end;
writeln(m);
End.
составить программу печатающую значение true если указанное высказывание является истинным и false в противном случае треугольник со сторонами а в с
является равнобедренным
Мощность алфавита равна 256. Сколько кбайт памяти потребуется для сохранения 160 страниц текста, содержащего в среднем 165 символов на каждой
странице.
ПОМОГИТЕ ПОЖАЛУЙСТО!!!
Читайте также
Заданы первый член арифметической прогрессии а, разность прогрессии d и количество членов прогрессии k. Вычислить k-1 и к-ые члены арифметической
прогрессии и сумму первых n членов Sn. Если Sn≤25, то вычислить процентное отношение первого и последнего членов арифметической прогрессии . Написать программу на языке Паскаль
Ребят,привет,помогите кто чем может.Как вычислить средний бал в эксель,если есть баллы за текущие тесты,экзамен теория,экзамен практика.Я поняла,что
нужно использовать кнопку СРЗНАЧ,но ведь там в баллах и выходит,а "средний бал" помоему должен вычисляться в оценке.
Напишите программу, которая вычисляет НОД двух чисел. Используйте функцию.
Напишите программу, которая вычисляет НОК двух чисел. Используйте функцию.
)Какую структуру Будет иметь алгоритм решения следующей задачи? Дано целое положительное число N. Если N — четное, то вычислить N! = 1·2·...·N. Если N —
Нечетное то вычислить сумму : 1 + 2 + .+N.Составить программу на паскале
1)написать программу, которая вычисляет произведение сумм всех соседних пар целых чисел из диапазона от 12 до 36 и выводит значения тех сумм, которые
меньше 52.
2)В результате работы некоторой подпрограммы вычислены значения четырех переменных a, b, c, d. Написать на предложенном в пункте а) языке программирования программу, после работы которой в случае, если сумма положительных значений (среди a, b, c, d) больше 20, значение g равно наибольшему из a, b, c, а в остальных случаях значение g равно значению d. (В программе можно использовать новые переменные.)
Вы находитесь на странице вопроса "Вычислить", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.