Написать программу создания типизированного файла целых чисел

@NagatoUki · Регистрация: 27.07.2016

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

Необходимо написать программу создания типизированного файла с целыми числами. Количество чисел 100. Числа генерируются случайным образом в интервале от -100 до +100.

Ребят, плз, помогите с написанием) Заранее спасибо

@ZX Spectrum-128 · 27.07.2016, 09:45

Pascal

var
  i: integer;
  f: file of integer;
 
begin
  randomize;
  assign(f, 'data.dat');
  rewrite(f);
  for i := 1 to 100 do 
    write(f, random(200) - 100);
  close(f);
end.

@Sergio Leone · 27.07.2016, 10:45

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

в интервале от -100 до +100.

корректнее всё же будет:

Pascal

1	write(f, random(201) - 100);

@NagatoUki · 27.07.2016, 11:22 **[ТС]**

Огромное спасибо!

@Puporev · 27.07.2016, 12:04

Сообщение от Sergio Leone

корректнее всё же будет:

Pascal

1	write(f, -100+random(201) );

Некоторые компиляторы бракуют запись наоборот.

@Sergio Leone · 27.07.2016, 12:24

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

Некоторые компиляторы бракуют запись наоборот.

ага. точно так. я и забыл про прикол с TP.

@bormant · 27.07.2016, 17:01

Сообщение от Sergio Leone

забыл про прикол с TP

У него другой прикол, он для случая, когда f -- типизированный файл, в Write(f,нечто) в качестве "нечто" требует только переменную соответствующего типа, но не выражение. Поэтому, если нужно писать совместимо с TP, то

Pascal

var
  i, t: Integer;
  f: file of Integer;
begin
  Randomize;
  Assign(f,'data.dat'); Rewrite(f);
  for i:=1 to 100 do begin
    t:=-100+Random(201); Write(f,t);
  end;
  Close(f);
end.

Написать программу создания типизированного файла целых чисел

Решение

Решение

@NagatoUki 0 / 0 / 0 Регистрация: 27.07.2016 Сообщений: 4
		1
	Написать программу создания типизированного файла целых чисел 27.07.2016, 09:33. Показов 3818. Ответов 6 Метки нет (Все метки) Необходимо написать программу создания типизированного файла с целыми числами. Количество чисел 100. Числа генерируются случайным образом в интервале от -100 до +100. Ребят, плз, помогите с написанием) Заранее спасибо 0

@NagatoUki 0 / 0 / 0 Регистрация: 27.07.2016 Сообщений: 4
	27.07.2016, 11:22 [ТС]	4
	Огромное спасибо! 0

@Sergio Leone 2509 / 1130 / 582 Регистрация: 07.06.2014 Сообщений: 3,286
	27.07.2016, 12:24	6
	Сообщение от Puporev Некоторые компиляторы бракуют запись наоборот. ага. точно так. я и забыл про прикол с TP. 0

	27.07.2016, 17:01

Опции темы