Определить первый элемент очереди, начиная от ее конца, значение которого наиболее близко к полному квадрату

@ПриветЯНачинающ · Регистрация: 26.11.2016

Дан текстовый файл Inlet.in, содержимое которого представлено действительными чис-лами, которыми следует заполнить очередь элементов вещественного типа.
Определить первый элемент этой очереди, начиная от ее конца, значение которого наи-более близко к полному квадрату целого числа. Полученное число вывести в текстовый
файл Outlet.out.
Спецификация ввода (файл Inlet.in) :
Значения элементов файла (в строку с разделителем «пробел»)
Спецификация вывода (файл Outlet.out) :
Первое искомое вещественное число

@ZX Spectrum-128 · 23.02.2017, 10:34

https://www.cyberforum.ru/post482770.html

@bormant · 25.02.2017, 00:24

ZX Spectrum-128,
по большому счёту, это тут лишнее, решение ищется за один проход по данным.

Pascal

var
  e, ed, t, td: Real;
begin
  Assign(input,'inlet.in'); Assign(output,'outlet.out');
  Reset(input); Rewrite(output);
  Read(e); ed:=Abs(e-Sqr(Int(SqRt(e))));
  while not SeekEoLn do begin
    Read(t); td:=Abs(t-Sqr(Int(SqRt(t))));
    if td<=ed then begin e:=t; ed:=td; end;
  end;
  WriteLn(e);
  Close(input); Close(output);
end.

Добавлено через 1 час 9 минут
Хотя, пожалуй, стоит также проверять близость и к Sqr(Int(SqRt(X))+1).

@ZX Spectrum-128 · 25.02.2017, 07:54

bormant, по условию, числа из файла нужно в очередь считывать и с ней уже работать.

@ПриветЯНачинающ 0 / 0 / 0 Регистрация: 26.11.2016 Сообщений: 3
		1
	Определить первый элемент очереди, начиная от ее конца, значение которого наиболее близко к полному квадрату 19.02.2017, 22:30. Показов 739. Ответов 3 Метки нет (Все метки) Дан текстовый файл Inlet.in, содержимое которого представлено действительными чис-лами, которыми следует заполнить очередь элементов вещественного типа. Определить первый элемент этой очереди, начиная от ее конца, значение которого наи-более близко к полному квадрату целого числа. Полученное число вывести в текстовый файл Outlet.out. Спецификация ввода (файл Inlet.in) : Значения элементов файла (в строку с разделителем «пробел») Спецификация вывода (файл Outlet.out) : Первое искомое вещественное число 0

@ZX Spectrum-128 6804 / 4563 / 4817 Регистрация: 05.06.2014 Сообщений: 22,438
	23.02.2017, 10:34	2
	https://www.cyberforum.ru/post482770.html 0

@ZX Spectrum-128 6804 / 4563 / 4817 Регистрация: 05.06.2014 Сообщений: 22,438
	25.02.2017, 07:54	4
	bormant, по условию, числа из файла нужно в очередь считывать и с ней уже работать. 0

Опции темы