Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Найти приближённое значение корней https://www.cyberforum.ru/ pascalabc/ thread572697.html
Прошу помочь с решением следующей задачи: 1. Найти приближённое значение корня уравнения tg(0,5x+0,2)=x^2 методом деления пополам 2. Найти приближённое значение корня уравнения x^3+x-5=0, методом...
Определить число, полученное записыванием в обратном порядке цифр заданного трехзначного числа Pascal ABC
Помогите пожалуйста, очень нужно, заранее благодарю! Операции DIV и MOD 6. Определить число, полученное записыванием в обратном порядке цифр заданного трехзначного числа.
Pascal ABC Определить, есть ли среди цифр заданного трехзначного числа нули Помогите пожалуйста, очень нужно, заранее благодарю! Операции DIV и MOD 10. Определить, есть ли среди цифр заданного трехзначного числа нули. https://www.cyberforum.ru/ pascalabc/ thread572508.html Pascal ABC Вычислить площадь прямоугольника по введенным в диалоге двум сторонам Помогите пожалуйста, очень нужно, заранее благодарю! Линейные алгоритмы 2. Составить программу вычисления площади прямоугольника по введенным в диалоге двум сторонам. https://www.cyberforum.ru/ pascalabc/ thread572502.html
Pascal ABC Не работает часть программного кода. Не знаю как исправить его
procedure AddUserInGroup; var nik,imya:string; begin countUser:=0; assign(fu,'D:\Laba\fNU.dat'); reset(fu); writeln('В-те ник юзера'); readln(nik); inc(countUser);
Pascal ABC Вычислить среднее арифметическое и среднее геометрическое двух чисел Помогите пожалуйста, очень нужно, заранее благодарю! Линейные алгоритмы 4. Вычислить и вывести среднее арифметическое двух вводимых чисел. 5. Вычислить и вывести среднее геометрическое двух... https://www.cyberforum.ru/ pascalabc/ thread572492.html
Pascal ABC Вычислить длину окружности и площадь круга по указанному в диалоге радиусу Помогите пожалуйста, очень нужно, заранее благодарю! Линейные алгоритмы 3. Составить программу вычисления длины окружности и площади круга по указанному в диалоге радиусу https://www.cyberforum.ru/ pascalabc/ thread572476.html Вычислить площадь трапеции по введенным в диалоге двум сторонам Pascal ABC
Помогите пожалуйста, очень нужно, заранее благодарю! Линейные алгоритмы 1. Составить программу вычисления площади трапеции по введенным в диалоге двум сторонам.
Pascal ABC Найти сумму целых положительных чисел, кратных 4 и меньших 100 https://www.cyberforum.ru/ pascalabc/ thread572465.html
Помогите пожалуйста, очень нужно, заранее благодарю! Операции DIV и MOD 8. Найти сумму целых положительных чисел, кратных 4 и меньших 100.
Pascal ABC Найти сумму целых положительных чисел, больших 20, меньших 100 и кратных 3 https://www.cyberforum.ru/ pascalabc/ thread572447.html
Помогите пожалуйста, очень нужно, заранее благодарю! Операции DIV и MOD 9. Найти сумму целых положительных чисел, больших 20, меньших 100 и кратных 3.
Выяснить, имеет ли квадратное уравнение действительные корни Pascal ABC
Помогите пожалуйста, очень нужно, заранее благодарю! Условный оператор. 11. Даны действительные числа a, b, c (a не равно 0). Выяснить, имеет ли квадратное уравнение действительные корни. Если...
Pascal ABC Найти максимальное число из трёх https://www.cyberforum.ru/ pascalabc/ thread572439.html
Помогите пожалуйста, очень нужно, заранее благодарю! Условный оператор. 12. Найти максимальное число из трёх.
Почетный модератор
7963 / 3934 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
13.05.2012, 12:03 0

Найти количество нулей и единиц в массиве - Pascal ABC - Ответ 3024038

13.05.2012, 12:03. Показов 2848. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
uses crt;
const nmax=20;
type matr=array [1..nmax,1..nmax] of byte;
var a: matr; n,m: byte; kol: integer;
 
procedure GenM (var ri,rj: byte; var z: matr);
var i,j: byte;
begin
repeat
write('Коливество строк, не более ',nmax,', n='); readln(ri);
until ri in [1..nmax];
repeat
write('Коливество столбцов, не более ',nmax,', n='); readln(rj);
until rj in [1..nmax];
for i:=1 to ri do
    for j:=1 to rj do
        z[i,j]:=random(2);
end;
 
procedure PrintM (ri,rj: byte; z: matr);
var i,j: byte;
begin
for i:=1 to ri do
    begin
    for j:=1 to rj do
        write(z[i,j]:2);
    writeln;
    end;
end;
 
procedure Count (ri,rj: byte; z: matr; c: byte; var k: integer);
var i,j: byte;
begin
k:=0;
for i:=1 to ri do
    for j:=1 to rj do
        if z[i,j]=c then inc(k);
end;
 
begin
GenM (n,m,a);
PrintM (n,m,a);
Count (n,m,a,0,kol);
writeln('Количество нулей: ',kol);
Count (n,m,a,1,kol);
writeln('Количество единиц: ',kol);
end.


Вернуться к обсуждению:
Найти количество нулей и единиц в массиве Pascal ABC
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.05.2012, 12:03
Готовые ответы и решения:

В массиве В(п) найти количество нулей и единиц
Задача на одномерный массив: В массиве В(п) найти количество нулей и единиц.

Посчитать количество нулей и единиц в массиве
Прошу помочь доработать код private void button1_Click(object sender, EventArgs e) { ...

В строке, состоящей из групп нулей и единиц, подсчитать количество единиц в группах с нечетным количеством
В строке состоящей из групп нулей и единиц ,подсчитать количество единиц в группах с нечетным...

Сформировать матрицу, состоящую из нулей и единиц, причем количество единиц строго равно количеству строк
Сформировать матрицу, состоящую из нулей и единиц, причем количество единиц строго равно количеству...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.05.2012, 12:03

Дана строка, состоящая из групп нулей и единиц. Подсчитать количество единиц в группах с нечетным количеством
Дана строка, состоящая из групп нулей и единиц. Подсчитать количество единиц в группах с нечетным...

В строке, состоящей из групп нулей и единиц, подсчитать количество единиц в группах с нечетным количеством символов
Я сделал эту задач,ну попросили теперь сделать заменить все cout через puts,я попытался но у меня...

В строке, состоящей из групп нулей и единиц, подсчитать количество единиц в группах с нечетным количеством символов.
В строке, состоящей из групп нулей и единиц, подсчитать количество единиц в группах с нечетным...

В зависимости от выбора, найти количество нулей, единиц или двоек в матрице
помогите, пожалуйста, составить программу используя 3 зависимых переключателя, решить: в...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru