[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Компьютеры » Программирование » Pascal » Сумма номеров страниц
Сумма номеров страниц
taratorkinayanaДата: Вторник, 12.01.2016, 23:58 | Сообщение # 1
НовичЁк
Группа: Проверенные
Сообщений: 5
Награды: 0
Репутация: 0
Статус: Оффлайн
  • известна сумма номеров страниц определить номер текущей страницы.

Добавлено (12.01.2016, 23:58)
---------------------------------------------
Если не сложно расскажите пожалуйста про формулы используемые для заполнения массива случайными числами.
Имеется ввиду любой массив одномерный или двумерный.

 
АлексейДата: Среда, 13.01.2016, 08:43 | Сообщение # 2
Продвигающийся
Группа: Администраторы
Сообщений: 318
Награды: 4
Репутация: 1
Статус: Оффлайн
taratorkinayana
Цитата taratorkinayana ()
Если не сложно расскажите пожалуйста про формулы используемые для заполнения массива случайными числами.Имеется ввиду любой массив одномерный или двумерный.

Формул никаких нет. Для получения рандомного числа и присвоения его переменной (какой захотим) используется встроенный генератор рамдомных чисел. Ниже пример:
Цитата
randomize; { инициализируем генератор случайных чисел}
n:=15;
writeln('Заполните массив');
for i:=1 to n do begin { цикл обработки массива }
a:=random(1000); { присваиваем случайное число  в диапазоне от 1 до 1000 переменной массива }
if (i=1) then begin min:=a; minindex:=i end { кладем в минимум первый элемент массива }
if (a end { конец цикла }
 http://2014.ucoz.org/forum/13-63-320-16-1451845468 - полный текст примера можете найти в этой теме.
 
taratorkinayanaДата: Среда, 13.01.2016, 16:00 | Сообщение # 3
НовичЁк
Группа: Проверенные
Сообщений: 5
Награды: 0
Репутация: 0
Статус: Оффлайн
Алексей, спасибо, а задачу вы для меня сделаете?
    известна сумма номеров страниц определить номер текущей страницы.

Добавлено (13.01.2016, 15:55)
---------------------------------------------
ау

Добавлено (13.01.2016, 16:00)
---------------------------------------------
Еще вот это нужно сделать? Поможете?

  • дан одномерный массив размерностью n, заполненный случайными числами в интервале от -15 до 20. вывести на экран значения элементов массива, абсолютное значение которых >10.
 
АлексейДата: Среда, 13.01.2016, 16:22 | Сообщение # 4
Продвигающийся
Группа: Администраторы
Сообщений: 318
Награды: 4
Репутация: 1
Статус: Оффлайн
taratorkinayana,
 
Цитата taratorkinayana ()
известна сумма номеров страниц определить номер текущей страницы.
 
Код
program untitled;

uses crt;
var i,sum,test: integer;

BEGIN

write('Введите сумму номеров страниц - ');
readln(sum); { Ввод суммы номеров страниц }

test := 0; { Счетчик количества страниц }
i:=0; { Номер первой страниц, начнем с единицы и так пока не дойдем до последней }

while test < sum do
begin
     i:= i + 1; { Переход на следующую страницу }
    {Так как первая страница у нас судя по переменной имеет номер 0, а такого номера не может быть, то мы сразу переходим к первой страницы книги}
    test := test + i; { Считаем новую сумму страниц и переходим к следующей }
end

if (test = sum) then begin { Делаем проверку на то, что тестовое число соответствует сумме, если не соответствует, то значит сумма страниц была введена с ошибкой и мы должны сообщить об этом пользователю. }
    writeln('Номер текущей страницы - ', i );
end else
    writeln('Сумма страниц, которую вы ввели неправильная. Пожалуйста, проверьте введенные данные и повторите ввод еще раз.');
end

END.
 
АлексейДата: Среда, 13.01.2016, 16:24 | Сообщение # 5
Продвигающийся
Группа: Администраторы
Сообщений: 318
Награды: 4
Репутация: 1
Статус: Оффлайн
taratorkinayana
Цитата taratorkinayana ()
дан одномерный массив размерностью n, заполненный случайными числами в интервале от -15 до 20. вывести на экран значения элементов массива, абсолютное значение которых >10.

Решение данной задачи посмотреть посмотреть вот в этом сообщении (http://2014.ucoz.org/forum/13-63-320-16-1451845468). Там пару строк передать нужно и все, если возникнут трудности пиши.
 
taratorkinayanaДата: Среда, 13.01.2016, 17:33 | Сообщение # 6
НовичЁк
Группа: Проверенные
Сообщений: 5
Награды: 0
Репутация: 0
Статус: Оффлайн
Алексей
Цитата Алексей ()
program untitled;
uses crt;var i,sum,test: integer;
BEGIN
write('Введите сумму номеров страниц - ');
readln(sum); { Ввод суммы номеров страниц }
test := 0; { Счетчик количества страниц }
i:=0;
{ Номер первой страниц, начнем с единицы и так пока не дойдем до последней }
...............

Спасибо работает.

Добавлено (13.01.2016, 17:33)
---------------------------------------------
Алексей, разобралась спасибо.

Цитата Алексей ()
Решение данной задачи посмотреть посмотреть вот в этом сообщении (http://2014.ucoz.org/forum/13-63-320-16-1451845468). Там пару строк передать нужно и все, если возникнут трудности пиши.
 
Форум » Компьютеры » Программирование » Pascal » Сумма номеров страниц
  • Страница 1 из 1
  • 1
Поиск: