Задача 11 Урок 9
Primary tabs
Есть программа:
var z,s:integer; f:boolean; begin s:=1; if (z=s) and (f=false) then begin writeln();// делаем перенос строки z:=0; s:=s+1;//но увеличиваем кол-во строк end; if (z=s) and (f=true) then begin writeln(); // делаем перенос строки z:=0; s:=s-1;//но уменьшаем кол-во строк end; end.
-- в двух условных операторах действия частично совпадают, а значит наблюдается дублирование кода. Перепишите код так, чтобы дублирования не было.
<pre class="brush: php">program project11; { Дан код. Надо его переписать, чтобы убрать дублирование. } var z,s:integer; f:boolean; begin writeln('Vvedite znachenie z: '); readln(z); s:=z; f:=z>5; if(z=s) then begin if (f) then begin writeln(); z:=0; s:=s-1; end else begin writeln(); z:=0; s:=s+1; end; end; end. </pre>
Консоль:
<pre class="brush: php">Vvedite znachenie z: 3</pre>
- Log in to post comments
- 476 reads