Предмет: Информатика,
автор: Bamballeo
Перекодируйте программу с For на Repeat
var
x,y,R1, R2: integer;
koltoch: byte;
begin
writeln('Введите внутренний радиус R1');
readln(R1);
writeln('Введите внешний радиус R2');
readln(R2);
koltoch:= 0;
for x:= -R2 to R2 do
for y:= -R2 to R2 do
if (sqrt(sqr(x) + sqr(y)) > R1)
and (sqrt(sqr(x) + sqr(y)) < R2) then
begin
koltoch:= koltoch + 1;
writeln (x,' ',y);
end;
writeln(koltoch);
readln
end
Ответы
Автор ответа:
0
var x,y,R1, R2: integer;
koltoch: byte;
begin
writeln('Введите внутренний радиус R1');
readln(R1);
writeln('Введите внешний радиус R2');
readln(R2);
koltoch:= 0;
x := -R2;
repeat
y := -R2;
repeat
if (sqrt(sqr(x) + sqr(y)) > R1)
and (sqrt(sqr(x) + sqr(y)) < R2) then
begin
koltoch:= koltoch + 1;
writeln (x,' ',y);
end;
y := y + 1;
until y = R2;
x := x + 1;
until x = R2;
writeln(koltoch);
readln
end.
koltoch: byte;
begin
writeln('Введите внутренний радиус R1');
readln(R1);
writeln('Введите внешний радиус R2');
readln(R2);
koltoch:= 0;
x := -R2;
repeat
y := -R2;
repeat
if (sqrt(sqr(x) + sqr(y)) > R1)
and (sqrt(sqr(x) + sqr(y)) < R2) then
begin
koltoch:= koltoch + 1;
writeln (x,' ',y);
end;
y := y + 1;
until y = R2;
x := x + 1;
until x = R2;
writeln(koltoch);
readln
end.
Похожие вопросы
Предмет: География,
автор: stepankovaleria02
Предмет: Русский язык,
автор: mmega2751
Предмет: Қазақ тiлi,
автор: bosdead
Предмет: Алгебра,
автор: bochkovalyuda2013
Предмет: Биология,
автор: 20001405