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

1.Технология производства и ремонта вагонов: учебник для вузов ж.-д. трансп./ К.В. Мотовилов [и др.]; под ред. К.В. Мотовилова. – М.: Маршрут, 2003. – 382 с.
2. Инструкция по осмотру, освидетельствованию, ремонту и формированию вагонных колесных пар ЦВ-944. – М.: МПС РФ, 2005. – 65 с.
3. Ремонт тележек грузовых вагонов модели 18-100 с установкой износостойких элементов в узлах трения РД 32 ЦВ 072-2009. – М.: ЦВ ОАО «РЖД», 2009. – 26 с.
. – М.: Транспорт, 2002. – 230 с.]и др.[4. Автосцепные устройства подвижного состава железных дорог / В.В. Коломийченко
5. Инструкция по техническому обслуживанию вагонов в эксплуатации – М.: АОА №РЖД», 2009. – 121 с.
6. Инструкция по ремонту тележек грузовых вагонов РД 32 ЦВ 052-2009. – М.: ОАО РЖД», 2009. – 72 с.
7. Инструктивные указания по эксплуатации и ремонту вагонных букс с роликовыми подшипниками № 3-ЦВРК. – М.: МПС РФ, 2001. – 110 с.

 

 

ИНСТИТУТ СУДОСТРОЕНИЯ И МОРСКОЙ АРКТИЧЕСКОЙ ТЕХНИКИ

(СЕВМАШВТУЗ)

 

 

Факультет № 4

 

Кафедра № 14 “Информатика”

 

ОТЧЕТ

по дисциплине “Информатика”

 

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

ВАРИАНТ №

 

 

СТУДЕНТ_______________________

(инициалы и фамилия)

ГРУППА________________________

(номер группы)

ПРЕПОДАВАТЕЛЬ_______________

(инициалы и фамилия)

 

 

Северодвинск

20__

 

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

Структура программы на языке Turbo Pascal. Типы данных. Операторы ввода, вывода данных, оператор присваивания.

 

Цель работы

1. Научиться составлять программы с использованием операторов ввода, вывода данных, операторов присваивания.

2. Научиться применять основные алгоритмические функции языка.

3. Научиться строить блок-схемы к составленным программам.

 

Задание: Сделать таблицу Пифагора в программах Паскаль АВС и Эксель. (блок схема)

 

Исходные данные
X=		I=		J=

 

 

	=A2*B1	=A2*C1	=A2*D1	=A2*E1	=A2*F1	=A2*G1	=A2*H1	=A2*I1	=A2*J1
	=A3*B1	=A3*C1	=A3*D1	=A3*E1	=A3*F1	=A3*G1	=A3*H1	=A3*I1	=A3*J1
	=A4*B1	=A4*C1	=A4*D1	=A4*E1	=A4*F1	=A4*G1	=A4*H1	=A4*I1	=A4*J1
	=A5*B1	=A5*C1	=A5*D1	=A5*E1	=A5*F1	=A5*G1	=A5*H1	=A5*I1	=A5*J1
	=A6*B1	=A6*C1	=A6*D1	=A6*E1	=A6*F1	=A6*G1	=A6*H1	=A6*I1	=A6*J1
	=A7*B1	=A7*C1	=A7*D1	=A7*E1	=A7*F1	=A7*G1	=A7*H1	=A7*I1	=A7*J1
	=A8*B1	=A8*C1	=A8*D1	=A8*E1	=A8*F1	=A8*G1	=A8*H1	=A8*I1	=A8*J1
	=A9*B1	=A9*C1	=A9*D1	=A9*E1	=A9*F1	=A9*G1	=A9*H1	=A9*I1	=A9*J1
	=A10*B1	=A10*C1	=A10*D1	=A10*E1	=A10*F1	=A10*G1	=A10*H1	=A10*I1	=A10*J1
Исходные данные
X=		I=		J=
	=B13+D13	=B15+1	=C15+1	=D15+1	=E15+1	=F15+1	=G15+1	=H15+1	=I15+1
=B13+D13	=$A$16*B15	=$A$16*C15	=$A$16*D15	=$A$16*E15	=$A$16*F15	=$A$16*G15	=$A$16*H15	=$A$16*I15	=$A$16*J15
=A16+1	=$A$17*B15	=$A$17*C15	=$A$17*D15	=$A$17*E15	=$A$17*F15	=$A$17*G15	=$A$17*H15	=$A$17*I15	=$A$17*J15
=A17+1	=$A$18*B15	=$A$18*C15	=$A$18*D15	=$A$18*E15	=$A$18*F15	=$A$18*G15	=$A$18*H15	=$A$18*I15	=$A$18*J15
=A18+1	=$A$19*B15	=$A$19*C15	=$A$19*D15	=$A$19*E15	=$A$19*F15	=$A$19*G15	=$A$19*H15	=$A$19*I15	=$A$19*J15
=A19+1	=$A$20*B15	=$A$20*C15	=$A$20*D15	=$A$20*E15	=$A$20*F15	=$A$20*G15	=$A$20*H15	=$A$20*I15	=$A$20*J15
=A20+1	=$A$21*B15	=$A$21*C15	=$A$21*D15	=$A$21*E15	=$A$21*F15	=$A$21*G15	=$A$21*H15	=$A$21*I15	=$A$21*J15
=A21+1	=$A$22*B15	=$A$22*C15	=$A$22*D15	=$A$22*E15	=$A$22*F15	=$A$22*G15	=$A$22*H15	=$A$22*I15	=$A$22*J15
=A22+1	=$A$23*B15	=$A$23*C15	=$A$23*D15	=$A$23*E15	=$A$23*F15	=$A$23*G15	=$A$23*H15	=$A$23*I15	=$A$23*J15
=A23+1	=$A$24*B15	=$A$24*C15	=$A$24*D15	=$A$24*E15	=$A$24*F15	=$A$24*G15	=$A$24*H15	=$A$24*I15	=$A$24*J15

 

 

Program zadanie_1;

Const

count_t = 10;

Var

k_j,k_i,k_x,k_rez: integer;

Begin

Writeln;

Write('Укажите начальное значение ');

Readln(k_x);

Write (' | ');

for k_i:= 0 to count_t do

Write (k_x+k_i:5, '| ');

for k_j:= 0 to count_t do

Begin

Writeln;

Write('------------------------------------------');

Writeln('-----------------------------------------');

Write (k_x+k_j:5, '| ');

for k_i:= 0 to count_t do

Begin

k_rez:= (k_x+k_i)*(k_x+k_j);

Write (k_rez:5, '| ')

end;

end;

Writeln;

Write('------------------------------------------');

Writeln('-----------------------------------------');

end.

 

Укажите начальное значение 9

| 9| 10| 11| 12| 13| 14| 15| 16| 17| 18| 19|

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

9| 81| 90| 99| 108| 117| 126| 135| 144| 153| 162| 171|

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

10| 90| 100| 110| 120| 130| 140| 150| 160| 170| 180| 190|

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

11| 99| 110| 121| 132| 143| 154| 165| 176| 187| 198| 209|

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

12| 108| 120| 132| 144| 156| 168| 180| 192| 204| 216| 228|

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

13| 117| 130| 143| 156| 169| 182| 195| 208| 221| 234| 247|

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

14| 126| 140| 154| 168| 182| 196| 210| 224| 238| 252| 266|

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

15| 135| 150| 165| 180| 195| 210| 225| 240| 255| 270| 285|

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

16| 144| 160| 176| 192| 208| 224| 240| 256| 272| 288| 304|

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

17| 153| 170| 187| 204| 221| 238| 255| 272| 289| 306| 323|

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

18| 162| 180| 198| 216| 234| 252| 270| 288| 306| 324| 342|

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

19| 171| 190| 209| 228| 247| 266| 285| 304| 323| 342| 361|

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

 

 

Блок-схема алгоритма:

Задание №2 Решить квадратичное уравнение Ах2+Вх+С=0 найти мнимые корни в Экселе.

Исходные данные
A=			1X²+2X+1=0	²
B=
C=
D=
Действительные корни
X1=	-1
X2=	-1
Комплексные корни
	действительная часть	мнимая часть
X1=
X2=

Исходные данные
A=			=СЦЕПИТЬ(B3;"X";E3;ЕСЛИ(B4<0;B4&"X";ЕСЛИ(B4>0;"+"&B4&"X";));ЕСЛИ(B5>0;"+"&B5;ЕСЛИ(B5<0;B5;));"=0")
B=
C=
D=	=СТЕПЕНЬ(B4;2)-4*B3*B5
Действительные корни
X1=	=ЕСЛИ(B7>=0;(КОРЕНЬ(B7)-B4)/(2*B3);)
X2=	=ЕСЛИ(B7>=0;(-КОРЕНЬ(B7)-B4)/(2*B3);)
Комплексные корни
	действительная часть	мнимая часть
X1=	=ЕСЛИ(B7<0;-B4/(2*B3);)	=ЕСЛИ(B7<0;КОРЕНЬ(ABS(B7))/(2*B3);)	=ЕСЛИ(B7<0;СЦЕПИТЬ(B17;"+";C17;"i");" ")
X2=	=ЕСЛИ(B7<0;-B4/(2*B3);)	=ЕСЛИ(B7<0;-КОРЕНЬ(ABS(B7))/(2*B3);)	=ЕСЛИ(B7<0;СЦЕПИТЬ(B18;C18;"i");" ")

Program zadanie_1;

Var

sqrt_k_d,k_x1,k_x2: real;

v_a,v_b,v_c,k_d: integer;

s_form,s_dx,s_ix,s_x1,s_x2,s_str: string;

Begin

Writeln;

Write('A=');

Readln(v_a);

Write('B=');

Readln(v_b);

Write('C=');

Readln(v_c);