28.04.2010, 19:26 | #1 (ссылка) |
Новичок
Регистрация: 28.04.2010
Сообщений: 1
Репутация: 0
|
Написать программу с использованием подпрограмм
Задание: Написать программу с использованием подпрограмм. В подпрограммах не должно присутствовать ввода исходных данных (например, с помощью Readln) и вывода результатов на экран. Ввод исходных данных и ввод результатов должен производить в "теле" основной программы!
Написать программу, которая находит из всех четырехзначных чисел, такие числа, в записи которых все цифры различны. Пожалуйста, помогите, очень прошу!! Я с Паскалем совсем не дружу((( Мне подсказали, но я ничего не понимаю(( (Только мне надо не в Турбо-Паскале, а в обычном) Спасибо заранее)) Вот что у меня есть: 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. |
Ads | |
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1) | |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите написать программу в Qbasic | DAmir13 | Программирование | 15 | 28.05.2011 21:03 |
Как вместо ссылки,написать одно слово. | catyp | Общение по интересам | 3 | 04.01.2011 01:43 |
не могу написать ответ | novichek | Интернет и сети | 2 | 26.10.2010 18:51 |
Как написать дробь в html | DyH9l | Веб-строительство | 5 | 20.05.2010 14:43 |
Написать программу, которая высчитывает количество делителей | ZONDO | Программирование | 5 | 31.12.2009 15:46 |
Не могу ничего написать | Mana | Интернет и сети | 6 | 11.12.2009 16:03 |
Как написать bat файл, для установки драйверов? | Benjamin | Windows XP | 0 | 18.11.2009 20:39 |
Помогите решить проблему с использованием браузеров | Anatol76 | Интернет и сети | 5 | 19.05.2009 12:08 |
Помогите написать гоночки!!! Delphi | versus88 | Программирование | 4 | 08.03.2009 20:51 |
как написать программу что-то вроде Zver DVD??? | Максат | Утилиты | 2 | 30.08.2008 17:43 |
Помогите написать прогу! | Fuj_1000 | Программирование | 4 | 02.07.2008 20:54 |
Как написать прогу:)... | Fuj_1000 | Программы | 3 | 13.03.2008 09:03 |