系统软件包括 *** 作系统、语言处理程序和通用服务程序，那么什么是通用服务程序呢

“系统软件包括 *** 作系统、语言处理程序和通用服务程序”——这是对系统软件的一个定义，这个定义并不准确，参考下面：

系统软件是指控制和协调计算机及外部设备,支持应用软件开发和运行的系统,是无需用户干预的各种程序的集合,主要功能是调度,监控和维护计算机系统；负责管理计算机系统中各种独立的硬件，使得它们可以协调工作。

我用Python写一个：

结果是：

import math

a = float(input('Enter coefficient a  '))

b = float(input('Enter coefficient b  '))

c = float(input('Enter coeeficient c  '))

if a == 0:

    print("a不能为0，不是一元二次方程")

else:

    delta = b  2 - 4  a c

    if delta < 0:

        print("无实数解")

    elif delta == 0:

        print("有一个实数解")

    else:

        print("有两个实数解")

public interface Vehicle {

double getSpeed();

}

public abstract class AbstractVehicle implements Vehicle {

protected int A;

protected int B;

protected int C;

}

public class Car007 extends AbstractVehicle {

@Override

public double getSpeed() {

return A B / C;

}

}

public class Plane extends AbstractVehicle {

@Override

public double getSpeed() {

return A + B + C;

}

}

如果你是家里和办公的，一般就安一些如：QQ、winRAR压缩文件用、ACDsee浏览图处、Photoshop处理用、金山杀毒软件、PPS看电视、PPLIVE、酷狗音乐播放、QQ音乐、迅雷下下软件东西用什么的。另外微软的系统一般都自带了WORD、EXCEL、PPT这些功能的，另外的软件等你需要用到时再下也可以，以上答案希望对你有用。

我一直的做法是用一个第三方控件

叫TXLSReadWriteII

思路就是：读excel的函数-->二维数组-->写excel的函数。

下面是代码。

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

unit OpExcell;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, XLSReadWriteII2, QFileCtrls, OleCtrls, DB, ADODB, CellFormats2,

XLSFonts2, BIFFRecsII2, Rows2;

type

TStringArray = array of array of string;

TOpExcell = class(TObject)

public

function ReadXLSII(var Content: TStringArray; fileName: string): BOOL; //读excel表格

function WriteXLSII(var Content: TStringArray; fileName: string): BOOL; //写excel表格

end;

implementation

function TOpExcellReadXLSII(var Content: TStringArray; fileName: string): BOOL;

var

iR, iC, i, j: Integer;

XLS: TXLSReadWriteII2;

begin

Result := True;

XLS := TXLSReadWriteII2Create(nil);

XLSfileName := fileName;

XLSRead;

//得到行列

iR := XLSSheets[0]LastRow;

iC := XLSSheets[0]LastCol;

try

SetLength(Content, iR + 1, iC + 1);

for i := 0 to iR do

begin

for j := 0 to iC do

begin

Content[i, j] := XLSSheets[0]AsString[j, i];

end;

end;

except

Result := False;

end;

if Assigned(XLS) then

begin

XLSDestroy;

end;

end;

function TOpExcellWriteXLSII(var Content: TStringArray; fileName: string): BOOL;

var

iR, iC, i, j: Integer;

XLS: TXLSReadWriteII2;

begin

XLS := TXLSReadWriteII2Create(nil);

XLSfileName := fileName;

try

try

iR := Length(Content);

iC := Length(Content[0]);

for i := 0 to iR - 1 do

begin

for j := 0 to iC - 1 do

begin

XLSSheets[0]AsString[j, i] := Content[i, j];

end;

end;

XLSWrite;

Result := True;

except

Result := False;

end;

finally

XLSDestroy;

end

end;

end

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

如果这个第三方控件找不到的话、可以hi我。或者mail我liuhuanaiaiai@163com 我传给你

希望能帮上你

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

我刚才回复你的消息，请查收。没看到的话，看下面。

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

1可能你对我之前给你的代码没太看懂的原因。

2不需要用ADO。

3用的txlsreadwhiteII这个控件在我给你的示例中，是用代码创建的，我一直觉得这样更方便。

4我在给你解释一下content这个数组。

首先在A单元要 *** 作excel文件

41声明一个二维数组。比如arr，在得到excel文件名filename1

42 调用read函数（arr，filename1）。这个时候arr就作为content数组在函数 内被赋值。

43 这个时候arr就是excel里的所有内容。随意 *** 作就ok了

44 *** 作完了想给写到excel文件了。同理调用write(arr,filename2)函数

45 这里read 和write 两个函数我写的都不是全名，全名请参照我之前给你的留言。

46 这里的filename1和filename2可以相同，如果相同。相当于在源文件在修改。不同，相当于另存为了。

5现在在网吧，没有delphi环境，就不写代码给你了。按照这个应该没问题

建议你可以先不要分单元写，先把几个函数和要条用这几个函数的都写在一个单元内。调试成功了，估计你也就熟练这个东西了，在拿出来 单独给封装。

6仅仅是个人意见，仅供参考，希望对你有帮助。

以上就是关于系统软件包括 *** 作系统、语言处理程序和通用服务程序，那么什么是通用服务程序呢全部的内容，包括:系统软件包括 *** 作系统、语言处理程序和通用服务程序，那么什么是通用服务程序呢、编写一个求一元二次方程根的通用程序，任意输入a、b、c三个数的值，即输出该方程的根。要求程序设计严、用JAVA为某研究所编写一个通用程序，用来计算每一种交通工具运行1000公里所需的时间，已知速度ABC,求速度等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！