for и case

[zloy20]

Решите пожалуйста задачи

FOR
Дано целое число N(>0) . найти значение выражения 1.1-1.2+1.3-...(N слагаемых, знаки чередуются).Условный оператор не использовать.

CASE
Элементы равнобедренного прямоугольного треугольника пронумерованы следующим образом: 1-катет а, 2-гипотенуза с=а*корень из 2, 3-высота h,опущенная на гипотенузу(h=c/2),4-площадь s=c*h/2. Дан номер одного из этих элементов и его значение. Вывести значения остальных элементов данного треугольника( в том же порядке)

[evg_m]

1. использовать дополнительнуюпеременную

 x:=1;
 k:=1;
 s:=0;
 for j:=1 to n do
 begin
  s:=s+x*k;
  x:=x*(-1);
  k:=k+...
 end;

2 формулы в учкбнике геометрии
case x of
1: begin
a:=...;
c:=...;
h:=...;
end;
2: begin
a:=...;
c:=...;
h:=...;
end;
end;

[zloy20]

спасибо большое

[eoln]

Первую лучше так

var
  n, i, k:integer;
  s: real;
begin
  write('n = ');
  readln(n);
  s := 0;
  k := 1;
  for i := 1 to n do
  begin
    s := s + (1 + i / 10) * k;
    k := -k
  end;
  writeln('Summa = ', s:0:5);
  readln
end.

А вторую так

var
  n: byte;
  x, a, c, h, s: real;
begin
  write('num = ');
  readln(n);
  write('znachenie = ');
  readln(x);
  case n of
  1: begin
      a := x;
      c := a * sqrt(2);
      h := sqrt(sqr(a) - sqr(a * sqrt(2)/2));
      s:= c * h/2
  end;
  2: begin c := x; {}end;
  3: begin h := x; {}end;
  4: begin s := x; {}end;
  end;
  writeln('a = ', a:0:5);
  writeln('c = ', c:0:5);
  writeln('h = ', h:0:5);
  writeln('s = ', s:0:5);
  readln
end.

В {} формулы

[zloy20]

спасибо большое, значит так будет лучше