Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.90/10: Рейтинг темы: голосов - 10, средняя оценка - 4.90
буська
0 / 0 / 0
Регистрация: 16.10.2010
Сообщений: 51
#1

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

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

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

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

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

Написать рекурсивную процедуру, которая считывает вводимые с клавиатуры числа
Написать рекурсивную процедуру, которая считывает вводимые с клавиатуры числа...

Написать программу, которая запрашивает числа с клавиатуры до тех пор, пока их количество не превысит 5
1. На интервале найти: а) количество чисел, кратных 4; б) произведение...

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

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

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

2
Mawrat
12823 / 5731 / 1700
Регистрация: 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

Написать программу которая складывает числа до тех пор пока не получится число состоящее из одной цифры
написать программу которая складывает числа до тех пор пока не получится число...

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

Напишите программу ввода целых чисел с клавиатуры до тех пор, пока не будет введено число
Напишите программу ввода целых чисел с клавиатуры до тех пор, пока не будет...


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

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

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