Заказ
  PHP скрипты   NEW
Правила написания
Студенту
Банк Рефератов
# A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
А Б В Г Д Е Ж З И Й К Л М Н О П Р С Т У Ф Х Ц Ч Ш Щ Ы Э Ю Я
Телефонные справочники
Выбор города:
А Б В Г Д Е Ж З И К Л М Н О П Р С Т У Ф Х Ц Ч Ш Щ Э Ю Я

Онлайн телефонные справочники
Выбор города:
А Б В Г Д Е Ж З И К Л М Н О П Р С Т У Х Ш Э Ю Я

скачай готовый реферат
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
А Б В Г Д Е Ж З И Й К Л М Н О П Р С Т У Ф Х Ц Ч Ш Щ Ы Э Ю Я

Лабараторная работа №4



Тема: Лабараторная работа №4
Вид реферата: реферат
Дисциплина: Информатика, программирование
Оценка: Отлично/Хорошо
Формат: Microsoft Word документ
Сжатие: ZIP архив
Создан: 3 октября 2007 года
Уникальность: 100%


скачать реферат Лабараторная работа №4


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

Задание № 17. Составить программу вычисления функции и определить характер ее зависимости от значений исходных данных:
[pic][pic]

Блок-схема.

[pic]

Программа на 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

-----------------------

Начало

Ввод a, c

b:=a*a+c*c

x:=exp(b*ln(abs(cos(a+2,53*c))))

Вывод х

Конец




Справочники

Москва
Санкт-Петербург
Ангарск
Братск
Бугульма
Великие Луки
Владивосток
Владимир
Волгоград
Волжский
Воронеж
Вязьма
Екатеринбург
Златоуст
Иваново
Иркутск
Казань
Калуга
Кемерово
Кострома
Краснодар
Красноярск
Курган
Ленинск-Кузнецкий
Ливны
Липецк
Магадан
Магнитогорск
Набережные Челны
Нальчик
Находка
Нижний Новгород
Нижний Тагил
Новосибирск
Новочеркасск
Новый Уренгой
Омск
Орёл
Орехово-Зуево
Петрозаводск
Печора
Ростов-на-Дону
Самара
Саратов
Тюмень
Уфа
Хабаровск
Чебоксары
Челябинск
Череповец
Ярославль





© Все права защищены. © All right reserved.