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

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

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

 
 Ответить  Открыть новую тему 
> матрица, программа
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 13
Пол: Мужской
Реальное имя: Oleg

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


Создать массив размером 2x10 элементов и заполнить случайными числами. Величина элементов должна быть в границах знака за запятой от -1 до 1 . Вывевсти на экран , сколько положительных, отрицательных чисел и нулей содержит массив.


вывести я то вывел, заминка в дальнейших действиях


Прикрепленные файлы
Прикрепленный файл  UZD3.PAS ( 169 байт ) Кол-во скачиваний: 99
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 13
Пол: Мужской
Реальное имя: Oleg

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


помогите найти ошибку.....пожалуйста....как сделать, чтобы элементы массива были в рамках от -1 до 1


Прикрепленные файлы
Прикрепленный файл  UZD3.PAS ( 509 байт ) Кол-во скачиваний: 79
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






program uzd3;
uses crt;
const n=2;m=10;
var
mas:array[1..n,1..m]of integer;
i,j,max,min,nulle:integer;
begin
randomize;
clrscr;
min:=0;
max:=0;
nulle:=0;
for i:=1 to n do begin
for j:=1 to m do begin { <--- Первая ошибка: почему было до N ? }
mas[i,j]:=random(3)-1; { <-- Интервал: от -1 до 1}
if mas[i,j]>0 then max:=max+1
else
if mas[i,j]<0 then min:=min+1
else nulle:=nulle+1;
write(mas[i,j]:3,'I'); { <--- :3 добавлено, чтобы получалось красивее }
end;
writeln;
end; { <--- Вторая ошибка: это было не здесь, а ниже}
writeln;
writeln('lielaki par 0==>',max);
writeln('mezakie par 0==>',min);
writeln('vienadi ar 0==>',nulle);
end.
Если оставить End там, где он был у тебя, а не там, куда я его перенес, будет печататься число элементов <, >, = нулю для каждой строки, а не для всей матрицы...
 К началу страницы 
+ Ответить 

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

 




- Текстовая версия 20.11.2017 20:32
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"