Задание 10 Урок 13.1
Primary tabs
Задание 10 Урок 13.1
Модифицируйте предыдущую задачу так, чтобы в каждой чётной (той, у которой номер чётный) строке выводилось N символов, а в каждой нечетной N/2 символов (сделайте проверку того, что N/2 больше нуля)
var i,i1,i2,n,m,n1 : integer; label m1; begin m1: write('Введите N и нажмите ENTER: '); readln(n); write('Введите M и нажмите ENTER: '); readln(m); for i2 := 1 to m do//цикл 1-го порядка отвечает за повторение двустрочия begin for i1 := 1 to 2 do// цикл 2-го порядка отвечает за двойное повторение begin if ((i1 mod 2) = 0) then// значения для чётной строки for i := 1 to n do// цикл 3-го порядка отвечает за одну строку write(i, ' ') else// значения нечётной строки begin n1 := (n div 2); if (n1 < 0) then // проверяем на знак begin writeln('Ошибка!!! Вводите только положительные значения!'); goto m1;// возвращаемся к метке m1 end else for i := 1 to n1 do// цикл 3-го порядка отвечает за одну строку write(i, ' ') end; writeln();// переходим на следующую строку end; writeln();// добавляем строку для разделения итераций цикла 1-го порядка end; write('Программа завершена, нажмите ENTER!'); readln(); end.
- Log in to post comments
- 532 reads