Представим, что вы разрабатываете некоторый проект, который зависит от других пакетов, универсальных пакетов, которые поддерживаете тоже вы и они нуждаются в правках.
Также представим, что почему-либо тестировать эти пакеты изолированно заранее вам неудобно, и потому вы правите их параллельно с основным кодом.
Проблема
При этом неудобно править исходный код, который выкачан менеджером пакетов рядом с кодом проекта, т.к. он не лежит под контролем версий
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99
var i:integer;
begin
i := 35;
while i <= 117 do
begin
i:= i + 1;
if (i >= 35) AND (i <= 117)
AND ((i mod 2) = 0) then
write(i, ' ');
if (i >= 45) AND (i <= 99)
AND ((i mod 2) = 1) then
write(i,' ');
end;
readln();
end.
Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и предыдущего введённого им числа, если же введённое число больше 15, то цикл необходимо завершить.
Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и числа 7, если же введённое число больше 15, то цикл необходимо завершить.
var i:integer;
begin
i := 1;
while (i <= 15) do
begin
writeln('Введите целое число: ');
readln(i);
writeln(i + 7);
end;
writeln('Пока');
readln();
end.
Пользователь вводит четыре числа, найдите из них максимальное.
var a, b, c, d, max:integer;
begin
writeln('Input numbers: ');
readln(a, b, c, d);
if (((a > b) AND (a > c) AND (a > d) )) then
max := a
else if ((b > c) AND (b > d)) then
max := b
else if ((c > d)) then
max := c
else
max := d;
writeln(max);
end.
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.
-- в двух условных операторах действия частично совпадают, а значит наблюдается дублирование кода. Перепишите код так, чтобы дублирования не было.