
19.03.2010, 22:25
|
|
Познающий
Регистрация: 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.
Если не накосячил и правильно понял задачки, то так))
|
|
|