лабораторная работа / вар18 / лаба 1

БАЛАКОВСКИЙ ИНСТИТУТ ТЕХНИКИ, ТЕХНОЛОГИИ И УПРАВЛЕНИЯ

САРАТОВСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ

КАФЕДРА: «УПРАВЛЕНИЕ И ИНФОРМАТИКА В ТЕХНИЧЕСКИХ СИСТЕМАХ»

ЛАБОРАТОРНАЯ РАБОТА 1

Дисциплина: Программирование и основы алгоритмизации

ПРОГРАММИРОВАНИЕ ЛИНЕЙНЫХ ВЫЧИСЛИТЕЛЬНЫХ ПРОЦЕССОВ НА ЯЗЫКЕ TURBO PASCAL

Выполнил ст. гр. УИТ-21

Проверил

2006

Цель: знакомство с основами алгоритмизации и программирования линейных вычислительных процессов на языке TURBO PASCAL

Задание: вычислить на ЭВМ значение переменных, указанных в таблице (вариант №18),по заданным расчетным формулам и набором исходных данных. На печать вывести значение вводимых исходных данных и результаты вычислений, сопровождая вывод наименованиями выводимых переменных.

S=; m=; v = 1,72 t = -1,5

Начало

Ввод v,t;

c:=sin(v)/cos(v);

S=;

m=;

Вывод s, m;

Конец.

program lab1(input,output);

var

v,t,s,m,c,x,w,p: real;

begin

writeln('vt');

read(v,t);

c:=sin(v)/cos(v);

s:=sqrt(w*c*c*c+abs(t*sin(w)));

m:=sqr(cos(t*t*t))-x/sqrt(w*w+v*v);

writeln(',s=',8:3,' m=',p:8:3);

end.