Difference between revisions of "Basic Pascal Tutorial/Chapter 1/Solution"

From Lazarus wiki
Jump to navigationJump to search
(New page: 1Ha - Solution Here's one way to solve the programming assignment in the previous section. <font color="#000000"> 1: </font><font color="#cc0000">(*</font><font color="#cc0000"> </font...)
 
(Use pascal highlighter)
(9 intermediate revisions by 5 users not shown)
Line 1: Line 1:
−
1Ha - Solution
+
{{ Solution }}
 +
{{TYNavigator|Programming_Assignment|Input}}
 +
 
 +
1Ha - Solution (author: Tao Yue, state: unchanged)
  
 
Here's one way to solve the programming assignment in the previous section.
 
Here's one way to solve the programming assignment in the previous section.
−
<font color="#000000">  1: </font><font color="#cc0000">(*</font><font color="#cc0000"> </font><font color="#cc0000">Author:</font><font color="#cc0000"> </font><font color="#cc0000"> </font><font color="#cc0000"> </font><font color="#cc0000"> </font><font color="#cc0000">Tao</font><font color="#cc0000"> </font><font color="#cc0000">Yue</font>
+
<syntaxhighlight lang=pascal>
−
<font color="#000000">  2: </font><font color="#cc0000"> </font><font color="#cc0000"> </font><font color="#cc0000"> </font><font color="#cc0000">Date:</font><font color="#cc0000"> </font><font color="#cc0000"> </font><font color="#cc0000"> </font><font color="#cc0000"> </font><font color="#cc0000"> </font><font color="#cc0000"> </font><font color="#cc0000">19</font><font color="#cc0000"> </font><font color="#cc0000">June</font><font color="#cc0000"> </font><font color="#cc0000">1997</font>
+
(* Author:   Tao Yue
−
<font color="#000000">  3: </font><font color="#cc0000"> </font><font color="#cc0000"> </font><font color="#cc0000"> </font><font color="#cc0000">Description:</font>
+
  Date:     19 June 1997
−
<font color="#000000">  4: </font><font color="#cc0000"> </font><font color="#cc0000"> </font><font color="#cc0000"> </font><font color="#cc0000"> </font><font color="#cc0000"> </font><font color="#cc0000"> </font><font color="#cc0000">Find</font><font color="#cc0000"> </font><font color="#cc0000">the</font><font color="#cc0000"> </font><font color="#cc0000">sum</font><font color="#cc0000"> </font><font color="#cc0000">and</font><font color="#cc0000"> </font><font color="#cc0000">average</font><font color="#cc0000"> </font><font color="#cc0000">of</font><font color="#cc0000"> </font><font color="#cc0000">five</font><font color="#cc0000"> </font><font color="#cc0000">predefined</font><font color="#cc0000"> </font><font color="#cc0000">numbers</font>
+
  Description:
−
<font color="#990066">  5: </font><font color="#cc0000"> </font><font color="#cc0000"> </font><font color="#cc0000"> </font><font color="#cc0000">Version:</font>
+
      Find the sum and average of five predefined numbers
−
<font color="#000000">  6: </font><font color="#cc0000"> </font><font color="#cc0000"> </font><font color="#cc0000"> </font><font color="#cc0000"> </font><font color="#cc0000"> </font><font color="#cc0000"> </font><font color="#cc0000">1.0</font><font color="#cc0000"> </font><font color="#cc0000">-</font><font color="#cc0000"> </font><font color="#cc0000">original</font><font color="#cc0000"> </font><font color="#cc0000">version</font>
+
  Version:
−
<font color="#000000">  7: </font><font color="#cc0000">*)</font>
+
      1.0 - original version
−
<font color="#000000">  8: </font>
+
*)
−
<font color="#000000">  9: </font><font color="#006699"><strong>program</strong></font> SumAverage<font color="#000000"><strong>;</strong></font>
+
 
−
<font color="#990066">  10: </font>
+
program SumAverage;
−
<font color="#000000">  11: </font><font color="#006699"><strong>const</strong></font>
+
 
−
<font color="#000000">  12: </font>  NumberOfIntegers <font color="#000000"><strong>=</strong></font> <font color="#ff0000">5</font><font color="#000000"><strong>;</strong></font>
+
const
−
<font color="#000000">  13: </font>
+
  NumberOfIntegers = 5;
−
<font color="#000000">  14: </font><font color="#006699"><strong>var</strong></font>
+
 
−
<font color="#990066">  15: </font>  A<font color="#000000"><strong>,</strong></font> B<font color="#000000"><strong>,</strong></font> C<font color="#000000"><strong>,</strong></font> D<font color="#000000"><strong>,</strong></font> E <font color="#000000"><strong>:</strong></font> <font color="#0099ff"><strong>integer</strong></font><font color="#000000"><strong>;</strong></font>
+
var
−
<font color="#000000">  16: </font>  Sum <font color="#000000"><strong>:</strong></font> <font color="#0099ff"><strong>integer</strong></font><font color="#000000"><strong>;</strong></font>
+
  A, B, C, D, E : integer;
−
<font color="#000000">  17: </font>  Average <font color="#000000"><strong>:</strong></font> <font color="#0099ff"><strong>real</strong></font><font color="#000000"><strong>;</strong></font>
+
  Sum : integer;
−
<font color="#000000">  18: </font>
+
  Average : real;
−
<font color="#000000">  19: </font><font color="#006699"><strong>begin</strong></font>   <font color="#cc0000">(*</font><font color="#cc0000"> </font><font color="#cc0000">Main</font><font color="#cc0000"> </font><font color="#cc0000">*)</font>
+
 
−
<font color="#990066">  20: </font>  A <font color="#000000"><strong>:=</strong></font> <font color="#ff0000">45</font><font color="#000000"><strong>;</strong></font>
+
begin    (* Main *)
−
<font color="#000000">  21: </font>  B <font color="#000000"><strong>:=</strong></font> <font color="#ff0000">7</font><font color="#000000"><strong>;</strong></font>
+
  A := 45;
−
<font color="#000000">  22: </font>  C <font color="#000000"><strong>:=</strong></font> <font color="#ff0000">68</font><font color="#000000"><strong>;</strong></font>
+
  B := 7;
−
<font color="#000000">  23: </font>  D <font color="#000000"><strong>:=</strong></font> <font color="#ff0000">2</font><font color="#000000"><strong>;</strong></font>
+
  C := 68;
−
<font color="#000000">  24: </font>  E <font color="#000000"><strong>:=</strong></font> <font color="#ff0000">34</font><font color="#000000"><strong>;</strong></font>
+
  D := 2;
−
<font color="#990066">  25: </font>  Sum <font color="#000000"><strong>:=</strong></font> A <font color="#000000"><strong>+</strong></font> B <font color="#000000"><strong>+</strong></font> C <font color="#000000"><strong>+</strong></font> D <font color="#000000"><strong>+</strong></font> E<font color="#000000"><strong>;</strong></font>
+
  E := 34;
−
<font color="#000000">  26: </font>  Average <font color="#000000"><strong>:=</strong></font> Sum <font color="#000000"><strong>/</strong></font> NumberOfIntegers<font color="#000000"><strong>;</strong></font>
+
  Sum := A + B + C + D + E;
−
<font color="#000000">  27: </font>  writeln <font color="#000000"><strong>(</strong></font><font color="#ff00cc">'</font><font color="#ff00cc">Number</font><font color="#ff00cc"> </font><font color="#ff00cc">of</font><font color="#ff00cc"> </font><font color="#ff00cc">integers</font><font color="#ff00cc"> </font><font color="#ff00cc">=</font><font color="#ff00cc"> </font><font color="#ff00cc">'</font><font color="#000000"><strong>,</strong></font> NumberOfIntegers<font color="#000000"><strong>)</strong></font><font color="#000000"><strong>;</strong></font>
+
  Average := Sum / NumberOfIntegers;
−
<font color="#000000">  28: </font>  writeln <font color="#000000"><strong>(</strong></font><font color="#ff00cc">'</font><font color="#ff00cc">Number1</font><font color="#ff00cc"> </font><font color="#ff00cc">=</font><font color="#ff00cc"> </font><font color="#ff00cc">'</font><font color="#000000"><strong>,</strong></font> A<font color="#000000"><strong>)</strong></font><font color="#000000"><strong>;</strong></font>
+
  writeln ('Number of integers = ', NumberOfIntegers);
−
<font color="#000000">  29: </font>  writeln <font color="#000000"><strong>(</strong></font><font color="#ff00cc">'</font><font color="#ff00cc">Number2</font><font color="#ff00cc"> </font><font color="#ff00cc">=</font><font color="#ff00cc"> </font><font color="#ff00cc">'</font><font color="#000000"><strong>,</strong></font> B<font color="#000000"><strong>)</strong></font><font color="#000000"><strong>;</strong></font>
+
  writeln ('Number1 = ', A);
−
<font color="#990066">  30: </font>  writeln <font color="#000000"><strong>(</strong></font><font color="#ff00cc">'</font><font color="#ff00cc">Number3</font><font color="#ff00cc"> </font><font color="#ff00cc">=</font><font color="#ff00cc"> </font><font color="#ff00cc">'</font><font color="#000000"><strong>,</strong></font> C<font color="#000000"><strong>)</strong></font><font color="#000000"><strong>;</strong></font>
+
  writeln ('Number2 = ', B);
−
<font color="#000000">  31: </font>  writeln <font color="#000000"><strong>(</strong></font><font color="#ff00cc">'</font><font color="#ff00cc">Number4</font><font color="#ff00cc"> </font><font color="#ff00cc">=</font><font color="#ff00cc"> </font><font color="#ff00cc">'</font><font color="#000000"><strong>,</strong></font> D<font color="#000000"><strong>)</strong></font><font color="#000000"><strong>;</strong></font>
+
  writeln ('Number3 = ', C);
−
<font color="#000000">  32: </font>  writeln <font color="#000000"><strong>(</strong></font><font color="#ff00cc">'</font><font color="#ff00cc">Number5</font><font color="#ff00cc"> </font><font color="#ff00cc">=</font><font color="#ff00cc"> </font><font color="#ff00cc">'</font><font color="#000000"><strong>,</strong></font> E<font color="#000000"><strong>)</strong></font><font color="#000000"><strong>;</strong></font>
+
  writeln ('Number4 = ', D);
−
<font color="#000000">  33: </font>  writeln <font color="#000000"><strong>(</strong></font><font color="#ff00cc">'</font><font color="#ff00cc">Sum</font><font color="#ff00cc"> </font><font color="#ff00cc">=</font><font color="#ff00cc"> </font><font color="#ff00cc">'</font><font color="#000000"><strong>,</strong></font> Sum<font color="#000000"><strong>)</strong></font><font color="#000000"><strong>;</strong></font>
+
  writeln ('Number5 = ', E);
−
<font color="#000000">  34: </font>  writeln <font color="#000000"><strong>(</strong></font><font color="#ff00cc">'</font><font color="#ff00cc">Average</font><font color="#ff00cc"> </font><font color="#ff00cc">=</font><font color="#ff00cc"> </font><font color="#ff00cc">'</font><font color="#000000"><strong>,</strong></font> Average<font color="#000000"><strong>)</strong></font>
+
  writeln ('Sum = ', Sum);
−
<font color="#990066">  35: </font><font color="#006699"><strong>end</strong></font><font color="#000000"><strong>.</strong></font>     <font color="#cc0000">(*</font><font color="#cc0000"> </font><font color="#cc0000">Main</font><font color="#cc0000"> </font><font color="#cc0000">*)</font>
+
  writeln ('Average = ', Average)
 +
end.    (* Main *)  
 +
</syntaxhighlight>
  
−
{|style=color-backgroud="white" cellspacing="20"
+
{{TYNavigator|Programming_Assignment|Input}}
−
|[[Programming_Assignment|previous]] 
 
−
|[[op_contents|contents]]
 
−
|[[2_Input_Output|next]]
 
−
|}
 

Revision as of 20:07, 16 January 2020

│ български (bg) │ Deutsch (de) │ English (en) │ français (fr) │ 日本語 (ja) │ 한국어 (ko) │ русский (ru) │ 中文（中国大陆）‎ (zh_CN) │

 ◄   ▲   ► 

1Ha - Solution (author: Tao Yue, state: unchanged)

Here's one way to solve the programming assignment in the previous section. 

(* Author:    Tao Yue
   Date:      19 June 1997
   Description:
      Find the sum and average of five predefined numbers
   Version:
      1.0 - original version
*)

program SumAverage;

const
   NumberOfIntegers = 5;

var
   A, B, C, D, E : integer;
   Sum : integer;
   Average : real;

begin    (* Main *)
   A := 45;
   B := 7;
   C := 68;
   D := 2;
   E := 34;
   Sum := A + B + C + D + E;
   Average := Sum / NumberOfIntegers;
   writeln ('Number of integers = ', NumberOfIntegers);
   writeln ('Number1 = ', A);
   writeln ('Number2 = ', B);
   writeln ('Number3 = ', C);
   writeln ('Number4 = ', D);
   writeln ('Number5 = ', E);
   writeln ('Sum = ', Sum);
   writeln ('Average = ', Average)
end.     (* Main *)
 ◄   ▲   ► 
Retrieved from "http://wiki.freepascal.org/index.php?title=Basic_Pascal_Tutorial/Chapter_1/Solution&oldid=130662"