Добавил:
Silebox
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
program lab3_2;
var
x: Real = 0.0;
z: Real;
i: Integer;
begin
while (x <= 20.0) do
begin
z := 0;
for i:=1 to 20 do
begin
z := z + x / Sqrt(1+x);
x := x + 0.1;
end;
WriteLn('При x = ', x:1:2, ', z = ', z:1:2);
end;
end.
var
x: Real = 0.0;
z: Real;
i: Integer;
begin
while (x <= 20.0) do
begin
z := 0;
for i:=1 to 20 do
begin
z := z + x / Sqrt(1+x);
x := x + 0.1;
end;
WriteLn('При x = ', x:1:2, ', z = ', z:1:2);
end;
end.
Соседние файлы в папке лаб3