![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Форумчанин
Регистрация: 06.07.2010
Сообщений: 105
|
![]()
Доброй ночи, уважаемые профи, вообщем сразу к сути:
Нужно реализовать умножение двух натуральных чисел в столбик(кнч мы задаем их с клавиатуры), как мы делаем это вручную, в случае надобности, т.е.: 1356*135: ***********1356 ************135 ***********6780 **********4068 *********1356 ******--------- ********183060 Это выводится на экран и записывается в txt(в данном случае напихано звездочки ибо когда я ставлю просто пробелы мне их убирают автоматически) С работай с файлами я еще не ознакомился, только буду разбираться, я думаю это не сложно, но помимо этого остается основное решение, вообщем вот что я уже сделал: Код:
Мб вы знаете более рациональное решение данной проблемы,без того бреда что я описал. Вообщем задачка кажется пустяковой, буду очень благодарен за помощ.
Carpe Diem
Последний раз редактировалось Heming; 29.01.2012 в 13:28. |
![]() |
![]() |
![]() |
#2 |
Форумчанин
Регистрация: 06.07.2010
Сообщений: 105
|
![]()
Почему когда я пытаюсь отдельно вывести новый массив, состоящий из чисел которые в итоге нужно сложить, то у меня выводится только одно и тоже число несколько раз:
for j:=1 to length(sm) do writeln(Mmmas[j]); end; Для коректности работы выравнивания мне нужно вывод вывести вне цикла, который есть в коде....*ля какой-то бред выходит
Carpe Diem
Последний раз редактировалось Heming; 29.01.2012 в 13:36. |
![]() |
![]() |
![]() |
#3 |
В стагнации
Участник клуба
Регистрация: 29.07.2011
Сообщений: 1,303
|
![]()
Вообще реализовать проще всего так:
1) Забивать второй множитель в строку 2) Перевести его символы в массив integer 3) Перемножать первый множитель, на каждый элемент массива цифр числа второго множителя. Делать это с конца. Выводить результаты в промежутке. 4) Результат каждого умножения записывать в результирующий массив. 5) Сложить элементы результируюего массива и вывести конечный ответ.
E-mail: pashaworking@gmail.com | ICQ: 479914426 | Skype: moondearr
Понять, чего от тебя требует заказчик – это уже половина всей работы, а иногда и полностью выполненное задание. |
![]() |
![]() |
![]() |
#4 |
Пользователь
Регистрация: 09.12.2011
Сообщений: 44
|
![]()
Попробуй так. Не идеал конечно.
Код:
|
![]() |
![]() |
![]() |
#5 | |
Форумчанин
Регистрация: 06.07.2010
Сообщений: 105
|
![]() Цитата:
Сейчас сяду за Фарoнова, почитаю про файлы, что выйдет залью сюда, или мб какие-то вопросы появятся.
Carpe Diem
Последний раз редактировалось Heming; 29.01.2012 в 20:48. |
|
![]() |
![]() |
![]() |
#6 |
a.k.a. Skull
Форумчанин
Регистрация: 17.11.2009
Сообщений: 963
|
![]()
Еще вариант:
Код:
Все тривиальное просто
|
![]() |
![]() |
![]() |
#7 |
Форумчанин
Регистрация: 06.07.2010
Сообщений: 105
|
![]()
Вот финальный вариант, всем большое спс за помощ:
Код:
Carpe Diem
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Паскаль, работа с файлами. | Alexey_HvaranG | Помощь студентам | 5 | 07.12.2009 22:39 |
работа с файлами в паскаль... | Оксаночка:) | Помощь студентам | 1 | 19.06.2009 09:59 |
работа с файлами(паскаль) | WF7 | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 03.06.2009 16:02 |