Новые сообщения · Правила  
  • Страница 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 ]
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
Поиск: