Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.73/11: Рейтинг темы: голосов - 11, средняя оценка - 4.73
0 / 0 / 0
Регистрация: 14.11.2009
Сообщений: 31
1

Найти из всех четырехзначных чисел, такие числа, в записи которых все цифры различны

05.04.2010, 15:22. Просмотров 1902. Ответов 5
Метки нет (Все метки)

Задание: Написать программу с использованием подпрограмм. В подпрограммах не должно присутствовать ввода исходных данных (например, с помощью Readln) и вывода результатов на экран. Ввод исходных данных и ввод результатов должен производить в "теле" основной программы!
Написать программу, которая находит из всех четырехзначных чисел, такие числа, в записи которых все цифры различны.
Помогите пожалуйста!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.04.2010, 15:22
Ответы с готовыми решениями:

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

В интервале чисел натурального ряда от a до b найти все двузначные числа, в записи которых все цифры различны
В интервале чисел натурального ряда от a до b найти и вывести в поле метки Label все двузначные ...

Среди всех четырехзначных цифр определить число тех, у которых все цифры различны
Среди всех четырехзначных цифр определить число тех, у которых все цифры различны.

Среди четырехзначных чисел выбрать те, у которых все четыре цифры различны.
Среди четырехзначных чисел выбрать те, у которых все четыре цифры различны.

5
28 / 28 / 5
Регистрация: 18.01.2010
Сообщений: 73
05.04.2010, 15:57 2
Это ты сразу два задания выложил или это всё к одному относится?
0
0 / 0 / 0
Регистрация: 14.11.2009
Сообщений: 31
05.04.2010, 19:00  [ТС] 3
Да, это одна программа. Сначала просто условие как это делать...
0
28 / 28 / 5
Регистрация: 18.01.2010
Сообщений: 73
05.04.2010, 20:42 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
29
30
31
32
33
34
program Numbers;
 
var
i: integer;
 
function DifferentFigures(x: integer):boolean;
var
s: string;
i,err: integer;
d:array[0..9] of boolean;
 
begin
str(x,s);
for i:=0 to 9 do
d[i]:=false;
for i:=1 to 4 do
begin
val(s[i],x,err);
if d[x] then begin
DifferentFigures:=false;
exit;
end;
d[x]:=true;
end;
end;
 
 
begin
for i:=1000 to 9999 do
if DifferentFigures(i) then write(i:8);
writeln;
writeln('Press Enter...');
readln;
end.
Вот исходник. Он выбирает из ВСЕХ четырёхзначных чисел те, в которых все цифры различны. Только их получается ОЧЕНЬ много. Программа выводит их в несколько столбцов, но всё равно в экран не помещается. Мне кажется ты не полностью выложил задание. Там наверное сначала создаётся случайный массив чисел штук этак на 100, и из них уже выбирается, но по твоему заданию получается именно так, как я написал.

Комментарии:
В этом исходнике функция DifferentFigures(x) возвращает TRUE, когда в аргументе (числе, которое ты укажешь в скобках) все цифры разные и и FALSE - в противном случае.
1
0 / 0 / 0
Регистрация: 14.11.2009
Сообщений: 31
06.04.2010, 15:07  [ТС] 5
Не) всё гуд) так и надо)
0
0 / 0 / 0
Регистрация: 14.11.2009
Сообщений: 31
19.05.2010, 19:56  [ТС] 6
Блин, сорри.. Она не работает(( Вообще.. пишет нажмите ентер...(
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.05.2010, 19:56

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

Вычислить количество четырехзначных чисел, делящихся на 5, у которых все цифры различны.
Помогите решить задачу пожалуйста!СПАСИБО! Вычислить количество четырехзначных чисел, делящихся на...

Среди четырехзначных чисел выбрать те, у которых все четыре цифры различны
Среди четырехзначных чисел выбрать те, у которых все четыре цифры различны (Windows Form)

Среди четырехзначных чисел выбрать те, у которых все четыре цифры различны
Среди четырехзначных чисел выбрать те, у которых все четыре цифры различны. Delphi 7

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


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

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

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