6.Тапсырма
Берілгені
Басты диагоналға парралель жатқан элементердің қосындысының максимум элементін табу керек.
Есепті блок схемасы 6- суретте көрсетілген
1)басы-есепті бастау мәтіні
2)подпрограмма процедура қолдану
3,5,6,9,1012,1416,18,22,24) программа циклі олар нітижені экранға шығаруға,шартты циклда пайдалану ,максимум элементті табу ушін қолданылып тур
4,7,17,20,23,2629,30)программа денесі максимум элеметті табу жолында пайдаланып тур.
13,15,21,27)экранға нәтижені шығару мақсатында қолданады.
25,19,27) цикл ішіндегі шарттар олар максимум элементті табу максатында іріктеп алып отырады.
32)соңы
Паскаль тілінде жазылуы
program Vaza;
uses crt;
const n=4;
var i,j,k,l,max1,max2,max:integer;
a:array[1..n,1..n] of integer;
s1,s2:array[1..n-1] of integer;
d:text;
Procedure diag;
var i,j,k,l:integer;
begin
for k:=1 to n-1 do s1[k]:=0; s2[k]:=0;
for k:=1 to n-1 do
for i:=k+1 to n do
begin
s1[k]:=s1[k]+a[i,i-k];
s2[k]:=s2[k]+a[i-k,i];
end;
end;
BEGIN
clrscr;
assign(d,'c:\users\айкоша\desktop\pascal\matrica.txt');
reset(d);
for i:=1 to n do for j:=1 to n do
read (d,a[i,j]);
for i:=1 to n do
begin
for j:=1 to n do write (a[i,j]:4);
writeln;
end;
writeln;
diag;
for k:=n-1 downto 1 do write (s1[k]:3);
for k:=1 to n-1 do write (s2[k]:3);
writeln;
begin
for k:=1 to n-1 do max1:=s1[k];
for k:=1 to n-1 do
if s1[k]>max1 then
begin
max1:=s1[k];
end; writeln('max1=',max1);
end;
begin
for k:=1 to n-1 do max2:=s2[k];
for k:=1 to n-1 do
if s2[k]>max2 then
begin
max2:=s2[k];
end; writeln('max2=',max2);
end;
if max2<max1 then max:=max1
else max:=max2;
writeln('max=',max);
readln;
end.
Жауабы
Паскаль тіліндегі программага тусінітеме
Программада процедура қолданылды.Бул жерде программа қайталау операторының ішінде дурыс шарттың арқасында есеп дурыс бағыттта максимум элементті тапты десек болады.
Пайдаланылған әдебиеттер
1)Павловская, для чтение
2)Бөрібаев
3)Қуралбаев