Реферат

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

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

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

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

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

от 25%

Подписываем

договор

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

Скидка 25% при заказе до 29.3.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. Реферат на тему Современное состояние экономики Германии и ее мирохозяйственные связи в начале XXI века
2. Реферат Алхимия 2
3. Реферат на тему Синергетика основные положения
4. Реферат Субъекты коммерческой деятельности 2
5. Реферат на тему Memory Essay Research Paper MEMORY Memory is
6. Курсовая на тему Анализ показателей эффективности финансово-хозяйственной деятельности предприятия
7. Курсовая Закаливание детей четвёртого года жизни
8. Курсовая Распределение температуры по стволу скважины с целью решения геологических и геолого-промысловых
9. Сочинение на тему Гончаров и. а. - Обломов барин и человек
10. Реферат на тему Lord Rama Essay Research Paper Lord Rama