Реферат

Реферат Лабораторная работа 9

Работа добавлена на сайт bukvasha.net: 2015-10-28

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 20.2.2025





Цель работы: Изучение операторов ввода и вывода, управление формой вывода данных, получение навыков организации печати в удобном для пользователя виде.

Задание № 17. Вычислить функцию при заданных значениях аргумента

Блок-схема.


Программа на Turbo Pascal

{*********************************************}

{программа:Lab_9                                                       }

{цель:вывод графика функции                                    }

{переменные:x0,xn-начальное и конечное значения  }

{hx-шаг                                                                        }

{q-искомое значение выражения                                }

{i-параметр цикла                                                        }

{z-искомое значение                                                   }

{x,a-переменные                                                          }

{метод решения:вычесление по формулам                }

{подпрограммы:отсуствуют                                                }

{програмист:студент гр. 316 Позднышев А.А.          }

{проверил: Новичков В.С.                                          }

{дата:20.04.200.                                                        }

{*********************************************}

program lab_9;

  const

    p='    ';

    s='***********************';

    t='    ';

  var

    x0,x,xn,hx,q,z:real;

   i,a:integer;

  begin

    writeln('введите x0,hx,xn');

    readln(x0,hx,xn);

    writeln('    значение x * значение z');

    writeln(t,s);

  for a:=1 to 3 do

  begin

    x:=x0;

  repeat

    q:=exp(-a*sin(x)*ln(exp(1)));

    writeln(t,'^',p,x:4:2,'^',p,z:4:1,p,'^');

    x:=x+hx;

    z:=z+q ;

  until x>xn;

  end;

    writeln(t,s);

  for i:=1 to 5 do

  begin

   writeln(t:abs(i-6),abs(i-6):i);

   end;

   end.

1. Реферат Волшебная палочка маркетинга
2. Реферат на тему Гі де Мопассан
3. Контрольная работа Страховое правоотношение
4. Реферат Топливно энергетические ресурсы на предприятии
5. Реферат на тему Системы с одним и двумя воздействиями
6. Реферат Умышленное убийство, совершенное из корыстных побуждений
7. Курсовая на тему Анализ финансового состояния предприятия 12
8. Реферат Закидывание петуха
9. Курсовая Целевая ориентация управленческих решений. Процессорные технологии разработки управленческих реш
10. Контрольная работа на тему Проектне фінансування