VPF::Изменение знака у цифр, на противоложный

Vish

Дата 18.6.2009, 17:27 (ссылка)

(голосов:1)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 18.6.2009

Репутация: нет
Всего: нет

Вывод 7-ми рандомных чисел от -100 до 100:

Код


program qq;
Uses Crt;
var
a:array[1..7] of integer;
i,k : integer;
begin
  Randomize;
For i := i to 7 do
  begin
  a[i] := Random (200)-100;
  writeln(a[i]:6);
  readln;
  end;
  end.

Как изменить этот кусок кода, чтобы первые K элементов заменились на противоположные по знаку?

Число К, нужно ввести с клавиатуры...

Vish

Дата 18.6.2009, 20:48 (ссылка)

(голосов:1)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 18.6.2009

Репутация: нет
Всего: нет

Сам допёр как это сделать, выкладываю код, мб таким же студентам пропустившим пару пригодится:

Код


program qq;
uses Crt;
var a:array[1..7] of integer;
i,k:integer;
begin
writeln('Vvedite K');
readln(k);
for i:=1 to 7 do begin
a[i]:= random(200)-100;
writeln(a[i]);
end;
readln;
for i:=1 to k do a[i]:= -a[i];
for i:=1 to 7 do writeln(a[i]);
readln;
end.

Keeper89

Дата 18.6.2009, 21:06 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: нет
Всего: 58

Цитата(Vish @ 18.6.2009, 18:27

)

Вывод 7-ми рандомных чисел от -100 до 100:

Тогда уж не

Код


a[i] := random(200)-100;

Код


a[i] := random(201)-100;

И где randomize во второй программе?

Это сообщение отредактировал(а) Keeper89 - 18.6.2009, 21:08

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Vish

Дата 19.6.2009, 17:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 18.6.2009

Репутация: нет
Всего: нет

Код


a[i] := random(201)-100;

хм, типо если

Код


a[i] := random(200)-100;

будет от -99 до 100 ?

Цитата(Keeper89 @ 18.6.2009, 19:06

)

И где randomize во второй программе?

хех, добавить забыл, но на самом деле всё и без него работает))

Keeper89

Дата 19.6.2009, 19:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: нет
Всего: 58

Цитата(Vish @ 19.6.2009, 18:40

)

будет от -99 до 100 ?

Цитата(Vish @ 19.6.2009, 18:40

)

хех, добавить забыл, но на самом деле всё и без него работает))

Читайте справку перед использованием, тогда не будет таких непонятных вопросов. Процедура Randomize - инициализирует генератор чисел (иначе будут одни и те же постоянно). Функция Random (N) выдает целочисленные значения в диапазоне от 0 до N-1.

Это сообщение отредактировал(а) Keeper89 - 19.6.2009, 23:25

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »