列车时刻表

篇一：列车时刻表相关计算

表如下：根据列车运行时刻表回答下列问题： （1）计算列车由上海驶向南京全程的平均速度。

（2）列车在哪个路段运行得最快，在哪个路段运行最慢？

上海

苏州 常州 南京

到站时间

09：39 10：29 11：47

发车时间 09：00 09：43 10：33

里程/km

84

165

303

4、如表是福州至厦门D6201次列车沿途部分站点的到站、发车时刻表．请根据该表回答下列问题： （1）列车从福州到莆田的平均速度为多少千米每小时？

（2）列车在7：55的瞬时速度多大？

5、在北京与上海之间往返的T13次、T14次特快列车的运行时刻表，如图所示，请你仔细阅读时刻表，并回答下列问题： （1）这两车次中哪一车次是上海至北京的？ （2）这两车全程的平均速度相等吗？为什么？

（3）这两车次在北京与济南之间运行时的平均速度哪个大？

（4）这两个车次每天各发一列，它们每天在哪个路段相遇？

篇二：国际列车时刻表

K3次列车每星期三由北京站发车，每星期四经由乌兰巴托站，每星期一到达莫斯科雅罗斯拉夫尔车站；

K4次列车每星期二由莫斯科雅罗斯拉夫尔车站发车，每星期日经由乌兰巴托站，每星期一到达北京站；

K19次列车每星期六由北京站发车，每星期二经由满洲里站，每星期五到达莫斯科雅罗斯拉夫车站；

K20次列车每星期五由莫斯科雅罗斯拉夫车站发车，每星期二经由满洲里站，每星期五到达北京站；

蒙古铁路担当的K23/K24次列车于2008年6月5日至2009年5月28日开行。

中国铁路担当的K23/K24次列车于2009年6月2日至2010年5月25日开行；

K23次列车每星期六由北京站发车，每星期日到达乌兰巴托站；

K24次列车每星期四由乌兰巴托站发车，每星期五到达北京站；

T5次列车每星期四、日由北京西站发车，每星期二、六到达河内站；

T6次列车每星期二、五由河内站发车，每星期四、日到达北京西站；

中国铁路担当的K27次列车每星期一、四由北京站发车，每星期二、五到达平壤站；

中国铁路担当的K28次列车每星期三、六由平壤站发车，每星期四、日到达北京站；

朝鲜铁路担当的K27次列车每星期三、六由北京站发车，每星期四、日到达平壤站；

朝鲜铁路担当的K28次列车每星期一、四由平壤站发车，每星期二、五到达北京站；

K7023次列车每星期三、六由哈尔滨站发车，每星期五、一到达海参崴，每星期五、一到达伯力（注：共加挂两节国际联运列车车厢，到达绥芬河站解挂，出境后一节去哈巴罗夫斯克（伯力），一节去符拉迪沃斯托克（海参崴））。

K7024次列车每周一、四由伯力发车，每周一、四由海参崴发车，每周三、六到达哈尔滨站（注：符拉迪沃斯托克（海参崴）和哈巴罗夫斯克（伯力）开来的国际联运列车车厢在绥芬河入境后同时挂编在K7024次列车上）。

中国铁路担当的4652/4653次列车每星期五由呼和浩特发车，每星期日到达乌兰巴托站；

中国铁路担当的4654/4651次列车每星期一由乌兰巴托发车，每星期二到达呼和浩特站；

蒙古铁路担当的4652/4653次列车每星期一由呼和浩特发车，每星期三到达乌兰巴托站；

蒙古铁路担当的4654/4651次列车每星期五由乌兰巴托发车，每星期六到达呼和浩特站；

T8701/T8702次，南宁-河内（嘉林），每日开行；

T8705/T8706次、T8709/T8780次南宁-凭祥，凭祥-同登，每日开行；

K9795次，乌鲁木齐-阿拉木图，每星期一、六由乌鲁木齐开，每星期三、一到阿拉木图；

K9796次，阿拉木图-乌鲁木齐，每星期一、六由阿拉木图开，每星期三、一到乌鲁木齐；

K9797次，乌鲁木齐-阿斯塔纳，乌鲁木齐站每周四发车，每周日到达阿斯塔纳车站；

K9798次，阿斯塔纳-乌鲁木齐，阿斯塔纳车站每周二发车，每周四到达乌鲁木齐站； 蒙古铁路担当的681-686次（蒙古铁路车次）：

681次，扎门乌德-二连，每周一、四开行，二连10:25到；

682次，二连-扎门乌德，每周一、四开行，二连13:35开；

683次，扎门乌德-二连，每周三、六开行，二连10:25到；

684次，二连-扎门乌德，每周三、六开行，二连14:45开；

685次，乌兰巴托-二连，每周一、四开行，二连11:25到；

686次，二连-乌兰巴托，每周二、五开行，二连18:00开；

俄罗斯铁路担当的653/654次（俄铁车次）满州里-赤塔，每周一俄罗斯赤塔站发车，每周二满洲里发车；

丹东-新义州过境列车，每周开行三对；

集安，图们，绥芬河不定期开行多对过境列车；

平壤-莫斯科国际联运，途径丹东、沈阳、哈尔滨、满洲里，国内无客运业务。

源地址：http://blog.renren.com/GetEntry.do?id=794684134&owner=325531346

篇三：列车时刻表项目需求分析

1.引言

1.1目的

本列车时刻管理系统在可行性研究的基础上，让读者能够了解本系统的开发目的，开发方法，以及目前的硬件和软件的情况和开发所需要资金和设备，概要设计说明书和完成后续设计与开发工作将在此基础上进一步提出。预期的读者包括上级领导，相关开发人员以及管理人员。

1.2背景

随着国内软件开发的日益发展壮大，信息发展迅速，全球进入到一个大数据的时代，本系统属于一个Web数据库应用类的系统，其基本操作是建立在Web界面和对数据库中信息进行录入、删除、修改等操作。从技术结构上来说是可行的。

2.任务概述

2.1目标

本系统的设计是为了适应交通信息的不断更新，满足铁路不断提速的需要，给予人们最新的交通信息，方便人们出行。系统开发成功后可以实现旅客对列车车次的查询，功能包括站站之间所有列车的车次显示、各个列车到站时间显示、发车时间显示，同时也可以实现车站系统管理员对后台管理系统的管理，如对车次和站名信息进行录入、修改、删除等。

2.2系统（或用户）的特点

面向的用户：需要查询列车信息的用户，要求使用本系统的用户对计算机能够熟练的使用，知道基本的操作。程序随时可以运行，进行相关的操作。

3.假定和约束

运行环境：Windows XP、Windows 7、Windows 8；

经费限制：5000元；

开发期限：1个月；

维护频率：每3个月；

系统寿命：3年；

4.需求规定

4.1软件功能说明

系统开发的总体任务是实现旅客对列车车次查询的系统化、规范化和自动化。系统功能分析是在系统开发的总体任务的基础上完成。本旅客列车车次查询系统需要完成功能主要有：

（1）系统管理：火车站能够对相关列车的车次信息（包括车次、起点、始发时间、到各个站的时间、到达终点站的时间等）和站名信息进行录入、修改、 删除等操作。

（2）路线查询：要求当旅客输入查询起始站名和终点站进行查询名后计算机屏幕会显示出所有可以到达目的火车站的列车车次，然后点击相应的车次，链接到该车次的详细信息。

（3）车次查询：要求当旅客输入查询车次进行查询后计算机屏幕上会显示出该列车的车次、起点站、始发时间、到各个站的时间、到达终点站的时间。

（4）站名查询：要求当旅客输入站名进行查询后计算机屏幕上会显示出经过该站的所有列车的车次，然后点击相应的车次信息链接到该车次的详细内容。

4.2非功能需求

（1）性能需求：所有操作响应时间需控制在3秒以内，并且具有很强的适应性，能移植到其他机器上使用。

（2）运行需求：仅支持Windows平台，机器内存大于512MB，剩余硬盘容量大于2G。应用界面简单直接，一目了然。

篇四：列车时刻表

Option Explicit

Option Base 1

Dim strContent() As String ' 车次概况

Dim strDetail() As String ' 停靠站

Dim intNumber As Integer '车次数

Dim intNumDetail As Integer '详细信息的条数

Private Sub cboQuery_Click()

Dim i As Integer, j As Integer

Dim str1 As String

str1 = Trim(cboQuery.Text)

lstID.Clear

txtDetail.Text = "" 'Exit Sub

For i = 1 To intNumDetail

If strDetail(1, i) = str1 Then

For j = 1 To intNumber

If i < strContent(6, j) Then

lstID.AddItem strContent(1, j - 1) & "次"

lstID.ItemData(lstID.NewIndex) = j - 1

Exit For

End If

Next

End If

Next

End Sub

Private Sub cmdShowAll_Click() '显示全部车次

Dim i As Integer, j As Integer

lstID.Clear '清除当前显示的车次

For i = 1 To intNumber

lstID.AddItem strContent(1, i) & "次" '添加车次名称

lstID.ItemData(lstID.NewIndex) = i '记录列表框中每一项是所有车次中的第几项

Next

cboQuery.Text = ""

End Sub

Private Sub Form_Load()

Dim str1 As String

Dim i As Integer, j As Integer, k As Integer

Open App.Path & "\content.txt" For Input As 1

Do While Not EOF(1)

intNumber = intNumber + 1

Line Input #1, str1

ReDim Preserve strContent(6, intNumber)

i = InStr(str1, ",")

strContent(1, intNumber) = Left(str1, i - 1)

j = i

i = InStr(i + 1, str1, ",")

strContent(2, intNumber) = Mid(str1, j + 1, i - j - 1)

j = i

i = InStr(i + 1, str1, ",")

strContent(4, intNumber) = Mid(str1, j + 1, i - j - 1)

j = i

i = InStr(i + 1, str1, ",")

strContent(3, intNumber) = Mid(str1, j + 1, i - j - 1)

strContent(5, intNumber) = Right(str1, Len(str1) - i - 1)

lstID.AddItem strContent(1, intNumber) & "次"

lstID.ItemData(lstID.NewIndex) = lstID.NewIndex + 1

Loop

Close 1

Open App.Path & "\detail.txt" For Input As 1

Do While Not EOF(1)

Line Input #1, str1

If str1 = "*" Then

Line Input #1, str1

k = k + 1

strContent(6, k) = intNumDetail + 1

Else

intNumDetail = intNumDetail + 1

ReDim Preserve strDetail(3, intNumDetail)

i = InStr(str1, ",")

strDetail(1, intNumDetail) = Left(str1, i - 1)

j = i

i = InStr(i + 1, str1, ",")

strDetail(2, intNumDetail) = Mid(str1, j + 1, i - j - 1)

strDetail(3, intNumDetail) = Right(str1, Len(str1) - i - 1)

End If

Loop

Close 1

End Sub

Private Sub lstID_Click()

Dim i As Integer, j As Integer

Dim str1 As String

txtStart1 = Trim(strContent(2, lstID.ItemData(lstID.ListIndex)))

txtEnd1 = Trim(strContent(4, lstID.ItemData(lstID.ListIndex)))

txtStart2 = Trim(strContent(3, lstID.ItemData(lstID.ListIndex)))

txtEnd2 = Trim(strContent(5, lstID.ItemData(lstID.ListIndex)))

txtDetail = ""

If lstID.ItemData(lstID.ListIndex) = intNumber Then

For i = strContent(6, lstID.ItemData(lstID.ListIndex)) To intNumDetail

txtDetail = txtDetail & strDetail(1, i) & Space(2 * (8 - Len(strDetail(1, i))) + 4 - Len(strDetail(2, i))) & strDetail(2, i) & Space(18 - Len(strDetail(3, i))) & strDetail(3, i) & Chr(13) & Chr(10)

Next

Else

For i = strContent(6, lstID.ItemData(lstID.ListIndex)) To strContent(6, lstID.ItemData(lstID.ListIndex) + 1) - 1

txtDetail = txtDetail & strDetail(1, i) & Space(2 * (8 - Len(strDetail(1, i))) + 4 -

Len(strDetail(2, i))) & strDetail(2, i) & Space(18 - Len(strDetail(3, i))) & strDetail(3, i) & Chr(13) & Chr(10)

Next

End If

End Sub

篇五：课程设计-列车时刻表-马聪敏

课程设计(综合实验)报告

( 2012 -- 2013 年度第二学期)

名 称： 网络综合实验

题 目：

院 系： 计算机

班 级： 网络1002

学 号：

学生姓名：

指导教师： 李丽芬

设计周数： 2周

成 绩：

日期： 2013 年 6 月 9

日

一、 目的与要求

1． 任务：利用Web Service技术实现列车时刻表查询。

2． 目的：学习在网络应用程序中创建和使用Web服务。Web Service由于其跨平台的优越性，被越来越多的网站所重用。了解其实现原理及使用方法，有利于了解未来的网络开发技术。

3． 要求：利用Web Service 技术，实现一个查询实时天气预报的网站，要求界面美观，方便易用；通过课程设计学生应该具备初步分析、设计和开发网络应用软件的能力，具备分析与检查软件错误、解决和处理实验结果的能力。

4． 学生要求人数：1人。

二、设计（实验）正文

1、实验内容

编写一个网站页，可供用户查询最新列车时刻表情况，可站到站查询、车次查询和途径站查询，合理设计查询组合。基本工作过程如下：

(1) 了解Web Service技术的原理和使用方法；

(2) 寻找提供列车时刻信息的Web服务；

(3) 利用Web Service完成查询网页与信息提供网站的链接；

(4) 测试网页。

2、使用工具

Visual Studio2010 ,ASP.NET,C# 3、实验原理

web service 发布后，客户端添加引用，之后vs实际上在此时已经在后台生成本地代理类。之后看起来像是对web service的操作，实际上是对本地代理类的操作。代理类中处理网路访问逻辑，客户端的使用就象操作本地类一样简单便捷。

客户端发出web service请求后，请求到达代理类，代理类处理请求从服务端获得SOAP数据包，而后进行数据处理后转发客户端。此中间涉及到的关于SOAP,WSDL等定义，简单的可以理解为：SOAP中定义了传输数据类型的格式和规则，而WSDL则以XML的形式定义了web service的消息和有关操作，通过http传输协议进行数据传输。

4、实验步骤

（1）新建一个ASP.NET的网站，在解决方案资源管理器中单击右键，选择添加web引用，在URL中添加.cn/WebServices/TrainTimeWebService.asmx?wsdl，并设置web引用名为train，添加引用。

（2）因为提供web service的服务器上提供了几个让我们调用来进行查询的函数，它们的返回值要与所设计的网站上的显示进行绑定，因此用到了Repeater控件，按照如下图所示的页面布局设计网页，添加页

面控件。Repeater控件的程序语句要在源代码中显示的写出。网页的设计使用母板页，设计的主页面如下，命名为

defalt.aspx.

将车次与函数返回值中的TrainCode相绑定，并在这一项中建立超链接，从而使在点击具体的车次时可以在一个新的页面显示出车次的具体途径站查询。另外将始发站与函数返回值FirstStation绑定，终点站与LastStation绑定，发车站与StartStation绑定，发车时间与StartTime绑定，到达站与ArriveStation绑定，到达时间与ArriveTime绑定，里程KM与KM绑定，历时与UseDate绑定。

（3）编写后台程序。

因为本实验要调用网上提供的web函数，首先要建立调用函数的服务对象

train.TrainTimeWebService train = new train.TrainTimeWebService();

由于函数的返回值是是DataSet类型，建立一个DataSet的变量接收返回的数据

DataSet ds = new DataSet();

在页面加载时由Label1显示web函数getVersionTime（）的返回值，显示“火车时刻表为第六次提速最新列车时刻表，数据库最后更新：及时更新”，在Page_Load（）函数中编写代码实现在第一次访问页面时显示函数的返回值，具体代码是：

protected void Page_Load(object sender, EventArgs e)

{

if (this.IsPostBack == false)

Label1.Text = train.getVersionTime();

}

Botton1实现的功能是将textStartStation和textArriveStation里面的内容作为函数

getStationAndTimeByStationName()的参数传递给服务器，用DataSet类型的ds接收函数的返回值，Repeater1的数据源即为该函数返回的数据。具体代码如下：

protected void Button1_Click(object sender, EventArgs e)

{

string start = textStartStation.Text;

string end = textArriveStation.Text;

ds = train.getStationAndTimeByStationName(start, end, "");

Repeater1.DataSource = ds.Tables[0].DefaultView;

Repeater1.DataBind();

}

数据绑定到模板时的事件是：定义一个Hyperlink的对象来代表TrainCode，当输入的要查询的车次没有被发现时，链接的ToolTip显示FirstStation的内容即“数据没有被发现”，当能查询到车次的具体信息时，链接的ToolTip显示“获取**车次的具体信息”，并生成该链接的网络地址。实现的具体代码如下：

protected void Repeater1_ItemDataBound(object sender, RepeaterItemEventArgs e)

{

if ((e.Item.ItemType == ListItemType.Item) || (e.Item.ItemType ==

ListItemType.AlternatingItem))

{

HyperLink oHyperLink = (HyperLink)e.Item.FindControl("TrainCode");

string TrainCode = DataBinder.Eval(e.Item.DataItem, "TrainCode").ToString(); oHyperLink.Text = TrainCode;

string FirstStation = DataBinder.Eval(e.Item.DataItem,

"FirstStation").ToString();

string StartStation = DataBinder.Eval(e.Item.DataItem,

"StartStation").ToString();

string ArriveStation = DataBinder.Eval(e.Item.DataItem,

"ArriveStation").ToString();

if (FirstStation.Contains("没有被发现"))

{

oHyperLink.ToolTip = FirstStation;

oHyperLink.NavigateUrl = "";

}

else

{

oHyperLink.ToolTip = "获得 " + TrainCode + " 详细信息";

oHyperLink.NavigateUrl = "Detail.aspx?id=" + Server.UrlEncode(TrainCode) +

"&Start=" + Server.UrlEncode(StartStation) + "&Arrive=" +

Server.UrlEncode(ArriveStation);

}

}

}

Botton2实现的功能是将textTrainCode里面的内容作为函数getStationAndTimeDataSetByTrainCode()的参数传递给服务器，用DataSet类型的ds接收函数的返回值，Repeater1的数据源即为该函数返回的数据。具体代码如下：

protected void Button2_Click(object sender, EventArgs e)

{

string code = textTrainCode.Text;

ds = train.getStationAndTimeDataSetByTrainCode(code, "");

Repeater1.DataSource = ds.Tables[0].DefaultView;

Repeater1.DataBind();

}

（4）在解决方案中添加新项，选择web窗体，命名为Detail.aspx，并按照下面的页面布局设计网页，添加页面控件：

字数作文