Подпрограммы

@Нася · Регистрация: 21.03.2010

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

Задание: Написать программу с использованием подпрограмм. В подпрограммах не должно присутствовать ввода исходных данных (например, с помощью Readln) и вывода результатов на экран. Ввод исходных данных и ввод результатов должен производить в "теле" основной программы!
Написать программу, которая находит среди всех натуральных четырехзначных чисел те, цифры в которых образуют строго возрастающую последовательность. Например, 1234 и 2359.

можно как можно проще).заранее спасибо)

@Kasgo · 23.04.2010, 10:49

Решение

@~~pavelr~~ · 23.04.2010, 12:29

Pascal

function p(n:integer):boolean;
var fl:true;l,l1:byte;
begin
l:=n mod 10;
fl:=true;
while (n>0) and (fl=true) do
   begin
n:=n div 10;
l1:=n mod 10;
if l1>l then fl:=false;
end;
if fl=true then p:=true else p:=false;
end;
  begin
var i:integer;f:boolean;
begin
for i:=1000 to 9999 do
  begin
f:=p(i);
if f then writeln(i);
end;
end.
 
[size="1"][color="grey"][I]Добавлено через 1 минуту[/I][/color][/size]
Функцию поправил:
 
function p(n:integer):boolean;
var fl:true;l,l1:byte;
begin
l:=n mod 10;
fl:=true;
while (n>0) and (fl=true) do
begin
n:=n div 10;
l1:=n mod 10;
if l1>l then fl:=false else l:=l1;
end;

@Нася 0 / 0 / 1 Регистрация: 21.03.2010 Сообщений: 17
		1
	Подпрограммы 23.04.2010, 10:38. Показов 1073. Ответов 2 Метки нет (Все метки) Задание: Написать программу с использованием подпрограмм. В подпрограммах не должно присутствовать ввода исходных данных (например, с помощью Readln) и вывода результатов на экран. Ввод исходных данных и ввод результатов должен производить в "теле" основной программы! Написать программу, которая находит среди всех натуральных четырехзначных чисел те, цифры в которых образуют строго возрастающую последовательность. Например, 1234 и 2359. можно как можно проще).заранее спасибо) 0

@Kasgo 33 / 33 / 15 Регистрация: 19.04.2010 Сообщений: 40
	23.04.2010, 10:49	2
	Решение 0

	23.04.2010, 12:29

Опции темы