Модераторы: volvo877, Snowy, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Подсказки, небольшая подсказка 
:(
    Опции темы
R.E.Mus
  Дата 21.12.2005, 16:09 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Язык турбо паскакль...
Код

program tp;
uses crt;
const n=2;
var x:array [1..n] of real;
i,p,k,s:integer;
begin
clrscr;
writeln('enter array');
for i:=1 to n do begin
write('x[',i:2,']=');
readln(x[i]);
end;

Как видети здесь есть массив(конечно вещ чисел)...мне просто нужно узнать каков будет код что-бы удолить все числа от 1 до 5 из каждой ячейки данного массива...
Нужно ли прообразовать массив в строковой:
Код

program r7;
uses CRT;
var X:array[1..3] of real;
    Y:array[1..3] of string;
    a,a1,a2,a3,l,c,h:integer;
begin
clrscr;
a1:=0;
a2:=0;
a3:=0;
for a:=1 to 3 do begin
writeln('enter array X[',a,']');
readln(X[a]);
STR(X[a],Y[a]);end;
for a:=1 to 3 do begin
delete(Y[a],16,5);end;
for a:=1 to 3 do begin
writeln('Y[',a,']=',Y[a]);
end;
for a:=1 to 3 do begin
delete(Y[a],16,5);
end;
readkey;
end.

Можно так сделать или Нет???
delete(Y[a],16,5)- это сверх мощное округление чтоб от "E" избавиться...(если что);Только код посоветуйте какой использовать smile ...
  Вверх
R.E.Mus
Дата 21.12.2005, 16:12 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Ах да вспомнил ещё вопросик...Можно воспользоваться преобразованием real в integer (т.е. trunc() and (int)) вместо преобразования в строку
smile
  Вверх
R.E.Mus
Дата 21.12.2005, 16:13 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Ах да вспомнил ещё вопросик...Можно воспользоваться преобразованием real в integer (т.е. trunc() and (int)) вместо преобразования в строку
smile
  Вверх
Romikgy
Дата 21.12.2005, 16:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: нет
Всего: 146
Цитата(R @ 21.12.2005, 16:09)
мне просто нужно узнать каков будет код что-бы удолить все числа от 1 до 5 из каждой ячейки данного массива...
и что дальше? уменьшить размерность массива, тогда его динамически делать надо



--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
Zero
Дата 21.12.2005, 17:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24
Цитата(R @ 21.12.2005, 17:09)
мне просто нужно узнать каков будет код что-бы удолить все числа от 1 до 5 из каждой ячейки данного массива...

чёто я не понял, это значит что если массив такой: {2,7,4,9}, то надо удалять элемент 1-ый и 3-ий, или как то по другому. А то у тебя код, делает совсем другое... Т.е. если судить по коду, то ты хочешь получить округление... Это делается типа такого:
Код

program tp;
uses crt;
const n=2;
var x:array [1..n] of real;
i,p,k,s:integer;
begin
clrscr;
writeln('enter array');
for i:=1 to n do
  begin
    write('x[',i,']=');
    readln(x[i]);
  end;

for i:=1 to n do
  writeln(x[i]:0:2);  {форматированый вывод}
end.

Добавлено @ 17:11
Или мож тебе нужно сдвинуть каждый элемент массива влево на 5???
PM MAIL ICQ   Вверх
R.E.Mus
Дата 21.12.2005, 18:15 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
smile Извеняюсь За не точность нужно удалить все цифры от одного до пяти в каждой ячейки массива...
А что за динамический массив?
Т.е ячейка 81234578...
получается 878... smile
  Вверх
Zero
Дата 21.12.2005, 22:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24
Цитата(R @ 21.12.2005, 19:15)
нужно удалить все цифры от одного до пяти в каждой ячейки массива...

Ну тогда, ИМХО лучший способ будет преобразовать цифровой массив в строки, а в нём удалять символы 1..5.
Цитата(R @ 21.12.2005, 19:15)
А что за динамический массив?

это массив, память которого выделяется в процессе выполнения программы, в твоём случае он не требуется, Romikgy видемо тоже не понял, что ты в начале спрашивал... smile
PM MAIL ICQ   Вверх
Romikgy
Дата 22.12.2005, 11:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: нет
Всего: 146
От тож , так бы и сказал что работа со строками, и удалять нужно символы из строки


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

1. Обсуждать и делится взломанными компонентами или программным обеспечением

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0776 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.