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
Решение..............................................
Const
n = 5;
var
a: array [0..n-1] of shortint;
i: byte;
begin
randomize;
writeln ('Сформированный массив: ');
for i:=0 to n-1 do
begin
a[i]:=random (51);
write (a[i], '; ');
end;
end.
Витя нарисовал лес в горах. Петя нарисовал лес. Даша нарисовала горы