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
<span>За 2. Взвешиваем по три монеты, если одна легче, то фальшивая среди этих трех, если равновесие, то фальшивая среди трех невзвешененных, потом по одной из тройки где фальшивая, и рассуждаем так же, если одна из монет легче, то она фальшивая, а если равновесие, то фальшивая невзвешенная. Точно также из 27 монет можно определить фальшивую за 3 взвешивания, из 81 за 4, из 3 в степени N монет - за N взвешиваний. А если число монет не равно 3 в степени N, то число взвешиваний равно ближайшей большей степени тройки. То есть, например, если монет 74 - то одну монету тоже можно определить за 4 взвешивания, как и среди 81 монеты. А вот если монет 82, то уже только за 5 взвешиваний - ближайшая большая степень двойки - 243 - 2 в степени 5.</span>
б)программа для создания и редактирования рисунков
А) Панель инструментов, рабочее поле, шкала времени, панель свойства
б) Инструмент используется для заливки всего текста или определённой области
1640 секунд примерно, если перевести в минуты, то <span>27 приблизительно!</span>
