Учеба и наука
Решено
Паскаль исправьте код программы - вопрос №288256
var
Xnach,
Xkon,
Dx,
a,b,c,
F :real;
begin
write('vvedite Xnach = '); readln(Xnach);
write('vvedite Xkоn = '); readln(Xkon);
write('vvedite dx = '); readln(dx);
write('vvedite a = '); readln(a);
write('vvedite b = '); readln(b);
write('vvedite c = '); readln©;
while Xnach <= Xkоn do
begin
if (Xnach < 5) and (c <> 0) then F:= -a*Xnach*Xnach + b
else
if (Xnach > 5) and (c = 0) and (Xnach <> 0) then F:= (Xnach — a)/Xnach
else F:= -Xnach
writeln('Xi = ', Xnach:2:2, ' F = ', F:2:2 );
Xnach := Xnach + dx;
end;
readln;
end.
при с=0 условие не будет выполнятся, как тогда… желательно исправленный код полностью)
Дополнение автора от июнь 16, 2012 г., 14:41:11
Правда я по ошибке задачу взял не со своего варианта, Но все равно сапасибо Вам Валентина)
Михаил июнь 14, 2012 г.
-
Всего ответов: 2
-
var
Xnach, Xkon, Dx, a,b,c, F :real;
begin
write('vvedite Xnach = '); readln(Xnach);
write('vvedite Xkоn = '); readln(Xkon);
write('vvedite dx = '); readln(dx);
write('vvedite a = '); readln(a);
write('vvedite b = '); readln(b);
write('vvedite c = '); readln( c );
while Xnach<Xkon begin
if (a < 0) and (c <> 0) then F:= a*Xnach*Xnach + b*Xnach+c
else
if (a > 0) and (c = 0) and (Xnach <> c) then F:= (— a)/(Xnach -c)
elseF:= a*(Xnach+c);
writeln('X = ', Xnach:2:2, ' F = ', F:2:2 );
Xnach := Xnach + dx;
end;
readln;
end.Лучший ответ по мнению автора -
Просто подставьте свои условия и функции. Они в этом учебнике все однотипны.
Похожие вопросы
Решено
В некоторой стране автомобильный номер длиной 6 символов составляется из заглавных букв
сентябрь 19, 2013 г.