Михальчук Гриша

Program Lab10a;
Var
x,y,xn,xk,dx:real;
Begin
writeln('Введи xn,xk,dx');
read(xn,xk,dx);
x:=xn;
while x<=xk do
begin
y:=exp(x);
writeln('при x=',x:10:3,' y=',y:10:3);
x:=x+dx;
end;
End.
Эту программу нужно:
1)Исправить так, чтобы она решала задачу с использованием оператора цикла с предусловием.
2)Исправить так, чтобы она решала задачу с использованием оператора цикла с параметром.

Vladimir_S

Дорогой Гриша!
К сожалению, Вы обратились не по адресу: мы стараемся помочь студентам с какими-то сложными программами, отладить, найти ошибку и т.п., а штамповка решения задачек ясельного уровня, поскольку "умный" лоботряс не желает и пяти минут уделить учёбе и предпочитает искать "дурачков" с форумов, в наши функции не входит. Тем более, что Вы даже сформулировать задание толком поленились: выложенная программа И ЕСТЬ решение задачи с использованием оператора цикла с предусловием.
Извините, но