For i:=1 to n do
For j:=1 to m do
Read(b[I,j]);
немесе экранға шығару үшін:
For i:=1 to n do
begin
writeln;
For j:=1 to m do
write(b[i,j]);
end;
Мысал 1: Екіөлшемді а және b матрицаларының қосындысы болып табылатын s матрицасын табу керек.
Program kosu;
Var
A,b,s:array[1..3, 1..3] of real;{a,b және s матрицаларын сипаттау}
i,j:integer;
begin
writeln(‘а жиымы элементтерін босорын арқылы енгізіңдер:’);
for i:=1 to 3 do
for j:=1 to 3 do read(a[i,j]);{а матрицасын енгізу}
writeln;
writeln(‘b жиымы элементтерін босорын арқылы енгізіңдер:’);
for i:=1 to 3 do
for j:=1 to 3 do begin
read(b[i,j]); {b матрицасын енгізу}
s[I,j]:=a[I,j] + b[I,j];{а және b матрицасына қосып, s матрицасына меншіктеу}
end;
writeln(‘қосынды жиымның элементтері:’);
for i:=1 to 3 do begin
for j:=1 to 3 do write(s[I,j]);{жаңа құрылған матрицасының элем-рін баспаға шығару}
writeln;
end;
end.
Мысал 2: Өлшемі 4 х 4 нақты сандардан тұратын матрица берілген. Матрицаның ең кіші элементін табатын программа құралық.
Program matrissa;
Const n=4;
Var
A:array [1..n, 1..n] of real;{а матрицасын сипаттау}
Min,res:real;
I,j,k1,k2:integer;
Begin
Writeln(‘Матрица элементтерін босорын арқылы енгізіңдер:’);
For i:=1 to n do
Begin
For j:=1 to n do read(a[I,j]);{А матрицасын енгізу}
Writeln;
End;
Min:=a[1,1];{1-ші элементті ең кіші деп сақтап қоямыз}
k1:=1; k2:=1;{1-ші элементтің индекстерін сақтап қою}
For i:=1 to n do
For j:=1 to n do begin
If min>a[I,j] then begin{ең кіші элементті анықтау шарты}
Min:=a[I,j];{егер ағымдық эл.кіші болса,min-ді ауыстырамыз }
K1:=I; k2:=j;{сәйкесінше, индекстеріде ауысады}
End;
End;
Writeln(‘ең кіші элемент=’, min:6:2,’, ол’, k1:2,’- жолда және’,k2:2,’-бағанада орналасқан’);{минимальды эл.баспаға шығару}
End.
Практикалық жұмыс №26
Тақырыбы: Функция және процедуралар
Теорияға шолу
Компьютерде шығарылатын есептердің күрделіленуіне байланысты программалардың көлемі өсіп, оларды жазу, оқу, түзету күннен-күнге қиындап барады. Осыған байланысты программа құруды, түсінуді, өзгертуді жеңілдететін тәсілдер жасалған, олар құрылымдық программалау деп аталады.
Белгілі бір ат қойылып, жеке программа түрінде бөлек жазылған, қажет кезінде оны қайталап пайдаланып отыруға болатын негізгі программаның арнайы бөлігін көмекші немесе қосалқы программа деп атайды.
Белгілі бір әрекеттерді орындау мақсатында алдын ала бекітілген аты бойынша шақырылып орындалатын программаның тәуелсіз бөлігі процедура деп аталады. Жұмысының нәтижесі бір ғана мән болатын процедура функциядеп аталады.
Процедураны сипаттаудың жазылу пішімі:
Procedure <аты> (көрсетпелі параметрлер тізімі);
Const ….;
Type …..;
Var …..;
Begin
<опреаторлар>;
Достарыңызбен бөлісу: |
