Basic Pascal Tutorial/Chapter 1/Solution/ko

From Free Pascal wiki
(Redirected from Solution/ko)
Jump to navigationJump to search
The printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.

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

1Ha - 해답 (저자: Tao Yue, 상태: 변경없음)

여기에 앞의 프로그래밍 과제에 대한 한 해답을 올려 놓겠다. 

(* 저자:    Tao Yue
   날자:      19 June 1997
   설명:
      5개의 미리 정의된 숫자의 총합과 평군을 구하라.
   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 *)
previous contents next
Retrieved from "http://wiki.freepascal.org/index.php?title=Basic_Pascal_Tutorial/Chapter_1/Solution/ko&oldid=153750"