Введение в программирование. Pascal и Delphi. Гурьянов Л.В - 72 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

71
4.1.5.1. Формальные параметры как массивы
с фиксированными размерами
В данном примере для описания типов параметров используется
заранее определенный тип
massiv с фиксированной размерностью.
uses crt;
const
N=3;
type
massiv = array[1..N] of integer;
function sum_1( x: massiv ): integer;
var
i : integer;
sum: integer;
begin
sum:= 0;
for i:= 1 to N do
sum:= sum+x[i];
sum_1:= sum;
end;
var {main – главная программа }
i:integer;
a:massiv;
begin
clrscr;
writeln('massiv a');
for i:=1 to N do
readln(a[i]);
writeln('summa= ', sum_1(a));
end. 
  4.1.5.1. Формальные параметры как массивы
           с фиксированными размерами
   В данном примере для описания типов параметров используется
заранее определенный тип massiv с фиксированной размерностью.
  uses crt;
  const
   N=3;
  type
   massiv = array[1..N] of integer;
  function sum_1( x: massiv ): integer;
  var
   i : integer;
   sum: integer;
  begin
   sum:= 0;
   for i:= 1 to N do
      sum:= sum+x[i];
   sum_1:= sum;
  end;
  var {main – главная программа }
   i:integer;
   a:massiv;
  begin
   clrscr;
   writeln('massiv a');
   for i:=1 to N do
     readln(a[i]);
   writeln('summa= ', sum_1(a));
  end.




                                71

Страницы