Бесплатные рефераты


В мире
Календарь новостей
« Ноя.2017
Пн.Вт.Ср.Чт.Пт.Сб.Вс.
  12345
6789101112
13141516171819
20212223242526
27282930   
ВНИМАНИЕ!!!
УВАЖАЕМЫЕ ПОЛЬЗОВАТЕЛИ!!!
Сайт поменял владельца и на нём грядут большие перемены.
Убедительная просьба не пользоваться покупкой рефератов через смс.
ДАННЫЙ СЕРВИС БОЛЬШЕ НЕ РАБОТАЕТ
Стоит вопрос об его удалении, дабы сделать рефераты бесплатными. Извините за неудобство и спасибо за понимание
Поиск реферата

Реферат, курсовая, контрольная, доклад на тему: Процедуры и функции

ВНИМАНИЕ! Работа на этой странице представлена для Вашего ознакомления в текстовом (сокращенном) виде. Для того, чтобы получить полностью оформленную работу в формате Word, со всеми сносками, таблицами, рисунками (вместо pic), графиками, приложениями, списком литературы и т.д., необходимо скачать работу.

Министерство образования Российской Федерации

Волгоградский государственный технический университет

Кафедра прикладной математики

Семистровая работа по теме:

ПРОЦЕДУРЫ И ФУНКЦИИ

Выполнил: студент группы

Проверил:

Волгоград 2003
1. Задание

1.1.

Ввести двумерный массив. Найти сумму элементов с нечетными индексами.

1.2.

Ввести двумерный массив. Получить одномерный массив включающий все не нулевые элементы матрицы. Найти модуль полученного вектора.
2.1. Блок-схема

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 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); 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. Блок-схема

3.2. Текст программы

PROGRAM SEM2; uses crt; const Nmax=10;

Mmax=10;

Kmax=100; type matr=array[1..Nmax,1..Mmax] of integer; vector=array[1..Kmax] of integer; var A:matr;

C:vector;
Na,i,j,Ma,Nc,k,M: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;

Procedure Sozd(var x:matr; Nx,Mx:integer); begin
Nc:=0; k:=1; i:=1; repeat j:=1; repeat if (x[i,j]0) then begin c[k]:=x[i,j];

Nc:=Nc+1; k:=k+1; end; j:=j+1; until j>Mx; i:=i+1; until i>Nx; end;

Function Modul(var x:vector; Nx:integer):integer; begin
M:=0; for k:=1 to Nx do M:=M+x[k];
M:=ABS(M);
Modul:=M; end;

Procedure Vivod(var x:vector; Nx:integer; P:char); begin writeln; writeln('Vector ',P,':'); writeln; k:=1; repeat write(x[k],' '); k:=k+1; until k>Nx; writeln; end;

begin vvod(a,na,ma,'A');
Sozd(a,na,ma);
M:=Modul(c,nc); vivod(c,nc,'C'); writeln; writeln('MODUL= ',M); end.

4.2. Тестовый пример и результат


N=2 M=3


-4 2 0
0. 4 –6

Vector:
-4 2 4 -6


Modul=4

-----------------------

КОНЕЦ

VVOD (a, Na,Ma, ‘A’)

s:=summa(a,Na,Ma)

VIVOD (a,Na,Ma, ‘A’)

i не кр. 2 и j не кр.2

Вывод S

j:=1

i:=1 to Nx

VVOD (var x:matr; var Nx,Mx:integer; P:char)

x [ i , j ]

Nх,Mx

НАЧАЛО

j:=1 to Mx

END

END

Modul:=M

M:=ABS(M)

M:=M+x[k]

k:=k + 1

k:=1

Nc:=0

M:=Modul(c,Nc)

END

j:=j+1

i:=i+1

i>Nx

j>Mx

x [ i , j ]

j:=1

i:=1

VIVOD (var x:matr; Nx,Mx:integer; P:char)

Summa (var x:matr; Nx,Mx:integer):integer

Summa:=S

i:=1

S:=0

S:= S + x [i, j]

i:=i+1

i>Nx

j>Mx

j:=j+1

END

END

x [ i , j ]

j:=1 to Mx

i:=1 to Nx

КОНЕЦ

НАЧАЛО

Nх,Mx

VVOD (var x:matr; var

Nx,Mx:i?????????????????????????????ъ?ъ?ъ?ъ?ъ?ъ?ъ?ъ?ъnteger; P:char)

END

k:=k+1

M:=0

VIVOD (c, Nc,‘C’)

VVOD (a,Na,Ma‘A’)

Modul (var x:vector; var Nx:integer; P:char):integer

k>Nx

x [ i , j ]

k:=1 to Nx

k:=1

SOZD (a,Na,Ma)

VIVOD (var x:vector; Nx:integer; P:char)

i:=i+1

i>Nx

j>Mx

j:=j+1

Nc:=Nc + 1

END

x[i, j]0

j:=1

i:=1

c[k]:=x[i, j]

SOZD (var x:matr; Nx,Mx:integer)

ВНИМАНИЕ! Работа на этой странице представлена для Вашего ознакомления в текстовом (сокращенном) виде. Для того, чтобы получить полностью оформленную работу в формате Word, со всеми сносками, таблицами, рисунками (вместо pic), графиками, приложениями, списком литературы и т.д., необходимо А можно заказать оригинальный реферат
Опубликовано: 20.08.10 | [ + ]   [ - ]  
Просмотров: 127
Загрузок: 0
Рекомендуем
{dnmbottom}
БАНК РЕФЕРАТОВ содержит более 70 000 рефератов, курсовых, контрольных работ, сочинений и шпаргалок.