|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
21.12.2008, 19:49 | #1 |
Регистрация: 07.12.2008
Сообщений: 4
|
составить алгоритм программы
объясните пожалуйста алгоритм программы, а то я ничего в нем непонимаю, программа выводит введенное число в зеркальном отображении работает правильно
program ZADANIE_3 ; uses Crt; var a: longint; {----------------------------------------------} {Процедура вывода зеркального отображения числа} {параметры: а:исходное число } {----------------------------------------------} procedure Reverse(n:longint); begin {Reverse} write (n mod 10); if (n div 10)<>0 then Reverse(n div 10) end; {Reverse} begin {***ОСНОВНАЯ ПРОГРАММА***} Clrscr; write(' Введите любое целое число: ');readln(a); writeln(' x= ',a); writeln(' Инверсия этого числа будет выглядеть так:'); if (a<0) then begin a:=abs(a); write(' x= -') end else write(' x= '); Reverse(a); writeln end.{***КОНЕЦ ОСНОВНОЙ ПРОГРАММЫ***} заранее благодарен!!! |
22.12.2008, 00:51 | #2 |
Студентик :)
Пользователь
Регистрация: 29.09.2008
Сообщений: 84
|
А я вот вам советую взять ручку листочек и по пунктам сделать так-же, как делает прога, тогда и поймёте, а не ждать ответа на форуме...
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
составить алгоритм решения, реализующий перевод из 10 системы счисления в троичную | Машута | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 09.12.2008 18:20 |
Составить алгоритм и программу вычисления определенного интеграла | triston | Помощь студентам | 3 | 18.11.2008 18:35 |
помогите решить задачу(составить алгоритм) | grafenix | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 03.10.2008 00:52 |
Помогите составить, пожалуйста, алгоритм задачки... | Merciless | Общие вопросы C/C++ | 1 | 18.12.2007 20:47 |
помогите составить алгоритм. | levin | Помощь студентам | 1 | 28.11.2007 14:37 |