Отчет по лабораторным работам по программированию на алгоритмическом языке TURBO-PASCAL

Мордовский государственный

университет имени Н.П. Огарёва

Отчет №1

Тема:

«Программирование»

Выполнил студент

Группы №102

Направления подготовки «Агроинженерия»

Сорочкин Д.А

[pic 1]______

Принял профессор Г.И. Шабанов

                                                Саранск 2018

Отчет по лабораторным работам по программированию

на алгоритмическом языке TURBO-PASCAL

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

Вариант-4

Программирование линейных

вычислительных процессов

Задания

Задание 1. Используя табл.1.1, разработать и отладить программу для организации ввода и вывода данных определенных типов. Сделать в ней соответствующие заголовки .

Задание 2. По заданным формулам и наборам исходных данных составить программу для вычисления значений переменных , указанных в табл.1.2.Вывод осуществлять с их именами .

№1

program z1;

uses crt;

const

d=true ;

var

a1 , a2:integer;

b1,b2,b3,b4:real ;

c1,c2,c3,c4,c5,c6:char;

begin

clrScr;

writeln;

writeln('введите значение целочисленых переменых a1 , a2:');

readln(a1, a2);

writeln('введите значение вещественой переменой b1 ,b2 , b3 , b4:');

readln(b1, b2 ,b3 ,b4);

writeln('введите значение символьных переменых c1 ,c2 ,c3 ,c4 ,c5 ,c6 :');

readln(c1, c2, c3, c4, c5, c6);

writeln('значение целочисленых переменых:');

writeln('a1=',a1:5,',a2=',a2:5);

writeln('значение вещественной переменой:');

writeln('b1=',b1:6:2,',b2=',b2:6:2,',b3=',b3:6:2,',b4=',b4:6:2);

writeln('значение символьных переменных:');

writeln('c1=',c1,',c2=',c2,',c3=',c3,',c4=',c4,',c5=',c5,',c6=',c6);

writeln('значение логической константы:');

writeln('d=',d);

readln;

end.

[pic 2]

№2

program z2;

uses crt;

const

A=-0.5;

B=1.7;

T=0.44;

var

Y,S:real ;

begin

clrScr;

Y:=(EXP(B*T))*SIN(A*T+B)-(1/2*(ABS(B*T+A)));

S:=B*SIN(A*T*(SQR(2*(COS(2*T)))))-1;

 writeln('значение переменой y:',y:8:4);

 writeln('значение переменой s:',s:8:4);

 readln;

 end.

[pic 3]

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

Вариант-4

Программирование разветвляющихся вычислительных процессов с проверкой логического условия в цикле

Задание1. Составить программу для вычисления значений функции Z=X+Y. X и Y приведены в таблице 2.1.

Задание2. Составить программу для определения заданной в таблице 2.2 функции с помощью оператора варианта

          F1(x),если x0<=x

Y=          F2(x),если x1<=x

            F3(x),если x2<=x

С шагом x при заданных коэффициентах. Построить таблицу результатов полученной функции.

Задание 3. Составить программу для вычисления значения функции Y=F(x) при изменении X от 0 до 1 с шагом H. Определить количество отрицательных значений функции . Данные приведены в табл. 2.3.

Задание4. Составить программу для вычисления всех действительных корней квадратного уравнения AX^2+BX+C=0, в котором параметр A=A(T) изменяется по закону , указанному в табл.2.4.

Задание 5. Составить программу для вычисления значений функции Y=e^x+U+V, где X изменяется от 0 с шагом Н. Цикл заканчивается при первом отрицательном значении Y. Функция U,V и шаг Н даны в табл.2.5.