переменные объявляются так
Dim x, s, z, t As Double
Dim k, i, n As Integer
Begin тоже не пишется и do не пишется.
Не могу найти как прописывается (inc), writelen как print что-то не получается.
Пытаюсь воспроизвести на Basicе - не получается. Подскажите, пожалуйста!
На Pascal-е:
program Algoritm;
uses crt;
var x,s,z,t: real;
k,i,n: integer;
begin
clrscr;
readln(x);
i:=1;
z:=1;
s:=0;
n:=0;
while x/z>0.0001 do
begin
inc(n);
t:=s;
s:=s+x/z;
i:=i+1;
z:=1;
for k:=1 to i do
z:=z*k;
end;
writeln(t:0:4);
writeln(n);
readln;
end.
На Basic-е проба пера:
Код
Sub Algoritm()
Dim x, s, z, t As Double
Dim k, i, n As Integer
i = 1
z = 1
s = 0
n = 0
While x / z > 0.0001
t = s
s = s + x / z
:blink: inc(n)
i = i + 1
z = 1
For k = 1 To i
z = z * k
Next
Print
End Sub
Dim x, s, z, t As Double
Dim k, i, n As Integer
i = 1
z = 1
s = 0
n = 0
While x / z > 0.0001
t = s
s = s + x / z
:blink: inc(n)
i = i + 1
z = 1
For k = 1 To i
z = z * k
Next
End Sub
М | Тэги, уважаемая Kenzo, тэги! Правила раздела, п.1 (возденьте очи) и Правила Форума, п.5 Lapp |