Помогите будущему хакеру!

[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-квадрат}

[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.

[DanielDefo]

#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.

Спасибо !

[Duncon]

Бугага .

[airyashov]

Даны действительные числа 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('в разных')

[Хыиуду]

Бугага .

+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;

[DanielDefo]

Хм...Страно ошибка: Error 87: "," Expected
в этой строчке
s1:=s1+copy(s,1,pos('child')-1)+'children';
Курсов стоит на пред последней скобк

[MOTOCoder]

Вообще то, функция pos имеет 2 параметра.

[Хыиуду]

Ну писал навскидку, без компилятора
заменить pos('child') на pos('child',s)

[DanielDefo]

Ну писал навскидку, без компилятора
заменить pos('child') на pos('child',s)

Все теперь работает, спсибо!