1) Потому, что люди ленивы.
2) Потому, что всё просто, если знаешь как.
Program prog_2_5;
var fl1,fl2:text;{описание файловых переменных}
a,b,x,y:real;
begin
assign(fl1,'isdan.txt');
assign(fl2,'rezult.txt');
reset(fl1);{открытие файла для чтения}
rewrite(fl2);{открытие файла для записи}
readln(fl1,a,b);
while not eof(fl1) do // пока не конец файла
begin
readln(fl1,x);
y:=a/sqrt(b*b+x*x);
writeln(fl2,x:10:5,y:10:5);
end;
close(fl1);{закрытие файла isdan.dat}
close(fl2);{закрытие файла rezult.txt}
End.
Пример:
Файл isdan.txt:
<span>2.0 4.0
3.0
1.5
2.0
1.0
5.0
7.0
10.0
Файл </span>rezult.txt:
3.00000 0.40000
1.50000 0.46816
2.00000 0.44721
1.00000 0.48507
5.00000 0.31235
7.00000 0.24807
10.00000 0.18570
1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610, 987, 1597, 2494, ...
Вариантов записать огромное количество, но если нужно с минимальным количеством слагаемых, то:
<u>2013=1597+377+34+5</u>
