Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Описания всех блоков программы на Паскале

3.3K
11 декабря 2006 года
Nethead
88 / / 24.11.2006
Можете помочь в создании описаний к каждой строке подпрограммы что- бы лучше разобратся...Одно описани я уже добавил , остальные не знакю какие...
uses
crt;
const n=8;
m=14;
var matrix:array[1..n,1..m]of word;
i,j,sum:word;
begin
for i:=1 to n do
for j:=1 to m do
/ЭТО ПОДСЧЕТ КОЛ-ва суммы...
matrix[i,j]:=i+2*j;
for i:=1 to n do
begin
for j:=1 to m do
write(' ',matrix[i,j]);
writeln;
end;
for j:=1 to m do
begin
matrix[1,j]:=0;
matrix[n,j]:=0;
end;
writeln;
for i:=1 to n do
begin
for j:=1 to m do
write(' ',matrix[i,j]);
writeln;
end;
sum:=0;
for i:=1 to n do
for j:=1 to m do
if i=j then sum:=sum+matrix[i,j];
writeln;
writeln(sum);
readln;
end.
257
11 декабря 2006 года
kosfiz
1.6K / / 18.09.2005
Код:
uses
crt;
const n=8;
m=14;
var matrix:array[1..n,1..m]of word;
i,j,sum:word;
begin
//формирование матрицы элементы которой вычисляются по формуле aij=i+2*j
for i:=1 to n do
for j:=1 to m do
matrix[i,j]:=i+2*j;
//вывод полученной матрицы(построчно)
for i:=1 to n do
begin
for j:=1 to m do
write(' ',matrix[i,j]);
writeln;
end;
//обнуляем элементы 1 и n строк
for j:=1 to m do
begin
matrix[1,j]:=0;
matrix[n,j]:=0;
end;
writeln;
//вывод матрицы, полученной после обнуления 1 и n строк
for i:=1 to n do
begin
for j:=1 to m do
write(' ',matrix[i,j]);
writeln;
end;
sum:=0;
//считаем сумму элементов aij, для которых i=j
for i:=1 to n do
for j:=1 to m do
if i=j then sum:=sum+matrix[i,j];
writeln;
//выводим sum
writeln(sum);
readln;
end.
3.3K
11 декабря 2006 года
Nethead
88 / / 24.11.2006
да сразу все понятно
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог