Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 05.05.2015, 17:46   #1
Владимир163
 
Регистрация: 25.02.2015
Сообщений: 6
По умолчанию Напишите коментарии к листингу программы

Напишите коментарии к листингу программы

Код:
Program z1;
Uses crt;
var
   a:array[1..10,1..10]of integer;
   i,j,k,n,m,s,ss:integer;
begin
clrscr; s:=0; ss:=0;
Write ('Введите кол-во строк :');
readln (n);
Write ('Введите кол-во столбцов :');
readln (m);
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        write ('A[',i,j,']=');
        Readln(a[i,j]);
        end;
    writeln;
    end;
writeln('Исходная матрица:');
For i:=1 to n do
    begin
    for j:=1 to m do
        write(a[i,j]:3);
    writeln;
    end;
for i:=1 to n do
    begin
    k:=0;
    for j:=1 to m do
        if a[i,j]=0 then k:=k+1;
    if k>=1 then
       begin
       writeln('Ноль есть в ',i,' строке');
       ss:=ss+1;
       s:=s+k;
       end;
    end;
if ss<1 then writeln('В матрице нет нулевых элементов!') else
   writeln('В ',ss,' строке(ах) всего ',s,' нулевых элемент(а)ов');
end.

Последний раз редактировалось Аватар; 05.05.2015 в 18:09.
Владимир163 вне форума Ответить с цитированием
Старый 10.05.2015, 10:33   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,802
По умолчанию

Код:
Program z1;
Uses crt;
var
   a:array[1..10,1..10]of integer;
   i,j,k,n,m,s,ss:integer;
begin
clrscr; s:=0; ss:=0;//обнуление счетчиков
Write ('Введите кол-во строк :');
readln (n);
Write ('Введите кол-во столбцов :');
readln (m);
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        write ('A[',i,j,']=');
        Readln(a[i,j]);//запись массива
        end;
    writeln;
    end;
writeln('Исходная матрица:');
For i:=1 to n do
    begin
    for j:=1 to m do
        write(a[i,j]:3);//вывод массива
    writeln;
    end;
for i:=1 to n do
    begin
    k:=0;//сначала k обнуляем
    for j:=1 to m do
        if a[i,j]=0 then k:=k+1;//если встретился ноль в матрице, то k увеличиваем на единицу (т.е. считаем кол-во нулей в i-й строке)
    if k>=1 then//если нули нашлись
       begin
       writeln('Ноль есть в ',i,' строке');
       ss:=ss+1;//считаем кол-во строк, где находятся нули
       s:=s+k;//считаем ОБЩЕЕ кол-во нулей в матрице
       end;
    end;
if ss<1 then writeln('В матрице нет нулевых элементов!') else
   writeln('В ',ss,' строке(ах) всего ',s,' нулевых элемент(а)ов');
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.narod.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
напишите блок схему по листингу программы Владимир163 Паскаль, Turbo Pascal, PascalABC.NET 1 14.04.2015 16:14
!!!! Отблагодарю! Нужно НАрисовать блок схему(Алгоритм) по листингу программы НА Ассемблере. romanos Помощь студентам 1 25.05.2013 11:54
Описание программы по ее листингу MIha161 Помощь студентам 3 24.04.2012 10:26
Коментарии программы Devil_Boy Помощь студентам 2 20.10.2010 17:36
C++. нужни коментарии к коду программы Myau Thai Помощь студентам 1 04.06.2009 18:32


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS