Массив и матрица |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Массив и матрица |
@WARlock@ |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 26 Пол: Мужской Репутация: 0 |
Народ поможите решить задачки.
Задача 1) Реализовать алгоритм решения задачи на преобразование десятичного числа n в число m. Вводимое пользователем число n должно быть integer или logint. Программа должна работать правильно для чисел, содержащих не менее 8 цифр. В случае невозможности формирования числа m на основе числа n выводить соответствующее сообщение. - Число m состоит из нечетных цифр числа n, стоящих на позициях, номера которых четны, считая с начала. Задача 2) Составить программу решения (задачи 1(смотреть выше)), в которой n и m имеют строковый тип данных (string). Задача 3) По условию (задачи 1(смотреть выше)) составить программу вывода на экран по данному числу n типа string матрицу SxS, (S – кол-во цифр в числе m), состоит из нулей и цифр числа m которые расположены: - В последней строке справа на лево. Сообщение отредактировано: @WARlock@ - |
klem4 |
Сообщение
#2
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Еще бы узнать где в твоем понимании начало у цифры ...
1) uses crt; 12345678 -> 1357 Сообщение отредактировано: volvo - -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
volvo |
Сообщение
#3
|
Гость |
klem4, по заданию:
Цитата Число m состоит из нечетных цифр числа n, стоящих на позициях, номера которых четны, считая с начала. Должно быть так: 123451789 -> 1, ибо 2, 4 и 8 - четные цифры... Исправил ;) Сообщение отредактировано: klem4 - |
volvo |
Сообщение
#4
|
Гость |
klem4, ну, и что ты исправил?
Цитата Число m состоит из нечетных цифр числа n, стоящих на позициях, номера которых четны, считая с начала. Какой номер позиции у цифры '1'? |
klem4 |
Сообщение
#5
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Я же говорю, с мотря как воспринимать "начало числа"
Для меня номер цифры 1 = 8, вполне четный номер ... А так как автор не привел тестов то .. Сообщение отредактировано: klem4 - -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
volvo |
Сообщение
#6
|
Гость |
Я бы вот так делал:
var 2134754 -> 15 P.S. Вообще-то числа ДАЖЕ У НАС пишутся слева направо... Так что 1 в твоем примере - первая... |
@WARlock@ |
Сообщение
#7
|
Новичок Группа: Пользователи Сообщений: 26 Пол: Мужской Репутация: 0 |
Ну я эту задачу делал таким образом, четные номера найти могу, а вот дальше не получается :
program lab; uses crt; Сообщение отредактировано: volvo - |
volvo |
Сообщение
#8
|
Гость |
@WARlock@, это другая задача... Под №2... В первой тебе нельзя пользоваться типом String, нужно справиться только с целочисленными типами...
|
@WARlock@ |
Сообщение
#9
|
Новичок Группа: Пользователи Сообщений: 26 Пол: Мужской Репутация: 0 |
Ладно спасибо с (задачей 1) помогли разобраться, остались еще две задачи.
Сообщение отредактировано: @WARlock@ - |
@WARlock@ |
Сообщение
#10
|
Новичок Группа: Пользователи Сообщений: 26 Пол: Мужской Репутация: 0 |
Усе в поряде наконец-то я въехал как (задачу 3) решать.
Вот код проги: program lab3; uses crt; Сообщение отредактировано: volvo - |
Ozzя |
Сообщение
#11
|
Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
Число-палиндром
http://forum.pascal.net.ru/index.php?showt...660entry30660 |
@WARlock@ |
Сообщение
#12
|
Новичок Группа: Пользователи Сообщений: 26 Пол: Мужской Репутация: 0 |
Люди где вы? Не спите выручайте. Кто знает как делать (задачу 2(смотреть в самом начале)) с типом string, пожалуйста напишите код проги. Осталось 3 дня до зачета.
|
klem4 |
Сообщение
#13
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Вот решение 3-й задача, в ней же присутствует решение второй. (вариант если матрицу хранить надо ...)
{$R-} Сообщение отредактировано: volvo - -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
klem4 |
Сообщение
#14
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Или еще вот такой вариант,
uses crt; ps В первой проге немного перепутал, в матрице цифры идут не справа на лево а наоборот. В это проге правильно. Сообщение отредактировано: volvo - -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
@WARlock@ |
Сообщение
#15
|
Новичок Группа: Пользователи Сообщений: 26 Пол: Мужской Репутация: 0 |
Выше написан код (задачи 1) решенной с помощью longint, а как ее решить с помощью integer.
|
volvo |
Сообщение
#16
|
Гость |
Заменить LongInt на Integer не пробовал?
|
@WARlock@ |
Сообщение
#17
|
Новичок Группа: Пользователи Сообщений: 26 Пол: Мужской Репутация: 0 |
И еще каким образом можно решить (задачу 2(Смотреть в начале)), через if not odd(i) then begin.
odd и not odd отвечают за четность и нечетность. |
volvo |
Сообщение
#18
|
Гость |
А ты пост №6 ВООБЩЕ смотрел? Как можно СМОТРЕТЬ и не ВИДЕТЬ??? Там же есть использование Odd !!!
|
@WARlock@ |
Сообщение
#19
|
Новичок Группа: Пользователи Сообщений: 26 Пол: Мужской Репутация: 0 |
Вот я и говорю, что мне нужно решение (задачи 2) с помощью odd, а не (задачи 1) т.к она уже разобрана.
Сообщение отредактировано: @WARlock@ - |
Текстовая версия | 19.05.2024 15:38 |