Реферат

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

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

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

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

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

от 25%

Подписываем

договор

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

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





Цель работы: изучение правил записи констант, переменных, выражений, операторов присваивания, раздела определения констант, раздела описания переменных и общей структуры программы на языке Turbo-Pascal.
Задание № 17. Составить программу вычисления функции и определить характер ее зависимости от значений исходных данных:








Блок-схема.




Программа на Turbo Pascal
{****************************************************************}

{Программа: lab4, Лаб. раб. №4, Вар. 17                                                             }

{Цель: изучение правил записи констант, переменных, выражений,               }

{операторов присваивания, раздела определения констант, раздела                }

описания переменных и общей структуры программы на языке Turbo-Pascal}

{Описание параметров и переменных:                                                                 }

{a,c -исходные значения, b -промежуточное значение, x -значение функции }

{Требуемые подпрограммы: нет.                                                                          }

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

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

{Проверил: Баринов В.В., каф. ВПМ                                                                   }

{Дата написания: 14 февраля 2004 г.                                                                   }

{****************************************************************}
Program lab4;

Var

            A,b,c,x:real;

Begin

            Write(‘Введите а=’); read(a);

            Write(‘Введите c=’); read(c);

            b:=a*a+c*c;

            x:=exp(b*ln(abs(cos(a+2.53*c))));

            Writeln(‘x=’,x)

End. {lab4}
Результаты вычисления программы:
a=1

c=2

x=8,81987864801886Е – 0001
Контрольный просчет:

a=1

c=2

b=1*1+2*2=5

x=cos5(1+2,53*2)=cos5(5,06)=0,8819878648


1. Контрольная работа на тему Управленческое консультирование 2
2. Доклад на тему Аралия маньчжурская
3. Сочинение Отражение сложного жизненного пути в творчестве Федора Достоевского
4. Реферат на тему Основи есхатології
5. Реферат Лунинецкий повет Полесского воеводства
6. Реферат на тему Стабильная стенокардия Гипертоническая болезнь III стадии
7. Реферат на тему Fate Or Circimstance Essay Research Paper Bibliography
8. Реферат Патологическая анатомия перитонита
9. Курсовая Маркетинговая политика фирмы
10. Курсовая на тему Правовая характеристика земельного налога