Приклади програм.

1) Пошук максимального елемента в лінійному масиві, елементи якого вводяться з клавіатури.

program poshuk;

uses crt;

const N=5;

type

mas=array[1..N] of byte;

var

a:mas; i,max:byte;

BEGIN

clrscr;

max:=0;

for i:=1 to N do begin

write('a[',i,']='); readln(a[i]);

if a[i]>max then max:=a[i];

end;

writeln('max=',max);

readkey;

END.

2) Знаходження середнього арифметичного елементів лінійного масиву. Елементи масиву задаються випадковим чином за допомогою процедури RANDOM.

program seredne;

uses crt;

const N=30;

type

mas=array[1..N] of byte;

var

a:mas; i:byte; S:real;

BEGIN

clrscr; s:=0; randomize;

for i:=1 to N do begin

a[i]:=random(4)+2; write(a[i]:5);

s:=s+a[i];

end;

writeln;

writeln('s=',s/N:0:2);

readkey;

end.

3. Табулювання функції (без використання масивів)

uses crt;

var

x,y,h:real;

begin

clrscr; textcolor(green);

writeln('Таблиця значень функцiї y=ln x на промiжку [1;5] з кроком 0.3');

x:=1; h:=0.3;

writeln;

while x<=5 do begin

y:=1/x;

writeln('x=',x:0:2,'y=1/x=':19,y:0:2);

x:=x+h;

end;

readkey;

end.

4) Дано масив цiлих чисел,що мiстять 10 елементiв,записати в цей масив

спочатку всi додатнi числа,а потiм всi вiдемнi i нулi, зберiгаючи порядок iх послiдовностi.

program pr4;

uses crt;

const n=10;

var i,k,p,max,min:integer;

matrix:array[1..10] of integer;

begin

clrscr;

writeln('Введiть елементи масиву');

for i:=1 to n do

begin

read(matrix[i]);

end;

i:=1;

for i:=1 to n do

begin

if matrix[i]>0 then writeln('Елементи матрицi якi бiльше нуля ',matrix[i]);

end;

for i:=1 to n do

begin

if matrix[i]=0 then writeln('Елементи матрицi якi дорiвнють нулю ',matrix[i]);

if matrix[i]<0 then writeln( 'Елементи матрицi якi менше нуля ', matrix[i] );

end;

readkey;

end.

5) Описати матpицю цілих чисел 4*4 та пеpетвоpити її таким чином: числа, що діляться на 2 піднести до квадpату; а числа,що діляться на 3, піднести до кубу.

program m;

uses crt;

var a:array[1..4,1..4] of longint;

i:integer;j:integer;k:integer;

const n=4;

begin

clrscr;

for i:=1 to 4 do begin

for j:=1 to 4 do begin

a[i,j]:=random(10);

write(a[i,j]:6);

end;

writeln;

end;

writeln('пеpетвоpена матpиця');

for i:=1 to 4 do begin

for j:=1 to 4 do begin

if (a[i,j] mod 2=0)and(a[i,j] mod 3<>0) then a[i,j]:=sqr(a[i,j]);

if a[i,j] mod 3=0 then a[i,j]:=sqr(a[i,j])*a[i,j];

write(a[i,j]:6)

end;

writeln;

end;

repeat until keypressed;

end.

Виконання

0 0 8 2

2 6 3 1

3 4 0 4

0 8 0 2

пеpетвоpена матpиця

0 0 64 4

4 216 27 1

27 16 0 16

0 64 0 4

6) Прогама для введення 20 елементів масиву цілих чисел та підрахунку кількості нулів серед них.

Program h;

var

b:array[1..20] of integer;i,k:integer;

begin

writeln('Введiть 20 чисел');

for i:=1 to 20 do begin

readln(b[i]);

if b [i]=0 then k:=k+1

end;

writeln ('кiлькiсть 0=',k);

end.

7) Програма, що виводить повідомлення про те, чи утворюють елементи масиву арифметичну програсію.

program nafania;

uses crt;

var

a:array[1..10] of integer;

d,i:integer;

label 1,2,3;

begin

clrscr;

writeln ('Введите элементы массива А');

for i:=1 to 10 do read(a[i]);

d:=a[2]-a[1];

i:=2;

2: if (a[i]-a[i-1] = d) then begin

i:=i+1;

if i<=10 then goto 2

else goto 3;

end

else begin

writeln(' Елементи не утворюють арифметичну прогресію ');

goto 1;

end;

3:writeln('Елементи утворюють арифметичну прогресію');

1:repeat until keypressed

end.

8) Програма, що заповнює елементи масиву с сумою відповідних елементів масивів a i b.

program Voloday2;

var a,c:array [1..4] of real;

b:array [1..4] of real;

i:integer;

begin

for i:=1 to 4 do

readln (a[i]);

for i:=1 to 4 do

readln (b[i]);

for i:=1 to 4 do

c[i]:=a[i]+b[i];

for i:=1 to 4 do

writeln (c[i]:6:2);

readln;

end

9) Програма знаходження суми елементів матриці цілих чисел розміром 3х4.

program a1;

var a,b,m,c,j:integer;

m:array[1..3,1..4]of integer;

begin

for i=1 to 3 do

for j=1 to 4 do

begin

write('m[',i,']);

readln(m[i,j]);

s:=0;

s:=s+i;

write(s);

end;

end.