Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.10.2007, 18:44   #1
Jondeer
Пользователь
 
Регистрация: 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.
А можно записать этот код без Процедуры?????
Jondeer вне форума Ответить с цитированием
Старый 29.10.2007, 18:51   #2
Tayfun
Форумчанин
 
Аватар для Tayfun
 
Регистрация: 24.06.2007
Сообщений: 351
По умолчанию

Цитата:
А можно записать этот код без Процедуры?????
Извини... Процедуры невижу...
Я не маюсь бездельем, я от него тащусь!
Tayfun вне форума Ответить с цитированием
Старый 29.10.2007, 18:51   #3
Alex21
With best regards
Участник клуба
 
Регистрация: 20.04.2007
Сообщений: 1,448
По умолчанию

Я так чувствую следущим вопросом будет - записать все одной строкой
Где вы здесь нашли процедуру?

p.s.: убедительная просьба: оформляйте код с использованием кнопочки CODE.
Alex21 вне форума Ответить с цитированием
Старый 29.10.2007, 19:11   #4
Jondeer
Пользователь
 
Регистрация: 27.10.2007
Сообщений: 42
По умолчанию

Randomize;
x[i]:=Random(10)-Random(10);
y[i]:=Random(10)-Random(10);
Я имею введу как можно подругому ограничить точки???
Jondeer вне форума Ответить с цитированием
Старый 29.10.2007, 19:16   #5
Tayfun
Форумчанин
 
Аватар для Tayfun
 
Регистрация: 24.06.2007
Сообщений: 351
По умолчанию

Честно сказать недоперепонял...
Диапазон что-ли сменить или по другому числа ввести-?
Я не маюсь бездельем, я от него тащусь!
Tayfun вне форума Ответить с цитированием
Старый 29.10.2007, 19:22   #6
Jondeer
Пользователь
 
Регистрация: 27.10.2007
Сообщений: 42
По умолчанию

Сменить диапазон!!!!!
Jondeer вне форума Ответить с цитированием
Старый 29.10.2007, 19:28   #7
Tayfun
Форумчанин
 
Аватар для Tayfun
 
Регистрация: 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 включительно
Только отрицательные!
Я не маюсь бездельем, я от него тащусь!
Tayfun вне форума Ответить с цитированием
Старый 29.10.2007, 19:34   #8
Jondeer
Пользователь
 
Регистрация: 27.10.2007
Сообщений: 42
По умолчанию

Ага всё понял! Спасибо!
Jondeer вне форума Ответить с цитированием
Старый 29.10.2007, 19:38   #9
Tayfun
Форумчанин
 
Аватар для Tayfun
 
Регистрация: 24.06.2007
Сообщений: 351
По умолчанию

Да незачто
Я не маюсь бездельем, я от него тащусь!
Tayfun вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Паскаль... 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