Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| изменяем тип строки... |
| JoB |
Сообщение
#1
|
|
Гость  |
Я смотрю, что то всех на массивы в последнее время приперло, вот и меня потянуло...
Надо используя двумерные или (если конечно возможно) одномерные массивы решить задачу... Даны целые а1,а2,...,аn, действительные b1,b2,...,bn преобразовать последовательность b1,b2,...,bn в а1,а2,...,аn, по правилу если ai делится на 10, то bi увеличевается в 10 раз, иначе bi заменить нулем. Задача впринцепе очень легкая, но я что то в сам смфсл врубитьсяя не могу, а время позднее (завтро эту работу надо сдавать  )Я конечно ща продолжу мучиться, но если каму ни лень помогите...  |
 
|
|
JoB изменяем тип строки... 22.11.2005 2:05
klem4 for i := 1 to n do
if a[i] mod 10 = 0 then
b[i]… 22.11.2005 2:10 JoB uses crt;
const n=10;
type aaa = array of integer… 22.11.2005 3:03 klem4 Уу батенька, загляните-ка вот сюда (FAQ : Массивы,… 22.11.2005 3:06 JoB почитал faq прога стала запускаться вот только не … 22.11.2005 3:29 JoB пожалуйста :rolleyes: 22.11.2005 3:31 klem4 уххх
uses crt;
const n=5;
var
a : array[1..n] o… 22.11.2005 3:34 volvo klem4,
Торопишься :)
[size=1]Добавлено:
[b]klem… 22.11.2005 3:36 JoB Огромное спасибо :good:
но если не трудно объяснит… 22.11.2005 4:00 volvo Что, понадобилось? :yes2: Я так и знал... Это - п… 22.11.2005 4:14 JoB Все всем огромное спасибо... просто парни спасли..… 22.11.2005 4:41 JoB А не подскажите как в этой програмке использовать … 5.12.2005 2:39 volvo Вот так пойдет?
{$N+}
uses crt;
{ Функция за… 5.12.2005 2:48 JoB а я вот что написал =)
{$N+}
uses crt;
const… 5.12.2005 3:02 JoB а что такое ch+ и trunc 5.12.2005 3:10
klem4 так как ch - символьная переменная, а для них (сим… 5.12.2005 11:31  |
|
Текстовая версия | 7.09.2025 16:26 |
