Вопрос по задчe 21 урока 13.1.
Primary tabs
Задача 21. (Урок 13.1).Не удается сделать плавное убывание чисел. Достигая заданного числа, строка переходит на новую, а количество чисел стартует с 1, а должно быть -1 от введенного.
Условие: Пользователь передает целые положительные число N и M, выведете на экран последовательность от 1 до N, так чтобы ширина "ёлочки" увеличивалась до M чисел, то уменьшалась до 1.
var N,M, KLM, a,c,b,v: integer; begin {writeln('vvedite cislo N'); readln(N); writeln('vvedite cislo M'); readln(M);} N := 99; M := 5; KLM := M; a := 1; c := 1; b := 0; //v := 1; for N:= 1 to N do begin write(N, ' '); if (v = 1) then begin a := a + 1; if (a >= KLM) then begin writeln(); a := 1; KLM := KLM - 1; if (KLM = 1) then begin KLM := M; v := 0; end; end; end else if (v = 0) then begin b := b + 1; if (b = c) then begin writeln(); c := c + 1; b := 0; if (c > M) then begin c := 1; v := 1; end; end; end; end; end.
- Log in to post comments
- 2848 reads
vedro-compota
Thu, 09/24/2020 - 16:58
Permalink
просьба вторую задачу
просьба вторую задачу оформить отдельной темой, а отсюда убрать.
Один вопрос - один пост
_____________
матфак вгу и остальная классика =)
vedro-compota
Sat, 09/26/2020 - 20:30
Permalink
дать переменным понятные
-- М менять не стоит, переделать
_____________
матфак вгу и остальная классика =)
Romakip
Mon, 09/28/2020 - 15:50
Permalink
var M,N, shetcisel
vedro-compota
Thu, 10/01/2020 - 19:49
Permalink
чтобы перенести строку, мы
чтобы перенести строку, мы должны проверить достигла ли очередная строка ожидаемой длины, т.е. нужно завести переменные отвечающие за ожидаемую длину строки и за текущую длину строки.
_____________
матфак вгу и остальная классика =)