Цикл с предусловием, цикл с постусловием и цикл с параметром

@Raseynik · Регистрация: 14.03.2018

Объясните пожалуйста как делать эти циклы. У меня не получается. Можете сделать как на фото, или на подобии. Заранее спасибо)

@Puporev · 26.03.2018, 18:58

Pascal

var y,b:real;
    i:byte;
begin
writeln('Цикл с параметром');
y:=0.24;
for i:=1 to 6 do
 begin
  b:=ln(abs(sin(y)))/ln(abs(cos(y)));
  writeln('y=',y:5:2,' b=',b:5:2);
  y:=y*2;
 end;
writeln('Цикл с предусловием');
y:=0.24;
while y<=7.68 do
 begin
   b:=ln(abs(sin(y)))/ln(abs(cos(y)));
  writeln('y=',y:5:2,' b=',b:5:2);
  y:=y*2;
 end;
writeln('Цикл с постусловием');
y:=0.24;
repeat
b:=ln(abs(sin(y)))/ln(abs(cos(y)));
writeln('y=',y:5:2,' b=',b:5:2);
y:=y*2;
until y>7.68;
end.

@Raseynik 0 / 0 / 0 Регистрация: 14.03.2018 Сообщений: 15
		1
	Цикл с предусловием, цикл с постусловием и цикл с параметром 26.03.2018, 18:27. Просмотров 1758. Ответов 1 Метки нет (Все метки) Объясните пожалуйста как делать эти циклы. У меня не получается. Можете сделать как на фото, или на подобии. Заранее спасибо) 0 Миниатюры

Опции темы

Цикл с предусловием, цикл с постусловием и цикл с параметром

Решение