Две задачи с массивами в Паскале

Arator · 20.05.2012, 13:57

Помогите решить пожалуйста ...
1) Создать массив случайных трехзначных целых чисел (N <= 30). Найти наибольшую цифру каждого числа. Использовать рекурсивную функцию нахождения наибольшего цифры числа.
2) Создать массив случайных четырехзначных целых чисел (N <= 30). Найти число, которое содержит наибольшее количество нулей. Использовать рекурсивную функцию нахождения количества нулей числа

Arator · 20.05.2012, 17:13

Актуально!

shrek=) · 21.05.2012, 09:17

Цитата:

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

Помогите решить пожалуйста ...
1) Создать массив случайных трехзначных целых чисел (N <= 30). Найти наибольшую цифру каждого числа. Использовать рекурсивную функцию нахождения наибольшего цифры числа.

Вот пожалуйста:

Код:

const n=15;
var
m:array [1..n] of integer;
i:integer;
function max(a:integer):integer;
var
b,c,d:integer;
begin
b:=(a div 100) mod 10;
c:=(a div 10) mod 10;
d:=a mod 10;
if (d>b) and (d>c) then max:=d else
if (b>d) and (b>d) then max:=b else
if (c>d) and (c>d) then max:=c;
end;
begin
randomize;
for i:=1 to n do begin
m[i]:=random(900);
writeln (m[i],' - ',max(m[i]));
end;
readln
end.

Vladimir_S · 21.05.2012, 10:58

Э-э, Миша - так то что, так то и я могу! А вот ты с рекурсивными функциями сделай!
P.S. Между прочим, поскольку числа должны быть трехзначными, то задавать выборку надо так: m[i]:=100+random(900);, что соответствует диапазону 100..999.

20.05.2012, 13:57	#1 (permalink)
Arator Member Регистрация: 18.05.2012 Сообщений: 14 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Две задачи с массивами в Паскале Помогите решить пожалуйста ... 1) Создать массив случайных трехзначных целых чисел (N <= 30). Найти наибольшую цифру каждого числа. Использовать рекурсивную функцию нахождения наибольшего цифры числа. 2) Создать массив случайных четырехзначных целых чисел (N <= 30). Найти число, которое содержит наибольшее количество нулей. Использовать рекурсивную функцию нахождения количества нулей числа

20.05.2012, 13:57
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Если воспользоваться поиском, то можно найти много полезной информации Решение задачи в паскале Три задачи в Паскале Три задачи на Паскале Задачи на Паскале

20.05.2012, 17:13	#2 (permalink)
Arator Member Регистрация: 18.05.2012 Сообщений: 14 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Актуально!

21.05.2012, 10:58	#4 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Э-э, Миша - так то что, так то и я могу! А вот ты с рекурсивными функциями сделай! P.S. Между прочим, поскольку числа должны быть трехзначными, то задавать выборку надо так: m[i]:=100+random(900);, что соответствует диапазону 100..999.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070