Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 13, средняя оценка - 4.69
буська
0 / 0 / 0
Регистрация: 16.10.2010
Сообщений: 51
#1

Написать рекурсивную процедуру, которая считывает вводимые с клавиатуры числа до тех пор, пока не будет обнару - Turbo Pascal

19.11.2010, 23:57. Просмотров 1843. Ответов 2
Метки нет (Все метки)

Написать рекурсивную процедуру, которая считывает вводимые с клавиатуры числа до тех пор, пока не будет обнаружен нуль. Затем введенные числа распечатываются в обратном порядке. Нуль тоже печатать.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.11.2010, 23:57
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Написать рекурсивную процедуру, которая считывает вводимые с клавиатуры числа до тех пор, пока не будет обнару (Turbo Pascal):

Написать рекурсивную процедуру, которая считывает вводимые с клавиатуры числа - Turbo Pascal
Написать рекурсивную процедуру, которая считывает вводимые с клавиатуры числа до тех пор, пока не будет обнаружен нуль. Затем введенные...

Написать программу, которая запрашивает числа с клавиатуры до тех пор, пока их количество не превысит 5 - Turbo Pascal
1. На интервале найти: а) количество чисел, кратных 4; б) произведение данных чисел. var Count, Proizv, n, m, i: integer; ...

Натуральные числа вводятся с клавиатуры до тех пор, пока не будет введено число «нуль» - Turbo Pascal
1.. Дана срока, состоящая из букв и цифр, и строка из цифр и других знаков. Получить новую строку из символов первой строки, которых нет во...

Считывать с клавиатуры числа до тех пор пока не будет введено два числа равных 1. - Pascal
Программа должно считывать с клавиатуры числа до тех пор пока не будет введено два числа равных 1. Вывести на экран после окончания...

Напишите программу, которая запрашивает числа с клавиатуры до тех пор, пока вводимое число не окажется меньше предыдущего... - Turbo Pascal
Напишите программу, которая запрашивает числа с клавиатуры до тех пор, пока вводимое число не окажется меньше предыдущего или сумма чисел...

Написать программу которая складывает числа до тех пор пока не получится число состоящее из одной цифры - Turbo Pascal
написать программу которая складывает числа до тех пор пока не получится число состоящее из одной цифры. Пример: 5+5+5=15=1+5=6 у...

2
Mawrat
12814 / 5722 / 675
Регистрация: 19.09.2009
Сообщений: 8,807
20.11.2010, 01:10 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
program Project1;
 
procedure PrintBack(var aStr : String);
var
  Num : Integer;
  S : String;
begin
  Readln(Num);
  if Num = 0 then begin
    Writeln('Результат:');
    Writeln(aStr);
  end else begin
    Str(Num, S);
    if aStr <> '' then S := S + ', ';
    aStr :=  S + aStr;
    PrintBack(aStr);
  end;
end;
 
var
  S : String;
begin
  Writeln('Введите несколько целых чисел, завершая ввод каждого числа нажатием клавиши Enter.');
  Writeln('Для завершения ввода введите 0 (ноль) и нажмите Enter.');
  S := '';
  PrintBack(S);
  Readln;
end.
1
wsa
0 / 0 / 0
Регистрация: 20.05.2013
Сообщений: 202
22.05.2013, 17:29 #3
а вы можете написать рекурсивную подпрограмму, вводящую с клавиатуры последовательность вещественных положительных чисел, заканчивающуюся нулем, которая возвращает их сумму? Ограничение: массивы и циклы не использовать) спасибо) жду вашего ответа)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.05.2013, 17:29
Привет! Вот еще темы с ответами:

Ввод целых чисел с клавиатуры до тех пор, пока не будет введено отрицательное число - Pascal
Помогите пожалуйста написать прогу. 2.Запишите блок-схуму алгоритма ввода целых чисел с клавиатуры до тех пор, пока не будет введено...

Напишите программу ввода целых чисел с клавиатуры до тех пор, пока не будет введено число - Turbo Pascal
Напишите программу ввода целых чисел с клавиатуры до тех пор, пока не будет введено число, удовлетворяющее условию: а) число...

Выводить числа в файл до тех пор, пока не будет введен 0 - Turbo Pascal
Привет всем. Немогу разобраться и написать правильный код программы для задачи, собственно условие: Напишите программу, которая будет...

Пользователь вводит целые числа до тех пор, пока не будет введен ноль... - Turbo Pascal
Пользователь вводит целые числа до тех пор, пока не будет введен ноль. Результат работы программы: Сумма и кол-во введенный положительных...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru