求解方程： 求一元二次方程的根。 ax2+bx+c=0,其中a，b，c为从键盘上键入的三个任意实数。 思路分析： 一： a=0时，此时方程变为一元一次方程bx+c=0 （1）b不等于0时，x=-c/b （2）b=0时      （a）若c=0 则x为全体实数   &nb...

例：写出如下表达式： 输入4个数a,b,c，d 当a>b且c>d时，x为1， 当a>b且c<=d时,x的值是2 而a<=b时,x为3 方法一： program cql5(input,output); var a,b,c,d,x:real; begin writeln; read(a,b,c,d); if a>b then    if c>d then  &nb...

该程序用于比较两数的大小，然后显示比较大的那个数在屏幕上。 程序代码如下： program cql4(input,output); var x,y:real; begin write('please input 2 numbers,for example[3 4]:'); read(x,y); if x>y then write('the bigger number is:',x:8:1) e...

在学习pascal的时候，学到了条件语句，也就是if语句，它的基本语法结构如下：   if <条件表达式> then <语句>；   if <条件表达式> then <语句1>   else <语句2>;     上面就是条件语句if的语法了，无论条...

本程序的主要功能是这样的： 首先输入一个数，然后求这个数的平方，还有这个数的平方根（开方） 程序代码如下： program cql3(input,output); var x,y,z:real; begin writeln; write('input a data:'); read(x); y:=sqr(x); z:=sqrt(x); write(x:8:1,y:8:1,z:8:...

本程序的主要功能就是给出任意度数来求正弦三角函数sinx的值： 程序代码如下： program cql2(input,output); const i=3.1415926; var x,y:real; begin writeln; writeln('input a data:'); readln(x); y:=sin(x/180*pi); writeln('the result is:',y:8:1);...

该程序是pascal程序中的比较简单的一个程序。 实现的功能是：简单的输入和输出。   具体来说就是从键盘上输入一个字符，然后在屏幕上显示出来   程序代码如下： program cql1(input,output); var x:char; begin writeln; write('input a charactor,please:')...

微型计算机1971年问世。微型计算机系统由硬件和软件两部分组成。 Pascal语言由瑞士的N.Wirth(N.沃思)教授于1971年在苏黎世联邦工业大学提出来的，是结构程序设计的一种描述算法的语言，为纪念著名哲学家、数学家P.Pascal(P.帕斯卡)将其命名为pascal语言。 74年颁发...