Оператор for delphi

[ment9ra]

Ошибка в формуле или где то уже не знаю где помогите .

var s:real;
  k,i,n:integer;
  begin
s:=1;
n:=10;
k:=-1;
for i:=1 to n do
s:=s*k*(exp(i*ln(2))+i*i);
k:=k*(-1);
writeln('Ответ=',s:8:3);
readln(i);
readln;
end.

И помогите сделать покороче через if мне учитель сказал через формулу 3х сторон треугольника по 2 точкам не чего не нашёл

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var x,y:integer;
begin
writeln('BBedite x,y');
readln(x,y);
 //y=4 x=3 x=-5 y=-4
 if ((y=4) or (y=3)) and ((x=1) or (x=0)) then
 writeln('Prinadlejit')
 else
 if ((y=2) or (y=1)) and ((x=1) or (x=2) or (x=0)) then
 writeln('Prinadlejit')
 else
 if (y=0) and ((x=0) or (x=1) or (x=2) or (x=3) or (x=-1) or (x=-2))
then
 writeln('Prinadlejit')
 else
 if (y=-1) and ((x=0) or (x=1) or (x=2) or (x=3) or (x=-1) or (x=-2) or
(x=-3)) then
 writeln('Prinadlejit')
 else
 if (y=-2) and ((x=0) or (x=1) or (x=2) or (x=3) or (x=4) or (x=-1) or
(x=-2) or (x=-3) or (x=-4)) then
 writeln('Prinadlejit')
 else
 if (y=-3) and ((x=0) or (x=1) or (x=2) or (x=3) or (x=4) or (x=-5) or
(x=-1) or (x=-2) or (x=-3) or (x=-4)) then
 writeln('Prinadlejit')
 else
 if (y=-4) and (x=4) or (x=5) or (x=0) then
 writeln('Prinadlejit')
 else
 writeln('He Prinadlejit');
 Readln;
 end.

[KEKSoGEN]

ща поглядим ) все равно спать не охото

[GreenWizard]

пробуй:

var s:real;
  k,i,n:integer;
  begin
s:=1;
n:=10;
k:=-1;
for i:=1 to n do
begin
  s:=s*k*(exp(i*ln(2))+i*i);
  k:=k*(-1);
end;
writeln('Ответ=',s:8:3);
readln(i);
readln;
end.

с треугольником позже отпишу может (если найду формулы)
--------------------
вот http://chiliec.ru/study/prinadlezhno...ki-pascal.html
там числа свои подставите) а решение весьма красивое! я думал через расстояние до сторон, а там через сумму площадей образованных треугольников

[KEKSoGEN]

всё правильно считает)))не успел))

[ment9ra]

Большое спасибо , помогите еще додумать

const zn:string[8]='01234567';
var s:string;
    r:longint;
procedure perevod;
var r:integer;
s:string;
begin
writeln('BBedite 4iclo B cc10');
readln(r);
s:='';
while r>0 do
 begin
  s:=zn[r mod 8+1]+s;
  r:=r div 8;
 end;
writeln('OTBET=',s);
readln
end;
var n:integer;
  begin
perevod
  end.

[ment9ra]

Ваш ответ не отличается от моего , но я знаю что мой ответ не правильный ну или учительница отказывается такой принимать.

[GreenWizard]

const
  OCTAVE: string = '01234567';

function To8_func(N: Integer): string;
begin
  Result := '';
  if N = 0 then
    Result := '0';

  while N > 0 do
    begin
      Result := OCTAVE[(N mod 8) + 1] + Result;
      N := N div 8;
    end;
end;

procedure To8_proc(N: Integer; var R: string);
begin
  R := '';
  if N = 0 then
    R := '0';

  while N > 0 do
    begin
      R := OCTAVE[(N mod 8) + 1] + R;
      N := N div 8;
    end;
end;

var
  Arr: array[1..8] of Integer;
  i: Integer;
  s: string;
begin
  Randomize;
  //
  for i := 1 to 8 do
    Arr[i] := Random(10000);

  //
  Writeln('Через функцию:');
  for i := 1 to 8 do
    Writeln(Arr[i], ' => ', To8_func(Arr[i]));
  //
  Writeln('Через процедуру');
  for i := 1 to 8 do
    begin
      To8_proc(Arr[i], s);
      Writeln(Arr[i], ' => ', s);
    end;

  Readln;
end.

сорри, если что не так, уже сплю... прога переводит верно и, вроде, отвечает требованиям

[ment9ra]

var s:real;
  k,i,n:integer;
  begin
s:=1;
n:=10;
k:=-1;
for i:=1 to n do
begin
  s:=s*k*(exp(i*ln(2))+i*i);
  k:=k*(-1);
end;
writeln('Ответ=',s:8:3);
readln(i);
readln;
end.

Ваш код идентичен моему но ответ не правелный,учительница сказал большой ответ )доолжен быть короче

[GreenWizard]

если вы про самую первую задачу, то вот ваш код:

var s:real;
  k,i,n:integer;
  begin
s:=1;
n:=10;
k:=-1;
for i:=1 to n do
s:=s*k*(exp(i*ln(2))+i*i); // только эта строка в цикле, k = -1 всегда
k:=k*(-1);
writeln('Ответ=',s:8:3);
readln(i);
readln;
end.

вот мой:

var s:real;
  k,i,n:integer;
  begin
s:=1;
n:=10;
k:=-1;
for i:=1 to n do
begin
  s:=s*k*(exp(i*ln(2))+i*i);  // в цикле
  k:=k*(-1);                      //  в цикле!
end;
writeln('Ответ=',s:8:3);
readln(i);
readln;
end.

неверный ответ т.к. нужно писать руками, а не ногами! расставляя пробелы нормально т.к. строки "s:=s*k*(exp(i*ln(2))+i*i);" и "s:=s+k*(exp(i*ln(2))+i*i);" не отличить сходу
за такие строки я вовсе сразу бы ставил 2 т.к. они потенциально опасны! вот верная строка:

s := s ПЛЮС (k * (exp(i * ln(2)) + (i * i)));

у нас же оператор суммы, а не перемножения

[ment9ra]

GreenWizard,Спасибо)!!!