База знаний студента. Реферат, курсовая, контрольная, диплом на заказ

курсовые,контрольные,дипломы,рефераты

Лабораторная работа №9 — Информатика, программирование

Цель работы: Изучение операторов ввода и вывода, управление формой вывода данных, получение навыков организации печати в удобном для пользователя виде.

Задание № 17. Вычислить функцию при заданных значениях аргумента

Блок-схема.


Программа на Turbo Pascal

{*********************************************}

{программа:Lab_9 }

{цель:вывод графика функции }

{переменные:x0,xn-начальное и конечное значения }

{hx-шаг }

{q-искомое значение выражения }

{i-параметр цикла }

{z-искомое значение }

{x,a-переменные }

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

{подпрограммы:отсуствуют }

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

{проверил: Новичков В.С. }

{дата:20.04.2004г. }

{*********************************************}

program lab_9;

const

p=' ';

s='***********************';

t=' ';

var

x0,x,xn,hx,q,z:real;

i,a:integer;

begin

writeln('введите x0,hx,xn');

readln(x0,hx,xn);

writeln(' значение x * значение z');

writeln(t,s);

for a:=1 to 3 do

begin

x:=x0;

repeat

q:=exp(-a*sin(x)*ln(exp(1)));

writeln(t,'^',p,x:4:2,'^',p,z:4:1,p,'^');

x:=x+hx;

z:=z+q ;

until x>xn;

end;

writeln(t,s);

for i:=1 to 5 do

begin

writeln(t:abs(i-6),abs(i-6):i);

end;

end.



Министерство образования РФ


Рязанская государственная радиотехническая академия


Кафедра ВПМ


Отчет о

лабораторной работе № 8:

«Проектирование алгоритмов и программ

со структурой вложенных циклов»


Выполнил: ст. гр. 316

Позднышев А.А.

Проверил: Новичков В.С.


Рязань 2004



Цель работы: Изучение операторов ввода и вывода, управление формой вывода данных, получение навыков организации печати в удобном для пользователя виде. Задание № 17. Вычислить функцию при заданных значениях аргумента Блок-схема. Программа на Turbo P

 

 

 

Внимание! Представленный Реферат находится в открытом доступе в сети Интернет, и уже неоднократно сдавался, возможно, даже в твоем учебном заведении.
Советуем не рисковать. Узнай, сколько стоит абсолютно уникальный Реферат по твоей теме:

Новости образования и науки

Заказать уникальную работу

Свои сданные студенческие работы

присылайте нам на e-mail

Client@Stud-Baza.ru