Удаление строки с введенным числом (delline не срабатывает)

02.09.2012, 15:21. **Показов** 1514. **Ответов** 3

Студворк — интернет-сервис помощи студентам

Пишу простую программу:

1) Пользователь вводит число.
2) Программа выдает строку с текстовым значением введенного числа.

Все работает, но Важно, чтобы при последовательном введении чисел - строки результата шли одна за другой (сейчас между ними строка с введенным числом, никак не могу её убрать).

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var x,a: byte;
Begin
     Clrscr;
     TextBackGround(LightGray);
     TextColor(Black);
     a:= 1;
     repeat
     Read(x);
     DelLine;
     GotoXY(1, whereY);
            if x = 1 then WriteLn(a, '    значение1   ',x)
       else if x = 2 then WriteLn(a, '   значение2   ',x)
       else if x = 3 then WriteLn(a, '   значение3   ',x);
     a:=a + 1
       until x = 4;
     Writeln('конец');
     ReadKey;
end.

Так же пробовал после действий перемещать курсор в конкретную ячейку (вместо whereY автоматически вбивался номер строки. В этом случае все работало, но ровно 25 попыток. На 25 появлялась строка с введенным числом как сейчас. Как я понял это из-за того что crt отображает 25 строк.

@Puporev · 02.09.2012, 15:32

Может так?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var x,a: byte;
Begin
     Clrscr;
     TextBackGround(LightGray);
     TextColor(Black);
     a:= 1;
     repeat
     Read(x);
     gotoXY(1,a);
     write(#8);
     if x = 1 then WriteLn(' ',a, '   значение1   ',x)
     else if x = 2 then WriteLn(' ',a, '   значение2   ',x)
     else if x = 3 then WriteLn(' ',a, '   значение3   ',x);
     a:=a + 1
     until x = 4;
     Writeln('конец');
     ReadKey;
end.

02.09.2012, 15:35

да, работает, но первые 24 ввода (и соотв. строки), а на 25 и последующих появляется строка с введенным числом.

@Puporev · 02.09.2012, 16:03

Я думал что нужно ввести 4 числа, не сопли нужно жевать, а писать суть задания.

Pascal
1
2
if a<24 then gotoXY(1,a)
     else gotoXY(1,24);

Новые блоги и статьи Все статьи Все блоги /
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

Juniour
	02.09.2012, 15:35
	да, работает, но первые 24 ввода (и соотв. строки), а на 25 и последующих появляется строка с введенным числом.