Ввод и вывод данных в одну строку

@ujif · Регистрация: 08.12.2012

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

можно ли в pascal ввести цифру и затем вывести ее
в одну строку чтобы выглядело так:
ввод вывод
{ 2 } { 2}
скобки вокруг цифр не нужны ,просто без них
при сохранении этого сообщения двойки впритык выходят

@papaDOS · 06.06.2013, 13:27

да можно. Вместо writeln и readln используй wrete и read

@Puporev · 06.06.2013, 13:33

Например так

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses crt;
var c:char;
begin
clrscr;
repeat
readln(c);
if not (c in ['0'..'9']) then clrscr;
until c in ['0'..'9'];
gotoXY(2,whereY-1);
write(c);
readln
end.

@ujif · 06.06.2013, 19:45 **[ТС]**

тут задача попалась на рекурсию
вызов функции из основной программы
а затем вводим цифры тут же идет сравнение
и если цифра нечетная то она выводится на экран рядом
с введенной т.е. ввод 3 вывод 3 в одну строку должно быть

Добавлено через 6 часов 5 минут
товарищ Puporev не пойму на каком языке написана Ваша программа
не компиллируется она у меня

@Puporev · 06.06.2013, 20:26

как и называется раздел, на Турбо Паскале

@ujif · 06.06.2013, 20:29 **[ТС]**

обозначил Label XY;
требует после 2 -ки скобку поставить ')'

@Puporev · 06.06.2013, 20:38

Сообщение от ujif

обозначил Label XY;

Это что такое?
У меня gotoXY(2,whereY-1); Это установить курсор во вторую позицию предыдущей строки.
Это написали
uses crt;

@ujif · 06.06.2013, 20:53 **[ТС]**

да получилось
тут задача на рекурсию
вызов функции из основной программы
а затем вводим цифры с клавиатуры тут же идет сравнение
и если цифра нечетная то она выводится на экран рядом
с введенной т.е. ввод 3 вывод 3 в одну строку должно быть
эту Вашу программу можно как-то привязать к решению вышеизложенной задачи?

@Puporev · 06.06.2013, 21:05

В упор не вижу здесь никакой рекурсии, простое if odd(a)-определение нечетности..

Добавлено через 7 минут
Из того что Вы написали максимум что могу выжать

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
procedure vyvod(c:byte);
begin
if odd(c) then
 begin
  gotoXY(2,whereY-1);
  writeln(c)
 end
end;
var c:byte;
begin
clrscr;
repeat
writeln('Введите цифру');
readln(c);
until c in [0..9];
vyvod(c);
readln
end.

@ujif · 06.06.2013, 21:06 **[ТС]**

это у меня такая задача :
с помощью рекурсии вводить цифры с
клавиатуры затем сравнивать их на предмет нечетности
и тут же выводить если ввел нечетное то напротив него эту же цифру
выводим если четное то пропускаем конец программы ввод 0

@Puporev · 06.06.2013, 21:08

Сомневаюсь что задание было написано именно так, а написать нормально Вам видимо вера не позволяет.До свидания.

@ujif · 06.06.2013, 22:49 **[ТС]**

Дана последовательность натуральных чисел (одно число в строке), завершающаяся числом 0. Выведите все нечетные числа из этой последовательности, сохраняя их порядок.

В этой задаче нельзя использовать глобальные переменные и передавать какие-либо параметры в рекурсивную функцию. Функция получает данные, считывая их с клавиатуры. Функция не возвращает значение, а сразу же выводит результат на экран. Основная программа должна состоять только из вызова этой функции.
Ввод Вывод

3 3
1 1
2
0

@Puporev · 07.06.2013, 08:06

Сообщение от ujif

завершающаяся числом 0.

Вот это и надо было написать, условие выхода из рекурсии.
Тогда можно так, но просится не функция, а процедура.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
procedure vyvod;
var a:integer;
begin
readln(a);
if a<>0 then
  begin
   if odd(a) then
    begin
     gotoXY(2,whereY-1);
     writeln(a);
    end;
   vyvod
  end
end;
begin
clrscr;
writeln('Вводите цифры, окончание ввода 0');
vyvod;
end.

@ujif · 07.06.2013, 13:29 **[ТС]**

спасибо огромное
очень ценна для меня вот эта строка gotoXY(2,whereY-1);

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

Ввод и вывод данных в одну строку

Решение

Решение

@ujif 37 / 31 / 13 Регистрация: 08.12.2012 Сообщений: 815

	Ввод и вывод данных в одну строку 06.06.2013, 13:22. Показов 8850. Ответов 13 Метки нет (Все метки) можно ли в pascal ввести цифру и затем вывести ее в одну строку чтобы выглядело так: ввод вывод { 2 } { 2} скобки вокруг цифр не нужны ,просто без них при сохранении этого сообщения двойки впритык выходят 0

@papaDOS 31 / 31 / 6 Регистрация: 26.03.2013 Сообщений: 68
	06.06.2013, 13:27
	да можно. Вместо writeln и readln используй wrete и read 0

@ujif 37 / 31 / 13 Регистрация: 08.12.2012 Сообщений: 815
	06.06.2013, 19:45 [ТС]
	тут задача попалась на рекурсию вызов функции из основной программы а затем вводим цифры тут же идет сравнение и если цифра нечетная то она выводится на экран рядом с введенной т.е. ввод 3 вывод 3 в одну строку должно быть Добавлено через 6 часов 5 минут товарищ Puporev не пойму на каком языке написана Ваша программа не компиллируется она у меня 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	06.06.2013, 20:26
	как и называется раздел, на Турбо Паскале 0

@ujif 37 / 31 / 13 Регистрация: 08.12.2012 Сообщений: 815
	06.06.2013, 20:29 [ТС]
	обозначил Label XY; требует после 2 -ки скобку поставить ')' 0

@ujif 37 / 31 / 13 Регистрация: 08.12.2012 Сообщений: 815
	06.06.2013, 20:53 [ТС]
	да получилось тут задача на рекурсию вызов функции из основной программы а затем вводим цифры с клавиатуры тут же идет сравнение и если цифра нечетная то она выводится на экран рядом с введенной т.е. ввод 3 вывод 3 в одну строку должно быть эту Вашу программу можно как-то привязать к решению вышеизложенной задачи? 0

@ujif 37 / 31 / 13 Регистрация: 08.12.2012 Сообщений: 815
	06.06.2013, 21:06 [ТС]
	это у меня такая задача : с помощью рекурсии вводить цифры с клавиатуры затем сравнивать их на предмет нечетности и тут же выводить если ввел нечетное то напротив него эту же цифру выводим если четное то пропускаем конец программы ввод 0 1

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	06.06.2013, 21:08
	Сомневаюсь что задание было написано именно так, а написать нормально Вам видимо вера не позволяет.До свидания. 0

@ujif 37 / 31 / 13 Регистрация: 08.12.2012 Сообщений: 815
	06.06.2013, 22:49 [ТС]
	Дана последовательность натуральных чисел (одно число в строке), завершающаяся числом 0. Выведите все нечетные числа из этой последовательности, сохраняя их порядок. В этой задаче нельзя использовать глобальные переменные и передавать какие-либо параметры в рекурсивную функцию. Функция получает данные, считывая их с клавиатуры. Функция не возвращает значение, а сразу же выводит результат на экран. Основная программа должна состоять только из вызова этой функции. Ввод Вывод 3 3 1 1 2 0 0

@ujif 37 / 31 / 13 Регистрация: 08.12.2012 Сообщений: 815
	07.06.2013, 13:29 [ТС]
	спасибо огромное очень ценна для меня вот эта строка gotoXY(2,whereY-1); 0