IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Сырой массив
сообщение
Сообщение #1


Пилотус
**

Группа: Пользователи
Сообщений: 101
Пол: Женский
Реальное имя: Настасья

Репутация: -  2  +


у меня задача почти сделана только возникают вопросы.

Задача:

Дана матрица размером N на M,вывести количество строк в которых число положительных элементов больше числа отрицательных элементов.

РЕшение:
PROGRAM bolse;
{ўлў®¤ бва®ЄЁ ў Є®в®а®© Ї®«®¦ЁвҐ«м­ле н«Ґ¬Ґ­в®ўЎ®«миҐ зЁб«  ®ваЁж вҐ«м­ле н«Ґ¬Ґ­в®ў}
uses crt;
VAR
A: array [1..100,1..100] of integer;
i,j,n,m,otr,pol,sum : integer;
BEGIN
clrscr;
WriteLn ('Їа®Ја ¬¬  ўлў®¤  бва®ЄЁ ў Є®в®а®© Ї®«®¦ЁвҐ«м­ле н«Ґ¬Ґ­в®ўЎ®«миҐ зЁб«  ®ваЁж вҐ«м­ле н«Ґ¬Ґ­в®ў');
WriteLn ('введите размерность массива i,j');
ReadLn (n,m);
pol:=0;
otr:=0;
sum:=0;
FOR i:=1 to n DO
FOR j:=1 to m do
Begin
WriteLn ('заполните массив');
readLn (A[i,j]);
End;
FOR i:=1 to n DO
BEGIN
FOR j:=1 to m DO
BEGIN
IF A[i,j]>0
Then
pol:=pol+1
Else
otr:=otr+1;
end;
end;
For i:=1 to n do
BEGIN
If pol>otr
then
sum:=sum+1;
end;
WriteLn ('количество строк',sum);
ReadLn
End.




Вопросы:

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


буду спасибо за любые найденые ошибки,и не сложные объяснения. smile.gif

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
spektr   Сырой массив   6.12.2006 0:32
мисс_граффити   1 и 3 твои вопросы: PROGRAM bolse; {ўлў®¤ бва®ЄЁ ў…   6.12.2006 1:29
spektr   Большое спасибо,ну ведь теперь уже лучше чем в пер…   6.12.2006 16:13
мисс_граффити   Большое спасибо,ну ведь теперь уже лучше чем в пе…   7.12.2006 0:45
lapp   2.как сделать так чтобы в блокноте буквы кирилицы…   6.12.2006 16:24
klem4   Зачем лишние переменные ?) If pol > (M - pol) …   7.12.2006 0:52
мисс_граффити   Зачем лишние переменные ?) If pol > (M - pol)…   7.12.2006 1:01
klem4   Ну так - то да ... хотя если считать ноль положите…   7.12.2006 1:07
мисс_граффити   1.как сделать так чтобы ноль не считался ни за по…   7.12.2006 1:22
spektr   а он придрался сказал что нужно ввести каких-то 2 …   9.12.2006 13:38
spektr   задача на двумерный массив сравнивать с этим)))…   9.12.2006 14:06
Lapp   Мисс_Граффити, твой недогляд.. Обнуление счетчиков…   9.12.2006 16:25
spektr   мож не надо, у меня информатика = истерика, :mega_…   9.12.2006 17:10
Lapp   мож не надо, у меня информатика = истерика, :mega…   9.12.2006 17:45
Michael_Rybak   Скачай себе WinMerge и будет тебе удобно сравниват…   9.12.2006 17:14
spektr   что это ???   9.12.2006 17:34
Michael_Rybak   Вот скриншоты. Даешь ему 2 файлика, он красиво по…   9.12.2006 17:37
Гость   uses crt; VAR A: array[1 .. 100, 1 .. 102] of in…   9.12.2006 18:16


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.03.2024 21:03
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name