Министерство образования Российской Федерации
Волгоградский государственный технический университет
Кафедра прикладной математики
Семистровая работа по теме:
ПРОЦЕДУРЫ И ФУНКЦИИ
Выполнил:
студент группы
Проверил:
Волгоград 2003
1. Задание
1.1.
Ввести двумерный массив. Найти сумму элементов с нечетными индексами.
1.2.
Ввести двумерный массив. Получить одномерный массив включающий все не нулевые элементы матрицы. Найти модуль полученного вектора.
2.1. Блок-схема
![](data:image/gif;base64,R0lGODlhUwAtAHcAMSH+GlNvZnR3YXJlOiBNaWNyb3NvZnQgT2ZmaWNlACH5BAEAAAAALAMAAgBOACgAhgAAAAAAABISEggICAQEBA4ODhMTExUVFRYWFhcXFxgYGAwMDBQUFA8PDxAQEA0IBAAECgsGAwMGCw0KCAMAAAkJCQAAAwgKDQQIDQADCAsLDQoEAAAABAoLDQQEAwgKCgQAAA0LCg0LCwgDABEREQ0NDQoKCAADAwoKCgcHBwsLCx0dHRoaGjMzMyQkJCgoKCMjIzw8PCoqKjs7OywsLE5OTlhYWExMTF5eXkNDQ1ZWVn9/f3JycmJiYn19fWtra3x8fGFhYWpqao2NjZ+fn4ODg5eXl4+Pj6+vr7+/v6enp8fHx9fX18/Pz9/f3/f39+/v7+fn5////wECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwf/gACCg4SEAQCHiYiLio2Mj46RkIuFlZaDAgMtNTudnp+goaKjpKI2LQSXqgAGQ09SsLGys7S1tre4sEQHq4U3r7nBwsO4OAm9CTzEy8zLRQqrOc3T1Lc6C5cuUNXc3U8vlgxI3eTVSJYw5erTMZXj6/DDSwaEDfH3wryCAT34/rc+BjFI8q/gLCYOBBFg9iCAw4cPIcCKEEDCrAkUJEppCNGhRmoVBMlg2BGiRooWLsjCqJFjyZTUZgj6QRIDLooBMmiIxRJWQ5uyNgTg0GEakAEFjNS8acFDAKBSem58SkuoxWZIGAB4R+wn0w8giMKS6nVWCBAflyURIIDgsrK2/yKkbHiVLNVZIkbobNaERAEmJEsGgClFrsoNMO1CDSqWmZMSJZwEfqmycGIKOhXX2tB42WMBS5beMjzxqWa8enc6LtFWdFzCZzmYyOjz7krazZYIAKDEdS3StU/ghhtL6GJia1Ec8U0LOCyhAVrafp5TNTMiCWtMLinWeVQK0WsLJtwsyCEG2zt2J19aesmr1GAISrHNoP0nAwQJIGLfvhKtiMTQn0E1EKJCFAP6g18hQiSIzxC71YOgg+s8QU8hAzRIoTpFXDLQhuQsAc0lK0gGIjVQrNDLCoCd6BgNvQjCAn8uDoPECofECIAABxCRBDA1yvJEEkTAAKCOhDBAgA1gTDbp5JOCpRLhJYEAADs=)
![](data:image/gif;base64,R0lGODlhUgAsAHcAMSH+GlNvZnR3YXJlOiBNaWNyb3NvZnQgT2ZmaWNlACH5BAEAAAAALAIAAgBOACgAhgAAAAAAABQUFBwcHBUVFRISEhkZGRoaGhcXFxgYGBMTEwwMDBEREQ8PDw4ODggICAsLCw0IBAAECgsGAwMGCw0KCAMAAAQEBAAAAwgKDQcHBwQIDQADCAsLDQoEAAAABAoLDQQEAxAQEAgKCgQAAA0LCg0LCwgDAA0NDQoKCAADAwoKCh0dHRYWFjMzMyMjIzg4OCAgICoqKl5eXlZWVkVFRU5OTnZ2dn9/f3BwcHt7e2hoaGpqamtra319fZ+fn5ubm4WFhYeHh4+Pj5eXl42Nja+vr7e3t7+/v6enp62trc/Pz8fHx9fX19/f3/f39+fn5+/v7////wECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwf/gACCg4SCAQCHiYiLio2Mj46RkI+FlZaDAgMuNzidnp+goaKjpKI3LgSXqgAvRlKvsLGys7S1trewP6mrhDm4v8DBvzMIvAlAwsnKyTrFqjvL0dK2NAuXME/T2ttPMZYMS9vi00aWNePo0S+F4OnuwkYChC/v9cANgw5B9vy2PIMQoPQbKIuJAkEDlEUIwLBhQwmvJgSgIKuCBYhSFjpkiFHaBUTnkmncyDFiAAwZYlnEOHIjSmkuBAlRGGDDLYkBOHSAtfLVQpuxPAT4ACJajwAEjtAEWmsChhA1eV70GVWWUIrLfogogGTpTQwjSBB91TNj1VglSHRMdoSAgyZe/205zbAQa9mfs0yc0LkMSQEUTmiSPJlSylwpHl7ePRt0rLImDgALJvnSsGILOhczbVxUmRMUkkUynnXYcE3NeffuVMakQAEmcZtWTvshxVSzm8neVuYXQFfRuWWVNqviNl6ro4MlKSDiR2xawxGXxI2c77IhKwD0mExybHSLAVgOJiytxiEZ3Dd6rwxLoniSWKXJA/AgG8H7UCAISnr/PhERhtjQH0ExDbJAFAPyk18hRSRoDw8PFHKAQA6mAwU+hTzAQ4Xp/GOJAb9xqI0SCagyoYjTOOGMKizAhaIyS7DAiyAHOPciME8U0cKMgxRAgBBIBHajLE0g4cNBPFYiAA4K4zXp5JNQMgRghKoEAgA7)
3.1. Текст программыPROGRAM SEM1;
uses crt;
const Nmax=10;
Mmax=10;
type matr=array[1..Nmax,1..Mmax] of integer;
var A:matr;
Na,i,j,Ma,S,max:integer;
Procedure Vvod(var x:matr; var Nx,Mx:integer; P:char);
begin
clrscr;
write('Vvedite N: ');
read(Nx);
writeln;
write('Vvedite M: ');
read(Mx);
writeln;
for i:=1 to Nx do
for j:=1 to Mx do begin
write(P,'[',i,',',j,']=');
read(x[i,j]);
end;
end;
Function Summa(var x:matr; Nx,Mx:integer):integer;
begin
S:=0;
i:=1;
repeat
j:=1;
repeat
if (i mod 2<>0) and (j mod 2<>0) then S:=S+x[i,j];
j:=j+1;
until j>Mx;
i:=i+1;
until i>Nx;
Summa:=S;
end;
Procedure Vivod(var x:matr; Nx,Mx:integer; P:char);
begin
writeln;
writeln('Matrica ',P,':');
writeln;
i:=1;
repeat
j:=1;
repeat
write(x[i,j],' ');
j:=j+1;
until j>Mx;
writeln;
i:=i+1
until i>Nx;
end;
begin
vvod(a,na,ma,'A');
S:=Summa(a,na,ma);
vivod(a,na,ma,'A');
writeln;
writeln('SUMMA= ',S);
end.
4.1. Тестовый пример и результат
N=3 M=3
1 2 3
4 5 6
7 8 9
SUMMA=20
2.2. Блок-схема