Реферат

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

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

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

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

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

от 25%

Подписываем

договор

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

Скидка 25% при заказе до 15.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. Реферат на тему Shakespeare Sonnet 18 Essay Research Paper Shakespeare
2. Реферат на тему Music Conformity And Cobain Essay Research Paper
3. Реферат на тему The Desire To Control In Morrison
4. Реферат Управление мотивацией персонала в организации на примере ОАО Ак Барс Банка
5. Реферат Египет в Новое время
6. Реферат Гинекология, андрология и воспроизведение домашних животных - часть 2
7. Реферат Войны в Ломбардии
8. Реферат Интеллектуальные системы управления
9. Реферат на тему Homeless Youth Essay Research Paper Powers Jane
10. Контрольная работа Офіційно-діловий стиль. Резюме