|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
04.01.2009, 23:05 | #1 |
Пользователь
Регистрация: 25.11.2008
Сообщений: 53
|
Построить массив, в который поместить все элементы второго массива, оканчивающиеся на цифру 5
Задан массив действительных чисел. Построить новый массив, в который поместить все элементы исходного, оканчивающиеся на цифру 5. Блок-схема, алгоритмич. язык, паскаль.....
P.S.: Идей никаких(((( |
04.01.2009, 23:32 | #2 |
Пользователь
Регистрация: 20.12.2008
Сообщений: 46
|
Вроде работает
Код:
Последний раз редактировалось Teor; 05.01.2009 в 11:54. |
05.01.2009, 23:59 | #3 |
Регистрация: 05.01.2009
Сообщений: 8
|
Teor, я слегка изменил твой код . не обижайся, если что, просто твой код у мя почему-то не заработал...
program massiv; uses crt; var mas,mas2:array[1..10000] of integer; i,k,n:integer; begin clrscr; randomize; write ('Введите размер массива '); readln (n); write('Исходный массив: '); for i:=1 to n do begin mas[i]:=random(500); write (mas[i],' '); if frac(mas[i]/10)*10=5 then begin inc(k); mas2[k]:=mas[i]; end; end; writeln; writeln; write('Новый массив: '); for i:=1 to k do write (mas2[i],' '); readkey end. |
06.01.2009, 00:12 | #4 |
Форумчанин
Регистрация: 06.11.2008
Сообщений: 100
|
К чему вот это:
Код:
Код:
|
06.01.2009, 00:33 | #5 | |
Пользователь
Регистрация: 20.12.2008
Сообщений: 46
|
Цитата:
BarracudaSSAT,твой вариант немного лучше чем мой Последний раз редактировалось Teor; 06.01.2009 в 00:53. |
|
06.01.2009, 09:30 | #6 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Задан массив А=(0,215; -1.235; 2.36; 1.05; -5.233365);
Выполните поставленную задачу с помощью своей программы. |
06.01.2009, 15:10 | #7 |
Пользователь
Регистрация: 20.12.2008
Сообщений: 46
|
...да я как-то не подумал про дробные числа.
Для дробных чисел у меня не получилось написать программу, так как функция frac как-то криво работает. |
06.01.2009, 15:16 | #8 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Если вводить все числа с одинаковым числом знаков после запятой, то нет проблем, а если разное количество, то у меня тоже не получается, потому что представление дробной части числа в машинном представлении не совпадает с тем что мы вволим, например мы ввели 1,0235 и думаем что последняя цифра 5, а компьютер так не считает, у него где-то в 10м знаке еще цифра есть.
|
06.01.2009, 16:06 | #9 |
Пользователь
Регистрация: 20.12.2008
Сообщений: 46
|
Интересно, а откуда компьютер берет эту цыфру? Может можно как-то такой "глюк" исправить?
|
07.01.2009, 02:31 | #10 |
Регистрация: 05.01.2009
Сообщений: 8
|
MalexG, круто :-D! про mod даже не подумал!!!)))))
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Задачка про массив - Из массива удалить четные элементы, стоящие после максимального | Crookers | Общие вопросы C/C++ | 4 | 23.09.2008 19:35 |
Дан двумерный массив случайных чисел. Построить одномерный из исходного, выбрав из него все числа кратные | ProWinD | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 16.06.2008 20:12 |
найти минимальный элемент в каждой строке матрицы и записать все минимальные элементы в отдельный массив | W_P | Помощь студентам | 6 | 28.12.2007 00:24 |