Показать сообщение отдельно

  #7  
Старый 19.03.2010, 22:25
Soherox
Познающий
Регистрация: 17.02.2010
Сообщений: 45
С нами: 8542140

Репутация: 47
По умолчанию

по первой картинке

Код:
{$APPTYPE CONSOLE}
var
  x: real;
begin
  write('x = ');
  readln(x);
  if (x > 6) and (x < 7) then writeln('y = ', 5*x + 6:0:3)
  else
    if (x > 7) and (x < 10) then writeln('y = ', 2 * x:0:3)
    else writeln('y = 9');
  readln;
end.
и по второй

Код:
{$APPTYPE CONSOLE}

const
  va = 0.8;
  vb = 1.2;
  k1 = 15;
  k2 = 0.7;
  k3 = 0.01;
  v = 0.8;
var
  v2, v3: real;
begin
  write('v2 = ');
  readln(v2);
  write('v3 = ');
  readln(v3);

  if (v < v2) and (v > 0) then writeln('I = ', k1 * v:0:3)
  else
    if (v > v2) and (v < v3) then writeln('I = ', k1*v2 + k2*sqrt(v):0:3)
    else
      if (v3 < v) then writeln('I = ', k1*va + k2*sqrt(vb) + v3*k3:0:3);
  readln;
end.
Если не накосячил и правильно понял задачки, то так))
 
Ответить с цитированием