Создать типизированный файл из К случайных действительных чисел из диапазона от 0 до 100

@Sioux · Регистрация: 17.11.2014

Author24 — интернет-сервис помощи студентам

Дано: натуральное число К.
Требуется: создать типизированный файл из К случайных действительных чисел из диапазона от 0 до 100 а затем вывести на экран все его элементы и отдельно первый и последний элементы этого файла.

@Joy · 18.11.2014, 09:39

Pascal

var
  rf:file of real;
  i,ik:integer;
  r:real;
begin
  write('k=');
  readln(ik);
  randomize;
  assign(rf,'tst.tst');
  reset(rf);
  for i:=1 to ik do write(rf,random*101);
  seek(rf,0);
  writeln('Содержимое файла:');
  for i:=1 to ik do begin
    read(rf,r);
    writeln(r);
  end;  
  seek(rf,0);
  read(rf,r);
  writeln('Первый элемент ',r);
  seek(rf,ik-1);
  read(rf,r);
  writeln('Последний элемент ',r);
  close(rf);
end.

@Puporev · 18.11.2014, 09:46

Pascal

1	random*101

Это будет до 101 (0..1)*101=(0..101)

@Sergio Leone · 18.11.2014, 10:11

позволю себе небольшую ремарку.

Сообщение от Puporev

Это будет до 101 (0..1)*101=(0..101)

это не совсем так.
Random без параметра возвращает вещественное число в диапазоне от нуля до 1 (ноль включается, 1 - не включается)

Функция: Возвращает случайное число.
Описание: Random(диапазон : word)
Тип результата: Совпадает с типом параметра.
Примечания: Если параметр "диапазон" не задан, то ре-
зультатом будет вещественное число x в диапазоне 0 <= х < 1.

или

Description

Random returns a random number larger or equal to 0 and strictly less than L. If the argument L is omitted, a Real number between 0 and 1 is returned (0 included, 1 excluded).

но, тем не менее, замечание абсолютно справедливо - число random*101 получается не 101, но 100.99(9)
что всё равно больше, чем задано в условиях задачи.

@Puporev · 18.11.2014, 10:22

Надо было написать
[0..1)*101=[0..101)

@Joy · 18.11.2014, 14:29

Puporev, Sergio Leone, спасибо.
Sioux, строку 11 замените на

Pascal

1	for i:=1 to ik do begin r:=random*101;if r>100 then r:=r-1;write(rf,r);end;

или, если число 100 не включается, то на

Pascal

1	for i:=1 to ik do write(rf,random*100);

@Sioux 0 / 0 / 0 Регистрация: 17.11.2014 Сообщений: 7
		1
	Создать типизированный файл из К случайных действительных чисел из диапазона от 0 до 100 17.11.2014, 20:48. Показов 3582. Ответов 5 Метки нет (Все метки) Дано: натуральное число К. Требуется: создать типизированный файл из К случайных действительных чисел из диапазона от 0 до 100 а затем вывести на экран все его элементы и отдельно первый и последний элементы этого файла. 0

@Sergio Leone 2509 / 1130 / 582 Регистрация: 07.06.2014 Сообщений: 3,286
	18.11.2014, 10:11	4
	позволю себе небольшую ремарку. Сообщение от Puporev Это будет до 101 (0..1)101=(0..101) это не совсем так. Random без параметра возвращает вещественное число в диапазоне от нуля до 1 (ноль включается, 1 - не включается) Функция: Возвращает случайное число. Описание: Random(диапазон : word) Тип результата: Совпадает с типом параметра. Примечания: Если параметр "диапазон" не задан, то ре- зультатом будет вещественное число x в диапазоне 0 <= х < 1. или Description Random returns a random number larger or equal to 0 and strictly less than L. If the argument L is omitted, a Real number between 0 and 1 is returned (0 included, 1 excluded). но, тем не менее, замечание абсолютно справедливо - число random101 получается не 101, но 100.99(9) что всё равно больше, чем задано в условиях задачи. 2

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	18.11.2014, 10:22	5
	Надо было написать [0..1)*101=[0..101) 1

	18.11.2014, 14:29

Опции темы

Создать типизированный файл из К случайных действительных чисел из диапазона от 0 до 100

Решение