Категория
Информатика
Тип
реферат
Страницы
2 стр.
Дата
03.09.2008
Формат файла
.doc — Microsoft Word
Архив
20080.zip — 16.51 kb
  • procedury-i-funkcii_20080_1.doc — 99.5 Kb
  • Readme_docus.me.txt — 125 Bytes
Оцените работу
Хорошо  или  Плохо


Текст работы


Министерство образования Российской ФедерацииВолгоградский государственный технический университетКафедра прикладной математикиСемистровая работа по теме:
ПРОЦЕДУРЫ И ФУНКЦИИВыполнил:
студент группы
Проверил:
Волгоград 20031. Задание
1.1.
Ввести двумерный массив. Найти сумму элементов с нечетными индексами.
1.2.
Ввести двумерный массив. Получить одномерный массив включающий все не нулевые элементы матрицы. Найти модуль полученного вектора.
2.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);
beginclrscr;
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;
beginS:=0;
i:=1;
repeatj:=1;
repeatif (i mod 20) and (j mod 20) 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);
beginwriteln;
writeln('Matrica ',P,':');
writeln;
i:=1;
repeatj:=1;
repeatwrite(x[i,j],' ');
j:=j+1;
until j>Mx;
writeln;
i:=i+1until ',S);
end.
4.1. Тестовый пример и результатN=3 M=31 2 3
4 5 67 8 9SUMMA=202.2. Текст программыPROGRAM SEM2;
uses crt;
const Nmax=10;



Ваше мнение



CAPTCHA