|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.10.2007, 18:44 | #1 |
Пользователь
Регистрация: 27.10.2007
Сообщений: 42
|
Паскаль
Код:
program Project2; const N=10; {размерность} var x,y:array[1..10]of integer; {массив Х У} sum:real; {среднее Y} i:integer; k:integer; begin {создание массивов} Randomize; Writeln('X: Y:'); for i:=1 to N do begin x[i]:=Random(10)-Random(10); y[i]:=Random(10)-Random(10); Writeln(x[i],' ',y[i]); {поиск кол-ва точек из Первой четверти} if (x[i]>0)and(y[i]>0) then inc(k); {сумма ординат} sum:=sum+y[i]; end; Writeln('Kol-vo = ',k); // вывод числа точер 1-й четверти Writeln('sred arifm = ',(sum/n):2:2); // ср. арифметическое ординат Readln; end. А можно записать этот код без Процедуры????? |
29.10.2007, 18:51 | #2 | |
Форумчанин
Регистрация: 24.06.2007
Сообщений: 351
|
Цитата:
Я не маюсь бездельем, я от него тащусь!
|
|
29.10.2007, 18:51 | #3 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
Я так чувствую следущим вопросом будет - записать все одной строкой
Где вы здесь нашли процедуру? p.s.: убедительная просьба: оформляйте код с использованием кнопочки CODE.
Life is too short, play more...
Как правильно задавать вопросы |
29.10.2007, 19:11 | #4 |
Пользователь
Регистрация: 27.10.2007
Сообщений: 42
|
Randomize;
x[i]:=Random(10)-Random(10); y[i]:=Random(10)-Random(10); Я имею введу как можно подругому ограничить точки??? |
29.10.2007, 19:16 | #5 |
Форумчанин
Регистрация: 24.06.2007
Сообщений: 351
|
Честно сказать недоперепонял...
Диапазон что-ли сменить или по другому числа ввести-? Я не маюсь бездельем, я от него тащусь!
|
29.10.2007, 19:22 | #6 |
Пользователь
Регистрация: 27.10.2007
Сообщений: 42
|
Сменить диапазон!!!!!
|
29.10.2007, 19:28 | #7 |
Форумчанин
Регистрация: 24.06.2007
Сообщений: 351
|
x[i]:=Random(n)-Random(n);
y[i]:=Random(n)-Random(n); где n-любое число большее нуля К примеру: x[i]:=Random(1000); y[i]:=Random(1000); Выбирает случайным образом от 0 до 999 включительно(только положительные! Вот еще x[i]:=-Random(100); y[i]:=-Random(100); Выбирает от 0 до 99 включительно Только отрицательные! Я не маюсь бездельем, я от него тащусь!
|
29.10.2007, 19:34 | #8 |
Пользователь
Регистрация: 27.10.2007
Сообщений: 42
|
Ага всё понял! Спасибо!
|
29.10.2007, 19:38 | #9 |
Форумчанин
Регистрация: 24.06.2007
Сообщений: 351
|
Да незачто
Я не маюсь бездельем, я от него тащусь!
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Паскаль... Need Help | Chih | Помощь студентам | 4 | 30.05.2008 16:37 |
Паскаль. | LLIypLLIyH | Помощь студентам | 2 | 30.05.2008 08:51 |
Паскаль | Jondeer | Помощь студентам | 5 | 01.11.2007 16:56 |
Паскаль | Jondeer | Помощь студентам | 4 | 27.10.2007 18:54 |