паскаль см. вложение циклы

10-11 класс

Прикрепленные изображения

TimyrDzhanaev 29 мая 2013 г., 4:10:19 (10 лет назад)

Рейтинг

+ 0 -

Хороший вопрос

0 Жалоба

Ответить

+ 0 -

Zubkoruslanka

29 мая 2013 г., 5:05:33 (10 лет назад)

var
a, b, c, xn, xk, h, f: Real;
begin

Write('Введите Xn: '); Readln(xn);
Write('Введите Xk: '); Readln(xk);
Write('Введите шаг H: '); Readln(h);
Write('Введите a: '); Readln(a);
Write('Введите b: '); Readln(b);
Write('Введите c: '); Readln(c);

while xn <= xk do
begin
if (c < 0) and (b <> 0) then
f := a * sqr(xn) + sqr(b) * xn
else if (c > 0) and (b = 0) then
f := (xn + a) / (xn + c)
else
f := xn / c;

Writeln(xn:0:3, ' | ', f:0:3); // таблицу сам оформишь

xn := xn + h;
end;

Readln;
end.

Хороший ответ

0 Жалоба Ответить

+ 0 -

Пацифист

29 мая 2013 г., 7:17:16 (10 лет назад)

Program pr;
uses crt;
Var a,b,c:integer;
    H,F,x,x1,x2:real;

Begin
Writeln('Шаг');
readln(H);
Writeln(' a,b,c');
readln(a,b,c);
Writeln('промежуток X нач ,X кон ');
readln(x1,x2);
x:=x1;
While x<=x2 do
   Begin
if (c<0) and (b<>0) then
        Begin
          F:=(a*x*x)+(b*b*x);
          Writeln('x=', x:6:2, ' F=',F:6:2);
          x:=x+H;
        end
else
if (c>0) and (b=0) then
        Begin
         F:=(x+a)/(x+c);
         Writeln('x=', x:6:2, ' F=',F:6:2);
         x:=x+H;
        end
else
Begin
F:=x/c;
Writeln('x=', x:6:2, ' F=',F:6:2);
x:=x+H;
end;

end;
readln;
end.