Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Pascal
Перезагрузить страницу Помогите решить задачу
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Гринч
Guest
 
Сообщений: n/a
По умолчанию Помогите решить задачу - 17.03.2009, 21:03

Помоги пожалуйсто с решением задач на Паскале...

3. Дан двумерный массив A[10*15] . Определить, есть ли в данном массиве строка, в которой ровно 2 отрицательных элементов. Вывести номер строки на экран.
4. В матрице A[12*12] в каждом третьем столбце найти максимальное число, записать в результирующий массив.

и если можно, блок схемы тоже..........
заранее спасибо..........
Ответить с цитированием
  (#2 (permalink)) Старый
Vladimir_S Vladimir_S вне форума
Member
 
Сообщений: 423
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
По умолчанию 17.03.2009, 21:53

Цитата:
Сообщение от Гринч Посмотреть сообщение
Помоги пожалуйсто с решением задач на Паскале...

3. Дан двумерный массив A[10*15] . Определить, есть ли в данном массиве строка, в которой ровно 2 отрицательных элементов. Вывести номер строки на экран.
4. В матрице A[12*12] в каждом третьем столбце найти максимальное число, записать в результирующий массив.

и если можно, блок схемы тоже..........
заранее спасибо..........
VAR
A:ARRAY[1..10,1..15] of REAL;
i,j,p,Q:INTEGER;
BEGIN
FOR i:=1 TO 10 DO
FOR j:=1 TO 15 DO
BEGIN
Write('A[',i:2,',',j:2,'] = ');
RealLn(A[i,j]);
END;
Q:=0;
FOR i:=1 TO 10 DO
BEGIN
p:=0;
FOR j:=1 TO 15 DO
IF A[i,j]<0 THEN p:=p+1;
IF p=2 THEN
BEGIN
Write(i:3);
Q:=Q+1;
END;
END;
WriteLn;
IF Q=0 THEN WriteLn('Array contains no strings with 2 negative elements');
ReadLn;
END.

VAR
A:ARRAY[1..12,1..12] of INTEGER;
B:ARRAY[1..4] of INTEGER;
i,j,MAX:INTEGER;
BEGIN
FOR i:=1 TO 12 DO
FOR j:=1 TO 12 DO
BEGIN
Write('A[',i:2,',',j:2,'] = ');
RealLn(A[i,j]);
END;
FOR j:=1 TO 4 DO
BEGIN
MAX:=-32000;
FOR i:=1 TO 12 DO
IF A[i,3*j]>MAX THEN MAX:=A[i,3*j];
B[j]:=MAX;
END;
FOR j:=1 TO 4 DO
Write(B[j]:7);
WriteLn;
ReadLn;
END.

А насчет блок-схем - извините, помочь не могу: никогда вычерченными по стандарту блок-схемами не пользовался и даже не учился их чертить.

Последний раз редактировалось Vladimir_S; 17.03.2009 в 23:13 Причина: Благодаря Маше, найдена и исправлена ошибка в первой программе
Ответить с цитированием
  (#3 (permalink)) Старый
ummasha ummasha вне форума
Member
 
Аватар для ummasha
 
Сообщений: 288
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 24.12.2008
Адрес: Брянск - город партизанской славы
По умолчанию 17.03.2009, 22:25

Пара вопросов насчет первой задачи:
VAR
A:ARRAY[1..5,1..6] of REAL;
i,j,p,Q:INTEGER;
BEGIN
FOR i:=1 TO 5 DO
BEGIN
FOR j:=1 TO 6 DO
BEGIN
Write('A[',i:2,',',j:2,'] = ');
ReadLn(A[i,j]);
END;
END;
Q:=0;
FOR i:=1 TO 5 DO
BEGIN
p:=0;
FOR j:=1 TO 6 DO
IF A[i,j]<0 THEN p:=p+1;
IF p=2 THEN
BEGIN
Write(i);
Q:=Q+1;
END;
WriteLn;
IF Q=0 THEN
WriteLn('Array contains no strings with 2 negative elements');

END;
END.
Я добавила это, иначе программа выводила A[ 1, 1] = A[ 1, 2] = A[ 1, 3] = A[ 1, 4] = A[ 1, 5] ...
И что-то не ладится с этим. Т.е. если 2 отрицательных элемента находатся в первой строке, то все нормально: программа выдает 1. Но если во второй строке -
Array contains no strings with 2 negative elements
2

В третьей строке -
Array contains no strings with 2 negative elements

Array contains no strings with 2 negative elements
3
Ответить с цитированием
  (#4 (permalink)) Старый
Vladimir_S Vladimir_S вне форума
Member
 
Сообщений: 423
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
По умолчанию 17.03.2009, 22:44

Маша, спасибо за замечания. Вот классический пример того, как ПОСТУПАТЬ НЕ НУЖНО, а именно, желая помочь ближнему, и в то же время воспринимая задачу, как шаблонную, рутинную и нудную, наспех, не проверив, выкладывать решение.
Теперь по сути. Вы правы, в первой поправке ВНУТРЕННИЙ цикл нужно обязательно взять в операторные скобки (begin, end) внешний - тоже можно, но не обязательно. А вот вторая ошибка, извините, Ваша - Вы зачем-то предпоследний END; переместили в другое место.
Ответить с цитированием
  (#5 (permalink)) Старый
Vladimir_S Vladimir_S вне форума
Member
 
Сообщений: 423
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
По умолчанию 17.03.2009, 22:52

Исправил текст первой программы. Еще раз спасибо, Маша.
Ответить с цитированием
Ads.
  (#6 (permalink)) Старый
ummasha ummasha вне форума
Member
 
Аватар для ummasha
 
Сообщений: 288
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 24.12.2008
Адрес: Брянск - город партизанской славы
По умолчанию 17.03.2009, 22:54

Но Паскаль пишет, что после последнего END ожидалась точка с запятой, а не точка. Или я что-то путаю?
Ответить с цитированием
  (#7 (permalink)) Старый
Vladimir_S Vladimir_S вне форума
Member
 
Сообщений: 423
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
По умолчанию 17.03.2009, 22:59

Цитата:
Сообщение от ummasha Посмотреть сообщение
Но Паскаль пишет, что после последнего END ожидалась точка с запятой, а не точка. Или я что-то путаю?
Нет, положительно сегодня меня надо пристрелить. Из гуманности. Короче говоря, еще один END пропустил. Над 4-й снизу строкой. Исправил.

Да, и в начале второй программы тоже пропущенные begin end вставил.

Последний раз редактировалось Vladimir_S; 17.03.2009 в 23:06
Ответить с цитированием
  (#8 (permalink)) Старый
ummasha ummasha вне форума
Member
 
Аватар для ummasha
 
Сообщений: 288
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 24.12.2008
Адрес: Брянск - город партизанской славы
По умолчанию 17.03.2009, 23:03

Vladimir_S, теперь программа работает
Ответить с цитированием
  (#9 (permalink)) Старый
Vladimir_S Vladimir_S вне форума
Member
 
Сообщений: 423
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
По умолчанию 17.03.2009, 23:09

Цитата:
Сообщение от ummasha Посмотреть сообщение
Vladimir_S, теперь программа работает
Уф! :D
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите решить задачу!!! Leha148 Вопросы начинающих программистов 4 19.10.2011 19:10
помогите решить задачу) migraine Вопросы начинающих программистов 0 17.10.2011 23:00
Помогите решить задачу!!!! Sasha_16 Prolog 0 27.05.2011 19:12
Помогите решить задачу Алексей 7 Pascal 1 24.05.2011 03:24
помогите решить задачу Эмон Prolog 5 17.05.2011 23:57
Помогите решить задачу Dimon278 Pascal 2 19.10.2009 11:38
Помогите решить задачу. kraykovkina Prolog 10 24.09.2009 14:53
Помогите решить задачу... NEON3535 Pascal 1 20.09.2009 14:57
SOS помогите решить задачу TDG Pascal 1 19.09.2009 15:27
Помогите решить задачу..... Juced Задания за деньги 7 04.02.2009 13:23
Помогите решить задачу Kurdt Pascal 3 19.11.2006 22:19
Помогите решить задачу на С++ &lt;SpEctAtOr&gt; Вопросы начинающих программистов 0 09.03.2004 22:10



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов