Работа с файлами

@Den4ik0021 · Регистрация: 21.10.2014

1.Построить файл данных, компонентами которого являются вещественные числа. Найти сумму квадратов компонентов файла.

2.Построить типизированный файл данных, который состоит из записей с такими полями: фамилия владельца автомобиля, марка автомобиля, номер автомобиля. Дана фамилия владельца автомобиля, необходимо в файле данных найти марку и номер его автомобиля. Подсчитать, сколько всего автомобилей такой же марки в данном файле.

@Cortex1998 · 23.11.2014, 20:09

В задаче №1 заполнить случайными числами?

Добавлено через 6 минут
Вот вариант со вводом

Pascal

const n=4;
var 
    ar:array[1..n] of real;
    f:text;
    i:integer;
    sum:real;
begin
 assign(f,'A.dat');
 rewrite(f);
 for i:=1 to n do
  begin
    read(ar[i]);
    write(f,ar[i]);
  end;
  sum:=sqr(ar[1]);
 for i:=2 to n do
   begin 
    sum:=sum+sqr(ar[i]);
   end;
  write(f,sum);
  close(f);
end.

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

@Den4ik0021 · 23.11.2014, 20:26 **[ТС]**

Да, там разницы вроде нет вещественные или целые просто не очень понял эту тему

@Cortex1998 · 23.11.2014, 20:32

Не по теме:Это вы где изучаете(школа,универ)?

@Den4ik0021 0 / 0 / 0 Регистрация: 21.10.2014 Сообщений: 13
		1
	Работа с файлами 23.11.2014, 19:54. Показов 659. Ответов 3 Метки нет (Все метки) 1.Построить файл данных, компонентами которого являются вещественные числа. Найти сумму квадратов компонентов файла. 2.Построить типизированный файл данных, который состоит из записей с такими полями: фамилия владельца автомобиля, марка автомобиля, номер автомобиля. Дана фамилия владельца автомобиля, необходимо в файле данных найти марку и номер его автомобиля. Подсчитать, сколько всего автомобилей такой же марки в данном файле. 0

@Den4ik0021 0 / 0 / 0 Регистрация: 21.10.2014 Сообщений: 13
	23.11.2014, 20:26 [ТС]	3
	Да, там разницы вроде нет вещественные или целые просто не очень понял эту тему 0

@Cortex1998 18 / 18 / 11 Регистрация: 05.01.2014 Сообщений: 119 Записей в блоге: 2
	23.11.2014, 20:32	4
	Не по теме:Это вы где изучаете(школа,универ)? 0

Опции темы