Ввод без перехода на следующую строку - Pascal
Формулировка задачи:
Ещё раз здравствуйте!
Можно ли в pascal-е организовать ввод значений нескольких операндов без перехода на след. строку (не пробелами). После нажатия на клавишу "Enter" хотелось бы организовать ввод на той же строке
Пример:
For i:=1 to n do begin Write(i,': '); Read(a[i]); Write(' '); end;
Решение задачи: «Ввод без перехода на следующую строку»
textual
Листинг программы
uses crt; const n=10; var a:array[1..n]of string; i,pos:integer; begin for i:=1 to n do begin write(i,':'); readln(a[i]); inc(pos,length(a[i])+4); GotoXY(pos,1); end; end.
Объяснение кода листинга программы
- В начале объявляются необходимые переменные: n, a, i, pos.
- Затем используется функция crt для ввода без перехода на следующую строку.
- Далее идет цикл for, который выполняется n раз (от 1 до 10).
- Внутри цикла выводится значение переменной i, за которым следует двоеточие, и затем происходит чтение значения переменной a[i] с помощью функции readln.
- После этого значение переменной pos увеличивается на длину прочитанного значения плюс 4.
- И, наконец, с помощью функции GotoXY выводится позиция, где должно быть напечатано значение переменной a[i].
- Конец программы.