задачи на паскале - Форум ПРОГРАММИСТОВ

Новые сообщения · Правила

Страница 1 из 1 1
Модератор форума: Berestovskiy

задачи на паскале

мне осталось совсем немного,всего 3 задачи,но я никак не могу их решить,может быть вы сможете мне помочь?нужно написать программы на паскале собственно вот сами задачи
1)найти числа из промежутка [a,b] у которых больше всего делителей(реализовать функцию,вычисляющую количество делителей число)

2)написать программу для вычисления значения выражения f(0.8,a)+f(a,b)-f(2a-1,ab),где a,b дейцствительные числа и f(x,y)=(x^2+y^2)/(x^2+2xy+y^2+6)
3)в строке переставить слова так,чтобы сначала шли слова,начинающиеся с гласной,а потом все остальные(можно сформировать новую строку).

№1 | Автор: shadow51 | 2013-05-07, 11:47 | Репутация: [ + 0 ]

сможем, что именно не получается?

Нужна помощь? Сюда: vkontakte.ru/berestovskiy

№2 | Автор: Berestovskiy | 2013-05-07, 16:24 | Репутация: [ + 211 ]

Цитата (Berestovskiy)

1)найти числа из промежутка [a,b] у которых больше всего делителей(реализовать функцию,вычисляющую количество делителей число)

function GetNumOfDivisors(number:integer):byte;
var
i,amount:byte;
begin
amount:=0;
for i:=1 to sqrt(number) do
if number mod i = 0 then amount:=amount+1;
GetNumOfDivisors:=amount;
end;

вот тебе функция

Нужна помощь? Сюда: vkontakte.ru/berestovskiy

№3 | Автор: Berestovskiy | 2013-05-07, 16:28 | Репутация: [ + 211 ]

Цитата (shadow51)

2)написать программу для вычисления значения выражения f(0.8,a)+f(a,b)-f(2a-1,ab),где a,b дейцствительные числа и f(x,y)=(x^2+y^2)/(x^2+2xy+y^2+6)

function Fxy(x,y:real):real;
begin
Fxy:=(x*x+y*y)/(x*x+2*x*y+y*y+6);
end;
var
a,b:real;
begin
read(a,b);
writeln(Fxy(0.8,a)+Fxy(a,b)-Fxy(2*a-1,a*b));
end.

Нужна помощь? Сюда: vkontakte.ru/berestovskiy

№4 | Автор: Berestovskiy | 2013-05-07, 16:30 | Репутация: [ + 211 ]

задачи на паскале

Страница 1 из 1
1

прикладная математика