Переведите с бейсика

@MrMkirill1 · Регистрация: 22.09.2014

Author24 — интернет-сервис помощи студентам

PureBasic

n = 8
R = n ^ 2
otvet = 0
 
currY = 0
For i = n - 1 To 0 Step -1 'по всем иксам от края к центру
  Do While currY ^ 2 + i ^ 2 < R 'поднимаемся вверх пока не выйдем за окружность
    otvet = otvet + 1
    currY = currY + 1
  Loop
  currY = currY - 1
Next i
MsgBox otvet * 4

@vint-81 · 19.10.2014, 10:28

Pascal

var r:real;
    n,otvet,curry,i:integer;
begin
 n:=8;
 r:=sqr(n);
 otvet:=0;
 curry:=0;
 for i:=n-1 downto 0 do {по всем иксам от края к центру}
  begin
   while sqr(curry)+sqr(i)<r do {поднимаемся вверх пока не выйдем за окружность}
    begin
     inc(otvet);
     inc(curry);
    end;
   dec(curry)
  end;
writeln(otvet*4);
readln
end.

@Puporev · 19.10.2014, 10:40

Pascal

1	while sqr(curry)+sqr(i)<r

может все же

Pascal

1	while sqr(curry)+sqr(i)<sqr(r)

@vint-81 · 19.10.2014, 10:47

Сообщение от Puporev

может все же

Pascal

1	while sqr(curry)+sqr(i)<sqr(r)

там радиус в квадрат возодится раньше

Сообщение от vint-81

Pascal

1	r:=sqr(n);

@Puporev · 19.10.2014, 10:48

Пардон, не посмотрел..

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	19.10.2014, 10:48	5
	Пардон, не посмотрел.. 0

Опции темы