Реферат

Реферат Лабараторная работа 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. Курсовая на тему Изучения здоровья населения
3. Доклад Girl
4. Реферат Закон Оукена
5. Практическая_работа на тему График функции по Assemblerу
6. Реферат на тему Dickinson 511 Essay Research Paper 511If you
7. Реферат на тему Airbags Essay Research Paper AIRBAGS
8. Реферат на тему Africa Essay Research Paper Agricultural Problems facing
9. Реферат Китайская система счисления
10. Отчет по практике Маркетинговый анализ ООО КераМир