Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
ExPlAnEd
0 / 0 / 0
Регистрация: 27.11.2013
Сообщений: 28
#1

Найти в матрице количество строк, которые не содержат нулей (исправить ошибки) - Pascal ABC

08.01.2014, 22:47. Просмотров 238. Ответов 3
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Program z_8;
uses crt;
const
n=4;
m=4;
type din= array [1..n,1..m] of integer;
var
a:^din;
i,j,k,l,max:integer;
begin
clrscr;
randomize;
for i:= 1 to n do
begin
for j:= 1 to m do
begin
a^[i,j]:=random(10);
write(a^[i,j]:2);
end;
writeln;
end;
k:=0;
for i:= 1 to n do
begin
for j:= 1 to m do
if a^[i,j]<>0 then
inc(k);
if k=m then
inc(l);
k:=0;
end;
write('Количество строк не содержащих ни одного нулевого элемента: ',l);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.01.2014, 22:47
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Найти в матрице количество строк, которые не содержат нулей (исправить ошибки) (Pascal ABC):

Найти в матрице количество строк, которые не содержат нулей - Pascal ABC
Найти в матрице количество строк, которые не содержат нулей var i,j,k,l,m,n,d:integer; a:array of integer; b,c:array of...

Найти количество симметричных строк, которые не содержат цифр - Pascal
Условие: Дан массив строк. Найти количество симметричных строк, которые не содержат цифр. Мое решение: var s:Tar; i:Tind;...

В матрице посчитать количество строк, не содержащих нулей - Pascal ABC
Два задания , находятся в фото ю Нужна помощь , у самого руки кривые =(

последовательная перестановка строк и столбиков в матрице (Исправить ошибки) - Pascal
Дана квадратная матрица В. Получить новую матрицу, в которой последовательной перестановкой строк и столбиков наибольший элемент...

Найти Количество нулей и едениц в матрице - Pascal ABC
Способ матрицы 4.Зада двумерный массив целых чисел А размером N на M, состоящий из нулей и едениц. Найти Количество нулей и едениц в этом...

Дана матрица A(7,3). Определить количество строк, которые содержат нулевые елементы, их номера - Pascal
Помогите пожалуйста с задачей, компилятор ошибок не выдает, но программа не работает, очень срочно Program Matr2m; uses crt; const...

3
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
24794 / 16468 / 5076
Регистрация: 22.10.2011
Сообщений: 29,089
Записей в блоге: 5
08.01.2014, 22:52 #2
Может, все-таки, задачу озвучишь?
0
ExPlAnEd
0 / 0 / 0
Регистрация: 27.11.2013
Сообщений: 28
08.01.2014, 22:56  [ТС] #3
Найти в матрице количество строк, которые не содержат нулей.
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
24794 / 16468 / 5076
Регистрация: 22.10.2011
Сообщений: 29,089
Записей в блоге: 5
09.01.2014, 00:03 #4
Pascal
11
12
13
14
  clrscr;
  randomize;
  new(a); { <--- Вот эту строку добавь }
  for i := 1 to n do
, потому что перед использованием динамической переменной надо выделить под нее память...
1
09.01.2014, 00:03
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.01.2014, 00:03
Привет! Вот еще темы с ответами:

Найти количество слов, которые содержат сочетание ‘ом’ - Pascal ABC
не могу додумать как найти слова, вот прога которая ищет все сочетания 'ом' но она неправильная program qq; var s: string; ...

Найти количество ячеек, которые содержат число 5 - Pascal ABC
10. Дан одномерный массив целых чисел, состоящий из 20 ячеек, заполненный случайными числами из промежутка . Найти количество ячеек,...

Найти номер строки в матрице, которая содержит наибольшее количество нулей - Pascal
Дан массив x(n,m) .найти номер строки ,которая содержит наибольшее количество нулей Если можно,то с блок-схемой)

Найти количество слов, которые содержат хотя бы одну букву «А» - Pascal ABC
Дана строка, состоящая из русских слов, набранных заглавными буквами и разделенных пробелами (одним или несколькими). Найти количество...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.