Страница 1 из 2
Помогите будущему хакеру!
Добавлено: 17 фев 2008, 10:47
DanielDefo
Парни помогите решить задачи в TPascalе!
Даны действительные числа a,b,c,d,e,f,g,h. Известно, что точки (e,f) и (g,h) различны;
(a,b) и (c,d) нележат на прямой L , проходящей через точки (e,f) и (g,h). Прямая L разбивает координатную плоскость на две полуплоскости. Выяснить, верно ли, что точки (a,b) и (c,d) принадлежат одной полуплоскости. Указание: уравнение прямой, проходящей через точки (e,f) и (g,h) имеет вид: (X-e)(h-f)-(Y-f)(g-e)=0.
Дано натуральное число n, T1,..Tn. Заменить в данной последовательности каждую группу букв child группой букв children.
Даны действительные числа x,a , натуральное число n. Вычислить:
((...((x+a)^2+a)^2+...+a)^2+a {n скобок} {^2-квадрат}
Re: Помогите будущему хакеру!
Добавлено: 17 фев 2008, 17:25
Medved
#3
var k:longint;
n,a:integer;
begin
read(n,a);
k:=x+a;
For i:=1 to n do
k:=sqr(k)+a;
writeln(k);
end.
Re: Помогите будущему хакеру!
Добавлено: 17 фев 2008, 19:05
DanielDefo
Medved писал(а):#3
var k:longint;
n,a:integer;
begin
read(n,a);
k:=x+a;
For i:=1 to n do
k:=sqr(k)+a;
writeln(k);
end.
Спасибо !
Re: Помогите будущему хакеру!
Добавлено: 17 фев 2008, 19:25
Duncon
Бугага .
Re: Помогите будущему хакеру!
Добавлено: 18 фев 2008, 08:44
airyashov
DanielDefo писал(а):
Даны действительные числа a,b,c,d,e,f,g,h. Известно, что точки (e,f) и (g,h) различны;
(a,b) и (c,d) нележат на прямой L , проходящей через точки (e,f) и (g,h). Прямая L разбивает координатную плоскость на две полуплоскости. Выяснить, верно ли, что точки (a,b) и (c,d) принадлежат одной полуплоскости. Указание: уравнение прямой, проходящей через точки (e,f) и (g,h) имеет вид: (X-e)(h-f)-(Y-f)(g-e)=0.
if ( ((a-e)(h-f)-(b-f)(g-e))*((c-e)(h-f)-(d-f)(g-e))>0) then writeln('в одной') else writeln('в разных')
Re: Помогите будущему хакеру!
Добавлено: 18 фев 2008, 10:55
Хыиуду
Duncon писал(а):Бугага .
+1!
Прямая L разбивает координатную плоскость на две полуплоскости
Ага, это один из фундаментальных постулатов планиметрии. Это можно сказать о любой прямой.
Дано натуральное число n, T1,..Tn. Заменить в данной последовательности каждую группу букв child группой букв children.
Дано: в огороде бузина. Надо заменить в Киеве дядьку на тетьку :-D
Код: Выделить всё
s1:='';
while s<>'' do
begin
if pos('child',s)=0 then begin s1:=s1+s; s:=''; end
else begin
s1:=s1+copy(s,1,pos('child')-1)+'children';
s:=copy(s,pos('child',s)+5, length(s));
end;
end;
Re: Помогите будущему хакеру!
Добавлено: 18 фев 2008, 19:11
DanielDefo
Хм...Страно ошибка: Error 87: "," Expected
в этой строчке
s1:=s1+copy(s,1,pos('child')-1)+'children';
Курсов стоит на пред последней скобк
Re: Помогите будущему хакеру!
Добавлено: 18 фев 2008, 20:20
MOTOCoder
Вообще то, функция pos имеет 2 параметра.
Re: Помогите будущему хакеру!
Добавлено: 19 фев 2008, 11:36
Хыиуду
Ну писал навскидку, без компилятора
заменить pos('child') на pos('child',s)
Re: Помогите будущему хакеру!
Добавлено: 20 фев 2008, 14:43
DanielDefo
Хыиуду писал(а):Ну писал навскидку, без компилятора
заменить pos('child') на pos('child',s)
Все теперь работает, спсибо!