Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Курсовая работа2 / Examples / M_EPSIL
.PAS Program Mashinnoe_epsilon;
var
eps: real;
epsP1: real;
epsil: real;
Begin
eps:=1; epsP1:=1+eps;
while epsP1>1 do
begin
eps := eps * 0.5;
epsP1 := 1 + eps;
write(eps);
writeln;
end;
epsil := eps * 2;
write('Epsilon = ');
write(epsil);
writeln;
end.
var
eps: real;
epsP1: real;
epsil: real;
Begin
eps:=1; epsP1:=1+eps;
while epsP1>1 do
begin
eps := eps * 0.5;
epsP1 := 1 + eps;
write(eps);
writeln;
end;
epsil := eps * 2;
write('Epsilon = ');
write(epsil);
writeln;
end.
Соседние файлы в папке Examples