Белорусский национальный технический университет
Автотракторный факультет
Кафедра «Гидропневмоавтоматика и гидропневмопривод»
Отчет
По лабораторным работам
По дисциплине «Информатика»
Выполнил студент группы 101711
Ступень Д.Д
Проверил ст.пр.кафедры «ГПА и ГПП»
Филипова Л.Г
Минск 2011
Общий вид оформления результирующих файлов
Лабораторная работа №2 «Структура Паскаль-программ»
Цель работы: ознакомиться со средой программирования Паскаль и структурой программ на данном языке программирования на примере программы, выполняющей ввод-вывод данных, а также простейшие арифметические действия.
Текст программы:
program Lab2;
var a,b:integer;F1:text;
c:real;
begin
ASSIGN(F1,'RES2.PAS');
REWRITE(F1);
WRITE(F1);
writeln(F1,'Labaratornya rabota #2');
writeln(F1,'Structura Pascal-program');
writeln('Labaratornya rabota #2');
writeln('Structura Pascal-program');
writeln('Vvod Dannih');
writeln(F1,'Vvod Dannih');
write('a=');
readln(a);
writeln(F1,'a=',a:3);
write('b=');
readln(b);
writeln(F1,'b=',a:3);
writeln('b=',a:3);
c:=a+b;
writeln(F1,'Vivod dannih');
writeln('Vivod dannih');
writeln(F1,'c:=a+b');
writeln(F1,'c=',c:3:2);
writeln(F1,'Vipolnil student gr.101711');
writeln(F1,'Stupen Dennis');
writeln('c:=a+b');
writeln('c=',c:3:2);
writeln('Vipolnil student gr.101711');
writeln('Stupen Dennis');
readln;
CLOSE(F1);
end.
Результирующий файл:
Labaratornya rabota #2
Structura Pascal-program
Vvod Dannih
a= 1
b= 1
Vivod dannih
c:=a+b
c=3.00
Vipolnil student gr.101711
Stupen Dennis
Блок схема:
Лабораторная работа №3 «Ввод-вывод данных»
Цель работы: познакомиться с типами данных в языке Паскаль, а также с вводом-выводом данных различных типов; познакомиться с функциями ввода-вывода.
Задание: Вариант 3. Программа для ввода-вывода 3 целых переменных, 2 вещественных переменных, 1 символьной переменной, 1 булевой переменной(TRUE). Использовать форматируемый ввод-вывод для переменных целого (ширина поля 6) и вещественного типа (Ширина поля 6, количество знаков после точки 3).
Текст программы:
program Lab3;
var a,b,c:integer;F1:text;
var d,e:real;
var x:char;
begin
ASSIGN(F1,'RES3.PAS');
REWRITE(F1);
WRITE(F1);
writeln('Labaratornya rabota #3');
writeln('Vvod-vivod dannih');
writeln('Vvod celih chisel');
writeln(F1,'Labaratornya rabota #3');
writeln(F1,'Vvod-vivod dannih');
writeln(F1,'Vvod celih chisel');
write('a=');
readln(a);
writeln(F1,'a=',a:6);
write('b=');
readln(b);
writeln(F1,'b=',a:6);
write('c=');
readln(c);
writeln(F1,'c=',a:6);
writeln('Vivod celih chisel');
writeln('a=',a:6);
writeln('b=',a:6);
writeln('c=',a:6);
writeln('Vvod veshestvennih chisel');
writeln(F1,'Vivod celih chisel');
writeln(F1,'a=',a:6);
writeln(F1,'b=',a:6);
writeln(F1,'c=',a:6);
writeln(F1,'Vvod veshestvennih chisel');
write('d=');
readln(d);
writeln(F1,'d=',d:6);
write('e=');
readln(e);
writeln(F1,'e=',e:6);
writeln('Vivod veschestvennih chisel');
writeln('d=',d:6:3);
writeln('e=',e:6:3);
writeln('Vvod simvolov');
writeln(F1,'Vivod veschestvennih chisel');
writeln(F1,'d=',d:6:3);
writeln(F1,'e=',e:6:3);
writeln(F1,'Vvod simvolov');
write('x=');
readln(x);
writeln(F1,'x=',x:6);
writeln('Vivod simvolov');
writeln('x=',x);
writeln(F1,'Vivod simvolov');
writeln(F1,'x=',x);
writeln('Vvod bylevskoy peremenoi');
writeln('a+b=c',a+b=c);
writeln(F1,'Vvod bylevskoy peremenoi');
writeln(F1,'a+b=c',a+b=c);
writeln('Vivod bylevsloy peremenoi');
writeln('a<b',a<b);
writeln('Zadanie vipolnil Stupen Dennis');
writeln('Student gryppi 101711');
writeln(F1,'Vivod bylevsloy peremenoi');
writeln(F1,'a<b',a<b);
writeln(F1,'Zadanie vipolnil Stupen Dennis');
writeln(F1,'Student gryppi 101711');
readln;
CLOSE(F1);
end.
Результирующий файл:
Labaratornya rabota #3
Vvod-vivod dannih
Vvod celih chisel
a= 1
b= 1
c= 1
Vivod celih chisel
a= 1
b= 1
c= 1
Vvod veshestvennih chisel
d= 4.0E+00
e= 5.0E+00
Vivod veschestvennih chisel
d= 4.000
e= 5.000
Vvod simvolov
x= 6
Vivod simvolov
x=6
Vvod bylevskoy peremenoi
a+b=c TRUE
Vivod bylevsloy peremenoi
a<b TRUE
Zadanie vipolnil Stupen Dennis
Student gryppi 101711
Блок схема:
Лабораторная работа №4 «Операторы в Паскаль программах»
Цель работы: познакомиться и научиться использовать арифметические операторы.
Задание:
разработать программу для вычисления
значения выражения
.
Ввод x,y,z осуществить с клавиатуры.
Текст программы:
program Lab4;
var c,x,y,b:real;F1:text;
begin
ASSIGN(F1,'RES4.PAS');
REWRITE(F1);
WRITE(F1);
writeln('Labaratornya rabota #4');
writeln('Programirovanie lineinih algoritmov');
writeln('Vvod dannih');
writeln(F1,'Labaratornya rabota #4');
writeln(F1,'Programirovanie lineinih algoritmov');
writeln(F1,'Vvod dannih');
write('x=');
readln(x);
writeln(F1,'x=',x:1:3);
write('y=');
readln(y);
writeln(F1,'y=',y:1:3);
write('b=');
readln(b);
writeln(F1,'b=',b:1:3);
writeln(F1,'Vivod nannih');
c:=arctan(x)-3/5*exp(x*y)+0.5*abs(x+y)/(x+exp(b*ln(y)));
writeln('arctan(x)-3/5*exp(x*y)+0.5*abs(x+y)/(x+exp(b*ln(y)))');
writeln('c=',c:6:3);
writeln('Zadanie vipolnil Stupen Dennis');
writeln('Student gryppi 101711');
writeln(F1,'arctan(x)-3/5*exp(x*y)+0.5*abs(x+y)/(x+exp(b*ln(y)))');
writeln(F1,'c=',c:6:3);
writeln(F1,'Zadanie vipolnil Stupen Dennis');
writeln(F1,'Student gryppi 101711');
readln;
CLOSE(F1);
end.
Результирующий файл:
Labaratornya rabota #4
Programirovanie lineinih algoritmov
Vvod dannih
x=1.000
y=2.000
b=3.000
Vivod nannih
arctan(x)-3/5*exp(x*y)+0.5*abs(x+y)/(x+exp(b*ln(y)))
c=-3.481
Zadanie vipolnil Stupen Dennis
Student gryppi 101711
Блок-схема :
Лабораторная работа №5 “Условный оператор if ”
Цель работы: изучить принцип работы оператора условного переход IF
Задание: вычислить значение выражений:
Текст программы:
program Lab5;
var c,a,b,x:real;F1:text;
begin
ASSIGN(F1,'RES5.PAS');
REWRITE(F1);
WRITE(F1);
writeln(F1,'Labaratornya rabota #5');
writeln(F1,'operator uslovnogo perehoda if');
writeln(F1,'Vvod dannih');
write('x=');
readln(x);
writeln(F1,'x=',x:6:3);
write('b=');
readln(b);
writeln(F1,'b=',b:6:3);
write('a=');
readln(a);
writeln(F1,'a=',a:6:3);
writeln(F1,'Vivod dannih');
if sqrt(a-b)<x
then
begin
c:=a*exp(3*ln(x))+b*ln(abs(2*x));
writeln('a*exp(3*ln(x))+b*ln(abs(2*x)','c=',c:6:3);
writeln(F1,'if sqrt(a-b)<x');
writeln(F1,'then c:=a*exp(3*ln(x))+b*ln(abs(2*x))');
writeln(F1,'a*exp(3*ln(x))+b*ln(abs(2*x)','c=',c:6:3);
end
else if sqrt(a-b)=0
then
begin
writeln(F1,'else if sqrt(a-b)=0');
writeln(F1,'then c:=sqrt(a+sin(2*x))-exp(abs(3*x))');
c:=sqrt(a+sin(2*x))-exp(abs(3*x));
writeln('sqrt(a+sin(2*x))-exp(abs(3*x))','c=',c:6:3);
writeln(F1,'sqrt(a+sin(2*x))-exp(abs(3*x))','c=',c:6:3);
end
else if sqrt(a-b)>0
then
begin
writeln(F1,'else if sqrt(a-b)>0');
writeln(F1,'then c:=arctan(5*x)/b*cos(x)+ln(a*x)','c=',c:6:3);
c:=arctan(5*x)/b*cos(x)+ln(a*x);
writeln(' c:=arctan(5*x)/b*cos(x)+ln(a*x)','c=',c:6:3);
end;
writeln('Zadanie vipolnil Stupen Dennis');
writeln('Student gryppi 101711');
writeln(F1,'Zadanie vipolnil Stupen Dennis');
writeln(F1,'Student gryppi 101711');
readln;
CLOSE(F1);
end.
Результирующий файл:
Labaratornya rabota #5
operator uslovnogo perehoda if
Vvod dannih
x= 1.000
b= 1.000
a= 1.000
Vivod dannih
if sqrt(a-b)<x
then c:=a*exp(3*ln(x))+b*ln(abs(2*x))
a*exp(3*ln(x))+b*ln(abs(2*x)c= 1.693
Zadanie vipolnil Stupen Dennis
Student gryppi 101711
Блок-схема:
Лабораторная работа №6 « Программирование разветвляющихся алгоритмов»
Цель работы: получить представление о создании 'многоуровневых' операторов условного перехода.
Задание: Проверить, принадлежит ли функция
Текст программы:
program Lab6;
var x,y:real;F1:text;
begin
ASSIGN(F1,'RES6.PAS');
REWRITE(F1);
WRITE(F1);
writeln(F1,'Labaratornya rabota #6');
writeln(F1,'Programirovanie razvetlyauschih ciclov');
writeln(F1,'Vvod dannih');
write('x=');
readln(x);
writeln(F1,'x=',x:6:3);
y:=sqrt(abs(x-1)+exp(2*ln(sin(x))));
writeln(F1,'y:=sqrt(abs(x-1)+exp(2*ln(sin(x)))');
writeln('y=',y:6:3);
writeln(F1,'y=',y:6:3);
writeln(F1,'if (x>=-1) and (x<=1) and (y>=-1) and (x<=1) then tochka prinadlegit oblasti (-1<x<1) i <-1<y<1)');
writeln(F1,'Vivod dannih');
if (x>=-1) and (x<=1) and (y>=-1) and (x<=1) then
else
writeln(F1,'else');
writeln(F1,'tochka ne prinadlegit (-1<x<1) i <-1<y<1) ');
writeln(F1,'Zadanie vipolnil Stupen Dennis');
writeln(F1,'Student gryppi 101711');
readln;
CLOSE(F1);
end.
Результирующий файл:
Labaratornya rabota #6
Programirovanie razvetlyauschih ciclov
Vvod dannih
x= 1.000
y:=sqrt(abs(x-1)+exp(2*ln(sin(x)))
y= 0.841
if (x>=-1) and (x<=1) and (y>=-1) and (x<=1) then, tochka prinadlegit oblasti (-1<x<1) i <-1<y<1)
Vivod dannih
tochka ne prinadlegit (-1<x<1) i <-1<y<1)
Zadanie vipolnil Stupen Dennis
Student gryppi 101711
Блок схема:
Лабораторная работа №7 «Оператор выбора CASE»
Цель работы: изучить механизм и принцип работы оператора выбора CASE
Задание:
Текст программы:
program Lab7;
var L,k,d:real;m:integer;F1:text;
label M1;
begin
ASSIGN(F1,'RES7.PAS');
REWRITE(F1);
WRITE(F1);
writeln(F1,'Labaratornya rabota #7');
writeln(F1,'Operator vvivoda Case');
writeln(F1,'Vvod dannih');
write('k=');
readln(k);
writeln(F1,'k=',k:6:3);
write('d=');
readln(d);
writeln(F1,'d=',d:6:3);
writeln(F1,'Vivod dannih');
M1:write('m=');
readln(m);
writeln(F1,'M=',M:2);
writeln(F1,'CASE M OF');
writeln(F1,'1');
writeln(F1,'L:=cos(5*k+3*d*abs(k)-d*k)');
CASE M OF
1:begin
writeln(F1,'M=1');
L:=cos(5*k+3*d*abs(k)-d*k);
writeln('L:=cos(5*k+3*d*abs(k)-d*k))','L:=',L:6:3);
writeln(F1,'L:=cos(5*k+3*d*abs(k)-d*k))','L:=',L:6:3);
end;
2:begin
writeln(F1,'M=2');
L:=arctan(5*k+3*d*abs(k));
writeln('L:=arctan(5*k+3*d*abs(k))','L:=',L:6:3);
writeln(F1,'L:=arctan(5*k+3*d*abs(k))','L:=',L:6:3);
end;
3:begin
writeln(F1,'M=3');
L:=exp(3*ln(k));
writeln(F1,'3');
writeln('L:=exp(3*ln(k))','L:=',L:6:3);
writeln(F1,'L:=exp(3*ln(k))','L:=',L:6:3);
end
else writeln(F1,'m dolgen prin.1..3');
GoTo M1
end;
writeln('Zadanie vipolnil Stupen Dennis');
writeln('Student gryppi 101711');
writeln(F1,'Zadanie vipolnil Stupen Dennis');
writeln(F1,'Student gryppi 101711');
readln;
CLOSE(F1);
end.
Результирующий файл:
Labaratornya rabota #7
Operator vvivoda Case
Vvod dannih
k= 1.000
d= 2.000
Vivod dannih
M= 1
CASE M OF
1
L:=cos(5*k+3*d*abs(k)-d*k)
M=1
L:=cos(5*k+3*d*abs(k)-d*k))
L:=-0.911
Zadanie vipolnil Stupen Dennis
Student gryppi 101711
Блок-схема:
