IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Подскажите, как решить задачу
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 2
Пол: Мужской
Реальное имя: Николай

Репутация: -  0  +


Дана задача:

Дано натуральное число n. Получить символьное представление n в виде последовательности цифр и пробелов, отделяющих группы по три цифры, начиная справа. ( например, если n=1234567, то должно получиться 1 234 567).

Знаю как решить эту задачу без использования динамической памяти:

var N: Longint;
S: String;
D: Word;
I: Integer;
begin
ReadLn(N);
while N > 0 do begin
D := N mod 10;
N := N div 10;
S := Char(D+Ord('0')) + S;
I:=I+1;
if I = 3 then begin
S := ' ' + S;
I := 0;
end;
end;
WriteLn(S);
readln;
end.

Помогите пожалуйста решить эту задачу с использованием динамической памяти. Заранее благодарен.

1 поменя название темы
2 пользуйся тегами
klem4
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Ну вот так например ;)

uses crt;

var

n,i : LongInt;
s : string;

begin

clrscr;

readln(n);

Str(n,s);

i := length(s) - 2;

while (i >= 1) do begin
Insert(' ', s, i);
dec(i, 3);
end;

writeln(s);

readln;
end.


Куда тут использование динамической памяти пихать (так чтобы не безсмысленно было) ума не приложу.

Сообщение отредактировано: volvo -


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





Группа: Пользователи
Сообщений: 2
Пол: Мужской
Реальное имя: Николай

Репутация: -  0  +


Тема этой задачи звучит как "строки Pchar"....
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 20.08.2017 7:18
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"