сервис вопросов и ответовДаны действительное число a, натуральное число n. Вычислить: P=a(a-n)(a-2n)*...*(a-n^2). Решить на языке Turbo Pascal. Помогите плииз
5-9 класс|
|
Оксана134
27 апр. 2015 г., 18:10:57 (9 лет назад)
Fangames982
27 апр. 2015 г., 20:43:10 (9 лет назад)
var
a, result:real;
n, i:integer;
begin
write('a = ');
readln(a);
write('n = ');
readln(n);
result := a;
for i := 1 to n do
result := result * (a - i * n);
writeln('Result = ', result);
readln;
end.
Alekxsv4
27 апр. 2015 г., 21:51:05 (9 лет назад)
Program P1;
Uses Crt; {можно и не использовать, без оной clrscr - видаст ошибку, что нет такого}
Var a,p: Real;
n,i: Integer;
Begin
ClrScr; {просто чтобы очистить экран можно и не использовать}
Write('Type a: '); Read(a);
Write('Type n: '); Read(n);
for i:=1 to n do
begin
p:=p+(a*(a-i*n)*(a-n*n));
{не совсем понятны три точки в условии}
end;
Writeln('p=', p:3:3); {количество знаков после запятой и общее}
Readkey; {или можно использовать Readln;}
End.
Ответить
Другие вопросы из категории
На местном рынке ввели "гиревой сбор". Дополнительная плата с продавцов, которые используют более 4 гирь. Находчивый продавец Семен Семенович сообразил,
что ему никогда еще не приходилось ничего взвешивать тяжелее 40 килограммов и понял какие 4 гири ему нужны.Определите и Вы какие четыре гири понадобятся Семену Семеновичу, чтобы он смог на чашечных весах взвесить любое количество целых килограммов от 1 до 40.В ответе укажите через пробел в порядке возрастания 4 числа - веса гирь.
В числе ,записанном в римской системе счисления ,поменяли местами вторую и третью,четвёртую и пятую от начала цифры,а затем перевели результат в
десятичную систему счисления.Получилось число 2162.Определите исходное число,переведите его в десятичную систему счисления и запишите результат.Напомним ,что для записи чисел в римской системе счисления используется набор из семи цифр(I,V,X,L,C,D,M)
а)1924 б)1492 в)1294 г)1942
Вам известно точное название документа, например «Гигиенические требования к персональным электронно-вычислительным машинам и организации работы».
Сформулируйте запрос для поиска в Интернете полного текста документа.
Статья, набранная на компьютере, содержит 16 страниц, на каждой странице
30 строк, в каждой строке 32 символа. Определите информационный объём
статьи в одной из кодировок Unicode, в которой каждый символ кодируется
16 битами.
Ответы:
1) 24 Кбайт
2) 30 Кбайт
3) 480 байт
4) 240 байт
Читайте также
1)составить программу, которая подсчитает объем любого шара по формуле: V=4/3Пr^3 2)даны действительные числа x и y. необходимо определить
принадлежит ли точка с координатами (x,y) окружности с радиусом R и центром в точке (x1,y1).
3)дан одномерный числовой массиф В(16). Необходимо вывести на экран индексы элементов значения, которых равны числу P.
cрочно надо на языке паскаль составить плиз)
Номер 28!
Даны действительное число а,натуральное число n. Вычислите:
S=1/a+1/a(во 2 степени)+1/а(в 4 степени)+..1/а(в степени 2n-2)
В турбо паскале
Выполнить задания, связанные с Turbo Pascal: 1) Какой оператор позволяет менять значения переменных и вычислять
значения выражений?
2) Выполнить алгоритм при x=345:
Начало
ввод x
a=x div 100
b=x div 10 mod 10
c=(a+b)/2
вывод a
вывод b
вывод c
конец
3) Что появится на экране после выполнения фрагмента программы:
a:=7;
b:=5;
a:=a-b;
Writeln(b-a*2);
Writeln('a=',a,'b=',b);
4) Дана сторона квадрата, найти его периметр.
5) Дано трёхзначное число. В нём зачеркнули последнюю справа цифру и приписали её в начале. Найти полученное число.
*Задачи 4 и 5 решить на языке программирования, используя математические функции.
Помогите пожалуйста Решить 2 задачи на языке Паскаль! 1) По данному числу N распечатайте все целые степени двойки, не
превосходящие N, в порядке возрастания.
Операцией возведения в степень пользоваться нельзя!
2)
В первый день спортсмен пробежал x километров, а затем он каждый день увеличивал пробег на 10% от предыдущего значения. По данному числу y определите номер дня, на который пробег спортсмена составит не менее y километров.
Программа получает на вход действительные числа x и y и должна вывести одно натуральное число.
Помогите по программе paskal : 1.дано целое число.напишите программу которая уменьшает на 2 модуль этого числа и выводит на экран монитора
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат
Вы находитесь на странице вопроса "Даны действительное число a, натуральное число n. Вычислить: P=a(a-n)(a-2n)*...*(a-n^2). Решить на языке Turbo Pascal. Помогите плииз", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.