не могу решить задачу... 8( |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
не могу решить задачу... 8( |
d00mik |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 12 Пол: Мужской Репутация: 0 |
совсем недавно я начел изучать паскаль так что в нём хорошо не шарю...
а паскаль я изучаю на вашем сайте (Уроки от Дмитриева Эдуарда) Урок 8 и там есть домашние задание " Написать программу получения числа из отдельно введенных однозначных чисел. Для этого постарайтесь придумать свой алгоритм, реализующий цикл для ввода чисел. Концом ввода должен служить нуль." как же это делается... ? кстати хотелось бы если у каждого домашнего задание были бы и ответы... Сообщение отредактировано: d00mik - |
kent |
Сообщение
#2
|
Пионер Группа: Пользователи Сообщений: 50 Пол: Мужской Реальное имя: Андрей Репутация: 1 |
Можно вот так:
|
virt |
Сообщение
#3
|
Знаток Группа: Пользователи Сообщений: 419 Пол: Мужской Репутация: 6 |
зачем переводить цифры в строки и обратно?
var t : longint; -------------------- |
FreeMan |
Сообщение
#4
|
- Группа: Пользователи Сообщений: 480 Пол: Мужской Репутация: 4 |
Что то тут бесконечным циклом несёт. У тебя i в теле цикла не изменяется. То есть либо бесконечный цикл (при i<>0) или вообще без цикла (при i=0)
-------------------- бб
|
klem4 |
Сообщение
#5
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
virt, идея класная, но ты действительно ошибся немного Я поправил :
uses crt; -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
d00mik |
Сообщение
#6
|
Новичок Группа: Пользователи Сообщений: 12 Пол: Мужской Репутация: 0 |
о!спасибо всем щас всё испробую 8)
|
volvo |
Сообщение
#7
|
Гость |
klem4,
if i<>0 then так ли необходимо условие If i <> 0 Then... Если его убрать, что-то изменится? |
klem4 |
Сообщение
#8
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Да! ведь если ее убрать, число t лишний раз домножется на 10 , и в конце будет лишний ноль.
Сообщение отредактировано: klem4 - -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
virt |
Сообщение
#9
|
Знаток Группа: Пользователи Сообщений: 419 Пол: Мужской Репутация: 6 |
я просто забыл в цикле поставить readln(i);
var t : longint; -------------------- |
Текстовая версия | 30.04.2024 5:21 |