Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 21.10.2010
Сообщений: 10
1

Программа уже написана, а понять не могу(

21.12.2010, 12:51. Показов 608. Ответов 4
Метки нет (Все метки)

Дан двумерный массив n*m, заполненный случайными числами. Определить, есть ли в данном массиве строка, содержащая больше положительных, чем отрицательных элементов.
Пожалуйста, объясните построчно, что что обозначает, и если можно - сделайте блок-схему. Огромное спасибо заранее.
PROGRAM DINA;
USES CRT;
CONST N=5;M=4;
VAR A:ARRAY[1..M,1..N] OF INTEGER;
C:ARRAY[1..M] OF INTEGER;
P:ARRAY[1..M] OF INTEGER;
I,J,K,L:INTEGER;
BEGIN
FLRSCR;
FOR I:=1 TO M DO BEGIN
FOR J:=1 TO N DO BEGIN
A[I,J]:=RANDOM(9)-2;
WRITE (A[I,J],' ');
END;
WRITELN;
END;
K:=0;
L:=0;
FOR I:=1 TO M DO BEGIN
FOR J:=1 TO N DO
IF A[I,J]<0 THEN K:=K+1;
C[J]:=K;
K:=0;
END;
WRITELN;
FOR I:=1 TO M DO BEGIN
FOR J:=1 TO N DO
IF A[I,J]>0 THEN L:=L+1;
P[J]:=1;
L:=0;
END;
FOR I:=1 TO M DO
WRITE (C[I],' ');
WRITELN;
FOR I:=1 TO M DO
WRITE (P[J],' ');
WRITELN;
WRITELN;
FOR I:=1 TO N DO
IF C[I]<P[I] WRITELN('#STROKI',J);
END.

Добавлено через 16 минут
Ну плиииз)
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.12.2010, 12:51
Ответы с готовыми решениями:

Не могу разобратся с функцией (уже написана)
Задан массив A из 100чисел. Описать функцию для определения максимального из отрицательных чисел...

ПРОГРАММЫ ЦИКЛИЧЕСКОЙ СТРУКТУРЫ (Подскажите, пожалуйста!! не могу уже понять ее...)
Написать программу, которая вводит с клавиатуры последователь- ность из пяти дробных чисел и...

Не могу понять, почему программа работает неправильно( Знаю, что где-то ошибки, но не могу найти
{Ввести последовательность натуральных чисел Aj j=1...n (n&lt;=1000). Упорядочить последовательность...

Программа по паскалю, не могу понять в чем же ошибка
Решила простую задачу по паскалю, однако не все так хорошо, ругается на else var...

4
18 / 18 / 15
Регистрация: 28.10.2010
Сообщений: 111
21.12.2010, 13:06 2
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
USES CRT;
CONST N=5;M=4;// постоянные
VAR A:ARRAY[1..M,1..N] OF INTEGER;// двумерный массив
C:ARRAY[1..M] OF INTEGER;// одномерный массив
P:ARRAY[1..M] OF INTEGER;// одномерный массив
I,J,K,L:INTEGER;// целые числа
BEGIN
СLRSCR;//очистка экрана
FOR I:=1 TO M DO BEGIN//цикл
FOR J:=1 TO N DO BEGIN//цикл
A[I,J]:=RANDOM(9)-2;// заполняем массив случайными числами
WRITE (A[I,J],' '); // выводим на экран
END;
WRITELN;//переход на другую строку
END;
K:=0;//присваивание
L:=0;//присваивание
FOR I:=1 TO M DO BEGIN //цикл
FOR J:=1 TO N DO//цикл
IF A[I,J]<0 THEN K:=K+1;// если число отрицательное , то значение отрицательных чисел увиличиваем на один
C[J]:=K;// заполняем ячейку массива этим числом
K:=0;// обнуляем
L:=0;//обнуляем
FOR I:=1 TO M DO BEGIN//цикл
FOR J:=1 TO N DO//цикл
IF A[I,J]>0 THEN L:=L+1;//если число борльше нуля,то количество положительных чисел увеличиваем на один
P[J]:=1;//тут по логике надо было написать L
L:=0;// обнуляем
END;//конец
FOR I:=1 TO M DO //цикл
WRITE (C[I],' ');//выводим на экран содержимое c[i]
WRITELN;//переход на др строку
FOR I:=1 TO M DO//цикл
WRITE (P[J],' ');//выводим на экран содержимое p[j]
WRITELN;
WRITELN;
FOR I:=1 TO N DO
IF C[I]<P[I] WRITELN('#STROKI',J);// если с<p тогда пишем строки
END.
Надеюсь написал подробно))
1
0 / 0 / 0
Регистрация: 21.10.2010
Сообщений: 10
21.12.2010, 14:15  [ТС] 3
Спасибо огромное) Вы меня выручили!

Добавлено через 54 минуты
А блок-схему проверьте, пожалуйста)
начало
I:=1,M
J:=1,N
A[I,J]=RANDOM(9)-2
Вывод A[I,J]
K:=0
L:=0
A[I,J]<0
K:=K+1
C[J]:=K
K:=0
A[I,J]>0
L:=L+1
P[J]:=L
L:=0
Вывод C[I]
Вывод P[J]
C[I]<P[J]
Вывод "№строки"

Объясните, пожалуйста, как расставить стрелки)

Добавлено через 18 секунд
И ещё конец)
0
18 / 18 / 15
Регистрация: 28.10.2010
Сообщений: 111
21.12.2010, 15:21 4
Kolaps, напиши мыло в личку,я тебе блок-схему пришлю
0
0 / 0 / 0
Регистрация: 21.10.2010
Сообщений: 10
21.12.2010, 15:45  [ТС] 5
Doc1.doc
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.12.2010, 15:45

Программа Дерево решений. Уже написана на Delphi. А мне надо на PascalABC. Что делать с модулями?
program DoP_777; {$APPTYPE CONSOLE} {$R *.res} uses System.SysUtils, Math; Type

Программа для трёх маршрутов. Правильно ли написана программа?
Всем здрасьте! Программа для трёх маршрутов. Кому не сложно подскажите правильно ли я написал?var ...

Программа метода дихотомии для нахождения экстремумов не работает, не могу понять в чем ошибка
program dihotomia; var a0,b0,eps,l,y,z,fy,fz,X:real; begin writeln ('введите a0 ');...

нужно вбить массив в класс Array (Программа уже написана)
помогите пожалуйста. у меня есть програмка,но нужно сделать ее так чтобы создание массива было...


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

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

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