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

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

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

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

Код:
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 в 19:09.
Владимир163 вне форума   Ответить с цитированием
Старый 10.05.2015, 11:33   #2
newerow1989
Я самый любопытный
Профессионал
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Адрес: RU, Алтайский край, Красногорский р-н, с. Балыкса, ул. Центральная Сообщений: 7,541 Репутация: 37104
Сообщений: 1,776
Репутация: 1673

skype: newerow1989
По умолчанию

Код:
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 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


07:09.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.