nettor
Новичок
|
   
Cпасибо я сама решила свою задачу 
|
Всего сообщений: 2 | Присоединился: ноябрь 2008 | Отправлено: 1 дек. 2008 21:12 | IP
|
|
Hanafi
Новичок
|
Помогите, пожалуйста !
Задачка на рекурсию : Вычислить : F(n)=1 если n=1
n
F(n) =∑ F(n Div i) если n>=2
i=2
Никак не получается.
program ex;
uses wincrt;
var n:integer;
function fdiv(n,i:integer):integer;
begin
if i=n then
fdiv:=0
else
fdiv:=fdiv(n div i,i+1);
end;
begin
write('Donner n ');
readln(n);
writeln(fdiv(n,2));
end.
Заранее благодарна за помощь.
|
Всего сообщений: 3 | Присоединился: декабрь 2008 | Отправлено: 5 дек. 2008 0:07 | IP
|
|
Hanafi
Новичок
|
=∑ Эти странные символы означают сумма для i от 2 до n
|
Всего сообщений: 3 | Присоединился: декабрь 2008 | Отправлено: 5 дек. 2008 0:10 | IP
|
|
paradise 
Долгожитель
|
 
program help;
function recursion(n: integer): integer;
var
sum, i: integer;
begin
sum := 0;
if n = 1 then
Result := 1
else
begin
for i := 2 to n do
sum := sum + recursion(n div i);
Result := sum;
end;
end;
var n: integer;
begin
cls;
writeln('Please, enter n: ');
read(n);
writeln('Result: ', recursion(n));
end.
// писала на PascalABC.
|
Всего сообщений: 428 | Присоединился: ноябрь 2008 | Отправлено: 5 дек. 2008 1:43 | IP
|
|
paradise
Долгожитель
|
Цитата: motorola написал 29 нояб. 2008 13:09
Помогите пожалуйста с задачкой:
Даны координаты двух точек на плоскости. Составить программу, которая вводит эти координаты и выясняет, является ли треугольник, вершинами которого являются начало координат и эти точки, равнобедренными.
Пожалуйста помогите.
Не сильно красивое решение, тем не менее работает:
program help;
function check(x1, y1, x2, y2: real): boolean;
var
length_1, length_2, length_3: real;
begin
length_1 := sqrt(sqr(x1)+sqr(y1));
length_2 := sqrt(sqr(x1-x2)+sqr(y1-y2));
length_3 := sqrt(sqr(x2)+sqr(y2));
if (length_1 = length_2) or (length_2 = length_3) or (length_1 = length_3) then
Result := true
else
Result := false;
end;
var
x1, y1, x2, y2: real;
begin
cls;
writeln('Please, enter coordinates of the first point: ');
read(x1, y1);
writeln('Please, enter coordinates of the second point: ');
read(x2, y2);
if check(x1, y1, x2, y2) = true then
writeln('Your triangle is isosceles')
else
writeln('Your triangle is not isosceles');
end.
// писала на PascalABC
|
Всего сообщений: 428 | Присоединился: ноябрь 2008 | Отправлено: 5 дек. 2008 2:18 | IP
|
|
paradise
Долгожитель
|
Цитата: Deadly nepaskalist написал 30 нояб. 2008 10:49
Помогите плз с задачкой!
====================================
Функция скалярного произведения 2-х векторов.
====================================
Ну ваще не понимаю как составлять эти функции может кто расскажет))
program help;
function scalar_product(x1, y1, x2, y2: real): real;
begin
Result := x1*x2 + y1*y2;
end;
var
x1, y1, x2, y2, prod: real;
begin
cls;
writeln('Please, enter coordinates of the first vector: ');
read(x1, y1);
writeln('Please, enter coordinates of the second vector: ');
read(x2, y2);
writeln('scalar product of vectors: ', scalar_product(x1, y1, x2, y2));
end.
// писала на PascalABC
|
Всего сообщений: 428 | Присоединился: ноябрь 2008 | Отправлено: 5 дек. 2008 2:28 | IP
|
|
paradise
Долгожитель
|
Цитата: pooh написал 28 нояб. 2008 0:50
нужно написать программу для обхода графа на Паскале. заранее спасибо)
Обходы могут быть разными. Что конкретно требуется?
|
Всего сообщений: 428 | Присоединился: ноябрь 2008 | Отправлено: 5 дек. 2008 2:35 | IP
|
|
Hanafi
Новичок
|
Огромнейшее спасибо, Paradise. Не знаю, как я зациклилась. Решение очень простое и лаконичное. Спасибо ещё раз. Удачи Вам. С уважением. Hanafi
|
Всего сообщений: 3 | Присоединился: декабрь 2008 | Отправлено: 5 дек. 2008 14:57 | IP
|
|
Ineedhelpplaz
Новичок
|
С помощью while and until:
1. Составьте программу вычисления квадрата суммы нечетных делителей натурального числа М.
2. Составьте программу, определяющую, какое минимальное количество цифр трехзначного числа Н надо исправить, чтобы исправленное число записывалось с помощью только одной цифры.
1. Составьте программу вычисления суммы четных составных делителей, кратных 4, натурального числа Х.
2. Составьте программу вывода на экран всех трехзначных натуральных чисел, не превосходящих N и не делящихся ни на одну из своих цифр.
1. Найти количество первых натуральных чисел, произведение которых не превышает заданного с клавиатуры числа В.
2. Одноклеточная амеба каждые 3 часа делится на 2 клетки. Определить, сколько клеток будет через 3, 6, 9,12... 24 часа? Сколько всего амёб появится через 24 часа?
3. Даны натуральные числа n, m. Получить сумму m последних цифр числа n.
С помощью for:
2) Составьте программу получения в порядке убывания всех делителей данного числа.
Составить запись решения задачи на языке программирования с помощью двух циклов:
3) Последовательно вводятся N целых чисел. Определить каких среди них больше: положительных или отрицательных.
4) Составьте программу вычисления степени числа a с натуральным показателем N.
1) Даны действительное число a, натуральное число n. Вычислить: P=a(a+1)*..*(a+n-1).
2. Вычислить по схеме Горнера: y=x^10+(2*x)^10+(3*x)^9...+10*x+11
плиз, очень нада
|
Всего сообщений: 2 | Присоединился: декабрь 2008 | Отправлено: 7 дек. 2008 13:41 | IP
|
|
Serega1992
Новичок
|
Ineedhelpplaz, вот Вы написали Ваш гигантский перечень задач и думаете, что Вам его так и побегут решать? Покажите, что Вы хоть что-то пытались сделать сами, что Вы старались, но у Вас не получилось.
(Сообщение отредактировал Serega1992 7 дек. 2008 20:26)
|
Всего сообщений: 50 | Присоединился: апрель 2008 | Отправлено: 7 дек. 2008 15:31 | IP
|
|
|
Форум
Решение задач на Pascal. Форум 2
