Записать в файл N действительных чисел. Найти разность первого и псоледнего компонентов файла

@Аника · Регистрация: 22.12.2012

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

Записать в файл N действительных чисел. Найти разность первого и псоледнего компонентов файла.
(дейстивительные числа из генератора случайных чисел).

@Puporev · 26.01.2013, 17:45

Pascal

uses crt;
var f:file of real;
    a,b:real;
    n,i:integer;
begin
clrscr;
randomize;
assign(f,'fail');
rewrite(f);
writeln('Сколько чисел записаьб в файл n=');
readln(n);
for i:=1 to n do
 begin
  a:=20*random;
  write(f,a);
 end;
writeln('Содержание файла:');
seek(f,0);
while not eof(f) do
 begin
  read(f,a);
  write(a:0:2,' ');
 end;
writeln;
seek(f,0);
read(f,a);
seek(f,filesize(f)-1);
read(f,b);
write('Разность первого и последнего компонентов файла=',a-b:0:2);
close(f);
readln
end.

@Аника · 27.01.2013, 21:09 **[ТС]**

А упрощенный вариант есть (в частности без seek (мы такое не проходили) и while not eof(f) do)?

Добавлено через 11 минут
И random мы по-другому записываем. Например,
t[i]:=random(150)-100.(т.е. границы генератора (150;-100))

Kodzaev · 28.01.2013, 01:10

Сообщение от Аника

в частности без seek (мы такое не проходили)

А что вы проходили?

Сообщение от Аника

И random мы по-другому записываем. Например,
t[i]:=random(150)-100.(т.е. границы генератора (150;-100))

Это для целых чисел. А для действительных нужно делать так, как сделал Puporev

@Аника · 06.02.2013, 15:27 **[ТС]**

Поясните,пожалуйста, 22 и 29 строчки (что программа будет делать?). Не поняла как это а:0:2 и а-b:0:2. Что делает оператор seek? Что программа делает на 14 строчке (я правильно поняла, что-то с генератором случайных чисел?).

@Puporev · 06.02.2013, 16:15

Сообщение от Аника

22 и 29 строчки (что программа будет делать?).

Выводит на экран элементы файла и разность с двумя знаками после запятой.

@Аника · 06.02.2013, 22:34 **[ТС]**

Спасибо огромное. Последний вопрос: как сделать чтобы генератор только целые числа выдавал?

@Puporev · 07.02.2013, 08:14

А зачем Вам только целые? Ведь в условии написано

Сообщение от Аника

Записать в файл N действительных чисел.

А в действительные входят и вещественные числа.
Сгенерировавать только целые так

Pascal

1	a:=random(20);

Вывод в целом виде

Pascal

1	write(a:0:0,' ');

не понимаю для чего это нужно, очередные дамские заскоки..

@Аника · 08.02.2013, 16:15 **[ТС]**

Ещё раз спасибо. Но это не дамский заскок, а заскок учителя.

@Аника 1 / 1 / 0 Регистрация: 22.12.2012 Сообщений: 160
		1
	Записать в файл N действительных чисел. Найти разность первого и псоледнего компонентов файла 26.01.2013, 17:22. Показов 6520. Ответов 8 Метки нет (Все метки) Записать в файл N действительных чисел. Найти разность первого и псоледнего компонентов файла. (дейстивительные числа из генератора случайных чисел). 0

@Аника 1 / 1 / 0 Регистрация: 22.12.2012 Сообщений: 160
	27.01.2013, 21:09 [ТС]	3
	А упрощенный вариант есть (в частности без seek (мы такое не проходили) и while not eof(f) do)? Добавлено через 11 минут И random мы по-другому записываем. Например, t[i]:=random(150)-100.(т.е. границы генератора (150;-100)) 0

Kodzaev 3030 / 1916 / 1649 Регистрация: 30.04.2011 Сообщений: 3,060
	28.01.2013, 01:10	4
	Сообщение от Аника в частности без seek (мы такое не проходили) А что вы проходили? Сообщение от Аника И random мы по-другому записываем. Например, t[i]:=random(150)-100.(т.е. границы генератора (150;-100)) Это для целых чисел. А для действительных нужно делать так, как сделал Puporev 0

@Аника 1 / 1 / 0 Регистрация: 22.12.2012 Сообщений: 160
	06.02.2013, 15:27 [ТС]	5
	Поясните,пожалуйста, 22 и 29 строчки (что программа будет делать?). Не поняла как это а:0:2 и а-b:0:2. Что делает оператор seek? Что программа делает на 14 строчке (я правильно поняла, что-то с генератором случайных чисел?). 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	06.02.2013, 16:15	6
	Сообщение от Аника 22 и 29 строчки (что программа будет делать?). Выводит на экран элементы файла и разность с двумя знаками после запятой. 1

@Аника 1 / 1 / 0 Регистрация: 22.12.2012 Сообщений: 160
	06.02.2013, 22:34 [ТС]	7
	Спасибо огромное. Последний вопрос: как сделать чтобы генератор только целые числа выдавал? 0

@Аника 1 / 1 / 0 Регистрация: 22.12.2012 Сообщений: 160
	08.02.2013, 16:15 [ТС]	9
	Ещё раз спасибо. Но это не дамский заскок, а заскок учителя. 0

Опции темы