Цитата:
Сообщение от Mr.Програмист
Щас подшаманим Vladimir S хватается за волидол .
|
Нет. В
алидол мне не нужен - я спокоен, как форель в озере. И абсолютно спокойно, хоть и с сожалением, отправляю Вас, сударь, в вечный бан. Потому что не намерен терпеть дальше Ваши выходки. Как говорится, Господь свидетель - я сделал всё возможное, чтобы не доводить ситуацию до подобной крайности: пытался Вас увещевать, взывал к чувству ответственности, чуть не умолял не выкладывать сырые неотлаженные программы с кучей ошибок... Тщетно. Так что, дорогой троллёныш, увы: Вы мне выбора не оставляете.
Напоследок разберем Ваши очередные изделия.
Вариант 1:
Цитата:
Program Hel;
uses crt;
Var t,a,z,y1,y2:real;
i,x1,x2,x:integer;
Begin
Writeln('Введите x begin');
Readln(x);
Writeln('Введите x end');
Readln(x1);
Writeln('Введите шаг х');
Readln(x2);
|
Пока всё верно. За исключением выбора формата аргумента функции (Integer) - по логике, он должен быть Real. И шаг может быть дробным - почему нет?
А вот дальше пошла ахинея.
То есть если число либо отрицательно, либо меньше 5? Бред!
Цитата:
then begin
for i:=x to x1 do
begin
if x>x1
then break;
y1:=((3*sqr(x)+(2*x))/(2*exp(x)));
y2:=(2*y1*cos(x)*cos(x)*cos(x));
z:=(sqrt(sqr(y1)+y2));
x:=x+x2-1;
end;
|
Цикл построен абсолютно безграмотно. Число проходов должно быть (х1-х)/х2, а у Вас оно (х1-х). Не говоря уже о бессмыслице x:=x+x2-1.
Цитата:
Writeln('функция равна',z:3:10);
Readln;
end.
|
Требуется вывести таблицу значений функции для всего диапазона значений аргумента, а Вы выводите только последнее.
Думаю, разбирать второй аналогичный "шедевр" - смысла нет.
Прощайте.
Ну а мне, увы, придется, исключительно в видах поддержания репутации форума, выложить решение задачки. В следующем посте.